arama butonu verıyı tam yazmadan aramıyor

[ibobozkurt]

arkadaşlar
arama butonu verıyı tam yazmadan aramıyor.ekteki dosya üzerinde bir yardımcı olurmusunuz

 

[Necdet]

Merhaba,

Aşağıdaki kodu dener misiniz?

Private Sub CommandButton1_Click()
    Dim Bul As Range
    Set Bul = Range("C:C").Find(TextBox1.Value, LookIn:=xlValues, LookAt:=xlPart)
    If Not Bul Is Nothing Then
        Range("A" & Bul.Row).EntireRow.Select
    Else
        MsgBox "Aradığınız veri bulunamadı. Girişi kontrol ediniz"
    End If
End Sub