Shantanu_4612
New Member
- Joined
- Oct 3, 2016
- Messages
- 27
Hi All,
I am getting "Unable to VLookup property of the Worksheets Function Class" Erro for the below code.
Kindly assist
I am using this code in a userform
Private Sub ListBox1_Click()
Dim l As Integer
Dim f As Integer
EST.TextBox6 = EST.ListBox1
l = Len(EST.TextBox6)
f = InStr(EST.TextBox6, " *")
EST.TextBox1 = Mid(EST.TextBox6, 1, (l - (l - (InStr(EST.TextBox6, " *")))))
EST.TextBox8 = EST.TextBox5 & EST.TextBox1
EST.TextBox3 = Application.WorksheetFunction.VLookup(EST.TextBox8, Worksheets("TempRAW").Range("A1:J1000000"), 10, False)
EST.TextBox2.Text = Application.WorksheetFunction.VLookup(EST.TextBox8, Worksheets("TempRAW").Range("A1:G1000000"), 7, False)
End Sub
I am getting "Unable to VLookup property of the Worksheets Function Class" Erro for the below code.
Kindly assist
I am using this code in a userform
Private Sub ListBox1_Click()
Dim l As Integer
Dim f As Integer
EST.TextBox6 = EST.ListBox1
l = Len(EST.TextBox6)
f = InStr(EST.TextBox6, " *")
EST.TextBox1 = Mid(EST.TextBox6, 1, (l - (l - (InStr(EST.TextBox6, " *")))))
EST.TextBox8 = EST.TextBox5 & EST.TextBox1
EST.TextBox3 = Application.WorksheetFunction.VLookup(EST.TextBox8, Worksheets("TempRAW").Range("A1:J1000000"), 10, False)
EST.TextBox2.Text = Application.WorksheetFunction.VLookup(EST.TextBox8, Worksheets("TempRAW").Range("A1:G1000000"), 7, False)
End Sub