fixing problem autofilter

[abdelfattah]

hello
i need help about my code when i search by code in textbox it doesn't show anything
this is my data

the problem when i write in textbox number of code

Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("b1000").End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
Range("$A$3:$m$" & LastRow).AutoFilter field:=3, Criteria1:= _
"=" & ActiveSheet.TextBox1.Text & "*", Operator:=xlOr
Else
Range("A3:m3").AutoFilter
Range("A3:m3").AutoFilter
End If
End Sub

 

[abdelfattah]

the code works directly when i write in textbox1
this is my file
h.xls

 

[Fluff]

the code works directly when i write in textbox1

Yes I know that, but did you key in 3 digits?

 

[abdelfattah]

when i write the first number nothing show anything how i can write 3 digits if i write 1 digits doesn't show anything

 

[Fluff]

Just keep typing.

 

[abdelfattah]

yes now it works sorry about this thanks for your patience and time

 

[Fluff]

You're welcome & thanks for the feedback.