Filter a listbox with a combobox and seach button

Dear pros,

I need help with the attached small application please. Open the application and click on the LISTBOX button. I cannot seem to figure out the code for the Filter by Item button or the Filter by Representative button. I would like to select an item from either of those dropdowns in the search box, click on the relevant button and the list box will populate to show the results.

For example, if I were to select Chocolate Bars from the dropdown and click filter by item, I want to see only the three lines [i.e. line 2, 6 and 7] present in the listbox, and I want to be able to doubleclick on any of those lines to go to the record if I wish.

Similarly, if I select Robert from the other dropdown and click Filter by Representative, I want to see the relevant three lines [i.e. 4, 5 and 8] relating to Robert, present in the listbox, where I can again double click to go to the record [i.e. the data entry userform related to particular record selected.

I know it might be a piece of cake for some of you but I spent a very long time trying to figure out this code but with no luck.

I have attached a file for you to offer your coding magic!

Thanks for your help!


THIS HAS BEEN RESOLVED ALL. THANKS

Private Sub CommandButton1_Click()
    Dim i As Integer
    Dim j As Integer
    
    ListBox1.RowSource = ""
    
    j = 0
    
    For i = 2 To Range("B65536").End(xlUp).Row
        If ComboBox1.Text = Cells(i, 2) Then
            With ListBox1
            .AddItem
            .list(j, 0) = Cells(i, 1)
            .list(j, 1) = Cells(i, 2)
            .list(j, 2) = Cells(i, 3)
            .list(j, 3) = Cells(i, 4)
            End With
            j = j + 1
        End If
    Next i
    
End Sub

Private Sub CommandButton2_Click()

    Dim i As Integer
    Dim j As Integer
    
    ListBox1.RowSource = ""
    
    j = 0
    
    For i = 2 To Range("C65536").End(xlUp).Row
        If ComboBox2.Text = Cells(i, 3) Then
            With ListBox1
            .AddItem
            .list(j, 0) = Cells(i, 1)
            .list(j, 1) = Cells(i, 2)
            .list(j, 2) = Cells(i, 3)
            .list(j, 3) = Cells(i, 4)
            End With
            j = j + 1
        End If
    Next i

End Sub

conceptually i found this the easiest way to do it
which is basically clear listbox and manually add every line back in that matches criteria via a loop

the alternative way to do it is to "create" the list somewhere and use that list as rowsource
this alternative method would be if you had another use of subset data you created with your filter

should probably put something in there to reset to original form/list but you should be able to do that if you have come this far

jindon, wow - thanks for your help!

humdingaling - thanks a lot too.

I am sorry for cross posting - I am new to the forums and will note this for the future. If I can delete a post I will do so.

I appreciate your help folks and sorry again for cross posting.