KK1966
07-09-2008, 01:19 AM
Dear Expert’s 
 
I have problem wanted help, I have an userForm code as below :
Now I face a problems as:
 
COL A ( Product Code )
COL B ( Product Name )
COL C ( S/N)
COL ( Sales name & responding )
 
Can someone help to learn me about if the UserFom can base the products code to look up then allow me to edit the COL B C D RESPECTIVELY? Does it can UserForm can do it ?
 
Your help I highly appreciate
 
 
 
Private Sub Label3_Click()
 
End Sub
 
Private Sub UserForm_Initialize()
 
Dim rng As Range
With Sheets("Prod code")
ComboBox1.List = Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Value
End With
End Sub
Private Sub ComboBox1_Afterupdate()
Dim rng As Range
 
On Error GoTo Ken
With Sheets("Prod code")
Set rng = Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
End With
With rng.Find(ComboBox1.Value, lookat:=xlWhole)
Label1.Caption = .Offset(, 1)
Label2.Caption = .Offset(, 2)
Label3.Caption = .Offset(, 3)
Exit Sub
 
Ken:
MsgBox "Hi' Are You typing a wrong code NUMBER? "
 
End With
End Sub
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
 
___________________________________________________________________________ _____________________
Dear All's
To Simply my query that's wanted to have Edit value to useing UserFrom
 
Please help or suggesting which to modify the as posted
I have problem wanted help, I have an userForm code as below :
Now I face a problems as:
COL A ( Product Code )
COL B ( Product Name )
COL C ( S/N)
COL ( Sales name & responding )
Can someone help to learn me about if the UserFom can base the products code to look up then allow me to edit the COL B C D RESPECTIVELY? Does it can UserForm can do it ?
Your help I highly appreciate
Private Sub Label3_Click()
End Sub
Private Sub UserForm_Initialize()
Dim rng As Range
With Sheets("Prod code")
ComboBox1.List = Range(.Cells(1, 1), .Cells(1, 1).End(xlDown)).Value
End With
End Sub
Private Sub ComboBox1_Afterupdate()
Dim rng As Range
On Error GoTo Ken
With Sheets("Prod code")
Set rng = Range(.Cells(1, 1), .Cells(1, 1).End(xlDown))
End With
With rng.Find(ComboBox1.Value, lookat:=xlWhole)
Label1.Caption = .Offset(, 1)
Label2.Caption = .Offset(, 2)
Label3.Caption = .Offset(, 3)
Exit Sub
Ken:
MsgBox "Hi' Are You typing a wrong code NUMBER? "
End With
End Sub
Private Sub CommandButton1_Click()
Unload UserForm1
End Sub
___________________________________________________________________________ _____________________
Dear All's
To Simply my query that's wanted to have Edit value to useing UserFrom
Please help or suggesting which to modify the as posted