Filter VBA

[Tofik]

Hi guys, do you have some formula to VBA fore filter ? I don't want to press every time Filter Icon.
If you knows that I will apriciate your help.
Thank you.

 

[rpaulson]

This will filter as you type.

Private Sub TextBox1_Change()
ActiveSheet.ListObjects("Table1").Range.AutoFilter Field:=1, Criteria1:="*" & TextBox1.Value & "*", Operator:=xlFilterValues
End Sub

 

[Tofik]

it isn't work can you make one example ?
I insert this code in VBA (Alt+F11) but macro isn't in Macro Note Window

 

[rpaulson]

http://www.computermaninc.net/Auto%20Filter.xlsm

 

[Tofik]

http://www.computermaninc.net/Auto%20Filter.xlsm

rpaulson but I also have the second question how I can do that without use a table( mod ) ?

 

[Tofik]

http://www.computermaninc.net/Auto%20Filter.xlsm

It works guys thank you, but it is not fore me because of 2-problems :
1) I work without a table (mod)
2)I have BigData and filer takes a lot of time than Filter-Filter button(window) in Excel. Useful only for small DB.

But I appreciate your help, thank you. Still wait any solution in this Forum.