Excel 365 ActiveX Textbox for "Search as you type" not working on second monitor

I use Office 365. Mine is not progressively filtering after the second comma (search). I will have to keep searching ways to use one search field. If anyone has ideas please share. Thanks.

It's a bit clumsy, but I found you could enter as many "and" criteria as you like separated by commas using a For Each loop on the AutoFilter.

Private Sub TextBox1_Change()

Dim xStr As String, xName As String
Dim v As Variant, vv As Variant
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Materials"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        v = Split(Application.Trim("*" & Replace(xStr, ",", "*,*") & "*"), ",")
        If IsArray(v) Then
            Select Case UBound(v)
            Case 0
                xRg.AutoFilter Field:=2, Criteria1:="*" & v(0) & "*", Operator:=xlFilterValues
            Case 1
                xRg.AutoFilter Field:=2, Criteria1:="*" & v(0) & "*", Criteria2:="*" & v(1) & "*", Operator:=xlFilterValues
            Case Else
                For Each vv In v
                    xRg.AutoFilter Field:=2, Criteria1:="*" & vv & "*", Operator:=xlFilterValues
                Next
            End Select
        Else
            xRg.AutoFilter Field:=2, Criteria1:="*" & v & "*", Operator:=xlFilterValues
        End If
    Else
        xRg.AutoFilter Field:=1, Operator:=xlFilterValues
    End If
Err01:

End Sub

alex_n 

AutoFilter allows one or two criteria with wildcards. See code below.

To get more, you need to use Advanced Filter as described at https://stackoverflow.com/questions/49858980/auto-filter-with-more-than-2-criteria-with-wildcards 

Option Explicit

Private Sub TextBox1_Change()

Dim xStr As String, xName As String
Dim v As Variant, vv As Variant
Dim xWS As Worksheet
Dim xRg As Range
    On Error GoTo Err01
    Application.ScreenUpdating = False
    xName = "Materials"
    xStr = TextBox1.Text
    Set xWS = ActiveSheet
    Set xRg = xWS.ListObjects(xName).Range
    If xStr <> "" Then
        v = Split(Application.Trim("*" & Replace(xStr, ",", "*,*") & "*"), ",")
        If IsArray(v) Then
            Select Case UBound(v)
            Case 0
                xRg.AutoFilter Field:=2, Criteria1:="*" & v(0) & "*", Operator:=xlFilterValues
            Case Else
                xRg.AutoFilter Field:=2, Criteria1:="*" & v(0) & "*", Criteria2:="*" & v(1) & "*", Operator:=xlFilterValues
            End Select
        Else
            xRg.AutoFilter Field:=2, Criteria1:="*" & v & "*", Operator:=xlFilterValues
        End If
    Else
        xRg.AutoFilter Field:=1, Operator:=xlFilterValues
    End If
Err01:

End Sub

If you revert to event sub TextBox1_Change, you can trigger it by entering a value in its linked cell even if you cannot enter a value directly in the textbox.

Private Sub TextBox1_Change()
Dim xStr As String, xName As String
Dim xRg As Range

Application.ScreenUpdating = False
With TextBox1
    xName = "Materials"
    xStr = .Text
    Set xRg = .Parent.ListObjects(xName).Range
    If xStr <> "" Then
        xRg.AutoFilter Field:=2, Criteria1:="*" & xStr & "*", Operator:=xlFilterValues
    Else
        xRg.AutoFilter Field:=2, Operator:=xlFilterValues
    End If
End With
End Sub

byundtthank you for further investigation. But what is the workaround? Can the same be achieved with other ways, say formula approach?