I am having table with Column 1 - S.No., Column 2 - Adm. No (Example : 7898) , Column 3 - Name (Example : Jack Samuel) , Column 4 - Mobile No.(Example : 9898989898)
I Set Three TextBox
TextBox1 = Adm. No., TextBox2 = Name, TextBox3 = Mobile No.
For Auto Filter By Name, following are the codes:
Private Sub TextBox2_Change()
TextBox1.Text = ""
TextBox3.Text = ""
Application.ScreenUpdating = False
ActiveSheet.ListObjects("SevenA_T").Range.AutoFilter Field:=4, Criteria1:="*" & [G4] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
With this code working filter for names,
Private Sub TextBox1_Change()
TextBox1.Text = ""
TextBox2.Text = ""
Application.ScreenUpdating = False
ActiveSheet.ListObjects("SevenA_T").Range.AutoFilter Field:=2, Criteria1:="False", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
It is not working with numbers (Adm. No.)
I Set Three TextBox
TextBox1 = Adm. No., TextBox2 = Name, TextBox3 = Mobile No.
For Auto Filter By Name, following are the codes:
Private Sub TextBox2_Change()
TextBox1.Text = ""
TextBox3.Text = ""
Application.ScreenUpdating = False
ActiveSheet.ListObjects("SevenA_T").Range.AutoFilter Field:=4, Criteria1:="*" & [G4] & "*", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
With this code working filter for names,
Private Sub TextBox1_Change()
TextBox1.Text = ""
TextBox2.Text = ""
Application.ScreenUpdating = False
ActiveSheet.ListObjects("SevenA_T").Range.AutoFilter Field:=2, Criteria1:="False", Operator:=xlFilterValues
Application.ScreenUpdating = True
End Sub
It is not working with numbers (Adm. No.)