Text boxda süzme yapmıyor

[dear_corel]

Textboxa yazdığım sicil numarasını veri kısmından bularak süzme yapmıyor. Yardımcı olurmusunuz

örnek ektedir.

 

[Orion1]

Dosyanız ektedir.

Private Sub TextBox1_Change()
Dim sonuc2 As Double
If TextBox1.Text = "" Then
    If ActiveSheet.AutoFilterMode = True Then ActiveSheet.AutoFilterMode = False
    Exit Sub
End If
sonuc2 = TextBox1.Value
Range("A4").AutoFilter
Range("A4").AutoFilter Field:=1, Criteria1:=TextBox1.Value
End Sub

 

[dear_corel]

teşekkür ederim emeğine sağlık