Userform display a message when vlookup does not find data in textbox or does not return a match

[Lokoloko]

Private sub textbox1_AfterUpdate()

If textbox1.value = Worksheetfunction.Vlookup(textbox1,Sheet1.Range("A:A") , 1, False) then
Msgbox "Data Found"
Else
Msgbox "No Data Found"
End if

End sub

 

[dmt32]

Hi,
try

Private Sub textbox1_AfterUpdate()
    Dim LookedUp    As Variant
    
    LookedUp = Application.VLookup(TextBox1.Value, Sheet1.Range("A:A"), 1, False)
    
    If Not IsError(LookedUp) Then
        MsgBox "Data Found"
    Else
        MsgBox "No Data Found"
    End If
    
End Sub

Dave