error 1004 Unable to get the vlookup property

[Nurul Ahda]

I wanna do an automated leave tracker. i want the staff name to appear based on their id using vlookup.
Can someone help where is the mistake?


Private Sub ComboBox1_Change()

If Me.ComboBox1.Value <> "" Then
Me.TextBox1.Value = Application.WorksheetFunction.VLookup(CLng(Me.ComboBox1.Value), ThisWorkbook.Sheets("Monthly Summary").Range("A:B"), 2, 0)
Else
Me.TextBox1.Value = ""

End If

End Sub

 

[DanteAmor]

Hi and welcome to MrExcel!

If the data you put in the combobox does not exist, then the textbox remains empty.
How did you load the items into the combobox? Put here the code you used, also put examples, you must put more information so that you receive better help.

Use the find method:

Private Sub ComboBox1_Change()
  Dim sh As Worksheet
  Dim f As Range
  
  Set sh = Sheets("Monthly Summary")
  
  TextBox1.Value = ""
  If ComboBox1.Value <> "" Then
    Set f = sh.Range("A:A").Find(ComboBox1.Value, , xlValues, xlWhole)
    If Not f Is Nothing Then
      TextBox1.Value = sh.Range("B" & f.Row).Value
    End If
  End If
End Sub

Review the following example: