Live Search MULTIPLE fields SIMULTANEOUSLY [search as you type]

Hi Everyone

Please assist.
I am currently using the following to search through the data as I type.

Please advise how the any code changes that will allow me to search more than one column at a time.

Currently if i search in Column A and then continue to enter a search term in any other searchable column - the initial criteria are 'over written '.

I hope i am clear.

Thanks in advance



Below is the code for each box

Private Sub TextBox2_Change()

If Len(TextBox2.Value) = 0 Then
    Sheet1.AutoFilterMode = False
Else
    If Sheet1.AutoFilterMode = True Then
     Sheet1.AutoFilterMode = False
    End If
Sheet1.Range("A2:R" & Rows.Count).AutoFilter field:=2, Criteria1:="*" & TextBox2.Value & "*"
End If

End Sub

Sorry Freind


Interesting question.

I have your solution however I cannot post it because:-


Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code.

Posting code between [CODE] [/CODE] tags makes your code much easier to read and copy for testing, it also maintains VBA formatting.

Click on Edit to open your thread, then highlight your code and click the # icon at the top of your post window. More information about these and other tags can be found here

(This thread should receive no further responses until this moderation request is fulfilled, as per Forum Rule 7)

Private Sub CommandButton1_Click()
For i = 1 To OLEObjects.Count
    If TypeName(OLEObjects(i).Object) = "OptionButton" Then OLEObjects(i).Object = False
Next i
    TextBox1.Value = ""
    TextBox2.Value = ""
    TextBox3.Value = ""
    TextBox4.Value = ""
    
    
End Sub

Private Sub TextBox1_Change()
Filter
End Sub
Private Sub TextBox2_Change()
Filter
End Sub
Private Sub TextBox3_Change()
Filter
End Sub
Private Sub TextBox4_Change()
Filter
End Sub

Private Sub Filter()

With ActiveSheet.Range("$A$2:$R$2820")
.AutoFilter Field:=1, Criteria1:="=*" & TextBox1.Value & "*", Operator:=xlAnd
.AutoFilter Field:=2, Criteria1:="=*" & TextBox2.Value & "*", Operator:=xlAnd
.AutoFilter Field:=12, Criteria1:="=*" & TextBox3.Value & "*", Operator:=xlAnd
.AutoFilter Field:=13, Criteria1:="=*" & TextBox4.Value & "*"
End With
End Sub