fast filter data on listbox with textbox

[totalchaoz]

i have data on listbox based on sheet, and i want filter data on listbox based on textbox, thank's masters

[LeoTaxi]

With sheet2 as helper

Private Sub TextBox1_Change()
lr = Range("A" & Rows.Count).End(xlUp).Row
ActiveSheet.Range("A1", "B" & lr).AutoFilter Field:=2, Criteria1:="=*" & TextBox1 & "*", Operator:=xlAnd
On Error GoTo vervolg
With Sheets("sheet2")
    .Cells.ClearContents
    Range("A2", "B" & lr).SpecialCells(xlCellTypeVisible).Copy .Range("A1")
    arr = .Range("A1").CurrentRegion
    ListBox1.List = arr
    Range("A1", "B" & lr).AutoFilter
End With
Exit Sub
vervolg:
    MsgBox "No records with characters :  " & TextBox1
    TextBox1 = ""
    ListBox1.Clear
End Sub

Private Sub UserForm_Initialize()
With Sheets("data_barang")
    lr = .Range("A" & Rows.Count).End(xlUp).Row
    arr = .Range("A2", "B" & lr)
    ListBox1.List = arr
End With
End Sub

Kind regards
Leo

[totalchaoz]

Thank's I got it, Tralaa, xixixixi.....Perfecto

[bakerman2]

Different approach.
Select name in combobox with unique, sorted values. Click button to filter listbox.
I chose for Commandbutton because using Change-event leads to excesive filtering of listbox.

[totalchaoz]

Thank's Very Much, Master bakerman2 and LeoTaxi, I Got It....xixxixixi

[bakerman2]

You're very welcome and thanks for adding rep points.