How to filter listbox values based on a Textbox value
I sure hope the following piece of code is what you are looking for. Private Sub Textbox1_Change() Dim i As Long Dim arrList As Variant Me.ListBox1.Clear If TMP.Range(“A” & TMP.Rows.Count).End(xlUp).Row > 1 And Trim(Me.TextBox1.Value) <> vbNullString Then arrList = TMP.Range(“A1:A” & TMP.Range(“A” & TMP.Rows.Count).End(xlUp).Row).Value2 For i = LBound(arrList) To UBound(arrList) If InStr(1, arrList(i, 1), Trim(Me.TextBox1.Value), … Read more