Snasui Excel Forum

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
Set myRange = Worksheets(2).Range("A:K")
TextBox4.Value = Application.WorksheetFunction.VLookup(TextBox3.Text, myRange, 1, False)
TextBox5.Value = Application.WorksheetFunction.VLookup(TextBox3.Text, myRange, 2, False)

'Other code
End Sub

Code: Select all

Private Sub CommandButton4_Click()
On Error Resume Next
        Set myRange = Worksheets(2).Range("A:K")
        TextBox4.Value = Application.WorksheetFunction.VLookup(CLng(TextBox3.Text), myRange, 1, False)
        TextBox5.Value = Application.WorksheetFunction.VLookup(CLng(TextBox3.Text), myRange, 2, False)
End Sub