Excel dynamic search vba code

[photoshopper]

With this vba macro for excel i get instant search filter when i type the whole word. But i want it as following, when i type (O) for opel, that i get opel already showing.

This is the code:

Private Sub TextBox1_Change()
Dim Ray As Variant
If Len(TextBox1.Value) = 0 Then
    Sheet1.AutoFilterMode = False
    Else
        If Sheet1.AutoFilterMode = True Then
            Sheet1.AutoFilterMode = False
        End If
    Ray = Split(TextBox1, "+")
    Sheet1.Range("A2:F" & Rows.Count).AutoFilter field:=1, Criteria1:=Ray, Operator:=xlFilterValues 
    End If

End Sub

This is the test file:

https://drive.google.com/open?id=1KDwE2jT_u35wPhd5dR7Xi3X31ddzXDNx

 

[Hui]

Photoshopper

Firstly, Welcome to the Chandoo.org Forums

Have a read of : https://chandoo.org/wp/filter-as-you-type-excel/

 

[charlesdh]

This appears to be crosspost.
https://www.queryxchange.com/q/2_1378851/excel-dynamic-search-vba-code/
https://superuser.com/questions/1378851/excel-dynamic-search-vba-code
https://www.questarter.com/q/excel-dynamic-search-vba-code-2_1378851.html

Charles