Filter a listview with combobox

[van0912]

Hello everyone,

I'm trying to filter a listview based on a combobox value (value in range I) but I don't know how to write the syntax and where to add it in my code... Could you please help me on this?

Thank you !

Private Sub UserForm_Initialize()

Dim ws As Worksheet
Dim rg As Range
Dim i As Long
Dim j As Long

Set ws = ThisWorkbook.Sheets("Test")  
Set rg = ws.Range("ReferenceTab")            

With UserForm3.ListView1             

For i = 1 To 12         
        .ColumnHeaders.Add , , rg.Offset(0, i - 1)
Next i

For i = 1 To 500
        .ListItems.Add , , rg.Offset(i, 0)
Next i

For i = 1 To 500   
For j = 1 To 11    
            .ListItems(i).ListSubItems.Add , , rg.Offset(i, j)
Next j
Next i

    .View = lvwReport

End With

Dim v, e
With Sheets("Test").Range("I4:I500")
v = .Value
End With

With CreateObject("scripting.dictionary")
.comparemode = 1

For Each e In v
If Not .exists(e) Then .Add e, Nothing
Next
If .Count Then Me.ComboBox1.List = Application.Transpose(.Keys)

End With
       
End Sub

 

[davesexcel]

If you are making a selection from the combobox, the code to populate the list control would be in the combobox_change event.
I am just looking at the one add item line.
It may not work for you, but you will see one way to check the criteria before adding the item.

For i = 1 To 500
if instr(rg.Offset(i, 0),combobox1) then
        .ListItems.Add , , rg.Offset(i, 0)
end if
Next i

 

[van0912]

If you are making a selection from the combobox, the code to populate the list control would be in the combobox_change event.
I am just looking at the one add item line.
It may not work for you, but you will see one way to check the criteria before adding the item.

For i = 1 To 500
if instr(rg.Offset(i, 0),combobox1) then
        .ListItems.Add , , rg.Offset(i, 0)
end if
Next i

Hello Daves, thanks for replying!

Sorry, I don't really understand how to do as I'm new on VBA... Could you please explain?