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]

it returns the first problem not show anything

 

[Fluff]

Change the field to 2, I forgot to change it.

 

[abdelfattah]

when i write the first number the code works but when i complete the rest of numbers it disappears whole

 

[Fluff]

Suggestion.
Please explain EXACTLY what you are trying to do, rather than feed us little bits.

 

[abdelfattah]

i would filter after write the first three numbers not the first number

 

[Fluff]

In that case simply remove the last 2 0s from the 100000000

 

[abdelfattah]

i did it not success not show data again

 

[Fluff]

What is your current code?

 

[abdelfattah]

this is my current code

Private Sub TextBox1_Change()
Dim LastRow As Long
LastRow = Range("b1000").End(xlUp).Row
If ActiveSheet.TextBox1.Text <> "" Then
     Range("A3:M" & LastRow).AutoFilter 2, ">=" & ActiveSheet.TextBox1.Text * 1000000, xlAnd, "<" & (ActiveSheet.TextBox1.Text + 1) * 1000000
Else
Range("A3:m3").AutoFilter
End If
End Sub

 

[Fluff]

That works for me, did you put 3 digits into the textbox before running the code?