VBA listbox search

[chunu]

Hi,
can some one help me to add search option in user form(search as you type)
here is the code

Private Sub cmdadd_Click()
Dim addme As Range
    Dim x As Integer
    Set addme = Sheet1.Cells(Rows.Count, 3).End(xlUp).Offset(1, 0)
    For x = 0 To Me.lstSelector.ListCount - 1
        If Me.lstSelector.Selected(x) Then
            addme = Me.lstSelector.List(x)
            addme.Offset(0, 1) = Me.lstSelector.List(x, 1)
            addme.Offset(0, 2) = Me.lstSelector.List(x, 2)
            addme.Offset(0, 3) = Me.lstSelector.List(x, 3)
            addme.Offset(0, 4) = Me.lstSelector.List(x, 4)
            addme.Offset(0, 5) = Me.lstSelector.List(x, 5)
            Set addme = addme.Offset(1, 0)
        End If
    Next x
    For x = 0 To Me.lstSelector.ListCount - 1
        If Me.lstSelector.Selected(x) Then Me.lstSelector.Selected(x) = False
    Next x
End Sub

 

[chunu]

Ok..solved

Thanks to
https://www.mrexcel.com/forum/members/lhartono.html