Excelde Düsey Ara VLOOKUP bulamazsa HATA Mesajı

[yenilik025]

Excelde USERFORM da VLOOKUP Düsey Ara Kullanılırken bulamazsa
HATA Mesajı Nasıl verir ?

 

[askm]

Private Sub ComboBox1_Change()
Set S = Sheets("KAYIT")
    ADI = Trim(ComboBox1.Text)   'aranan isim aramadaki comboBox
    On Error Resume Next
    Satir = S.Range("J:J").Find(ADI).Row
    If Satir = 0 Then
    MsgBox "uyarı"
    Exit Sub
    End If
    TextBox2 = S.Cells(Satir, "K")
    TextBox3 = S.Cells(Satir, "L")
    
End Sub