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