Sure thing,
Check it out.
Private Sub TextBox1_Change()
Dim f As Range, c As Long
If ActiveSheet.AutoFilterMode Then ActiveSheet.AutoFilterMode = False
Set f = Range("D5:F" & Cells(Rows.Count, "F").End(xlUp).Row).Find(what:=Me.TextBox1, lookat:=xlWhole)
If Not f Is Nothing Then
c = f.Column - 3
Range("$D$4").AutoFilter Field:=1, Visibledropdown:=False 'hides the drop down arrows
Range("$D$4").AutoFilter Field:=2, Visibledropdown:=False 'hides the drop down arrows
Range("$D$4").AutoFilter Field:=3, Visibledropdown:=False 'hides the drop down arrows
If c <> 3 Then
Range("$D$4").AutoFilter Field:=c, Criteria1:="=*" & TextBox1 & "*"
Else: Range("$D$4").AutoFilter Field:=c, Criteria1:=TextBox1
End If
End If
End Sub
Bookmarks