Using comboboxes to filter a listbox

[Waimea]

I have an userform with 6 comboboxes, named combobox1, combobox2, combobox3, combobox4, combobox5, combobox6 and a listbox named listbox1.

I have a textbox named textbox1 and a button named commandbutton1.

I want to filter the listbox with criteria in the comboboxes such as "> 200" or "< 1000."

So if I select ">200" in combobox1 and ">5000" in combobox2 the items where this is true would populate the listbox.

Private Sub CommandButton1_Click()
    Dim Crit1 As String
    Dim Crit2 As String
    Dim Crit3 As String
    Dim Crit4 As String
    Dim Crit5 As String
    Dim Crit6 As String
    
    Crit1 = ComboBox1.Value
    Crit2 = ComboBox2.Value
    Crit3 = ComboBox3.Value
    Crit4 = ComboBox4.Value
    Crit5 = ComboBox5.Value
    Crit6 = ComboBox6.Value

End Sub

I have searched and found this thread https://www.mrexcel.com/forum/excel...utofilter-2.html?highlight=listbox+search+vba However the code doesn't do what I am trying to do.

Do I need to use autofilter? Where do I start?

 

[Waimea]

Yes, that is what I am saying. Then nothing happens

But in another userform I am calculating basic summary statistics on continent and country level.

 

[MickG]

You need this in Userform2 module:-

Show Userform "vbmodeless"
like this:-

UserForm2.Show vbModeless

and add this to Userform2 Module

Private Sub ListBox1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
UserForm3.Show vbModeless
End Sub

Then this in Userform3 module:-

Private Sub UserForm_Initialize()
With ListBox1
    .ColumnCount = 6
    .List = UserForm2.ListBox1.List
    .ColumnWidths = "70;70;70;70;70;70"
End With
End Sub

 

[Waimea]

Hi Mick,

thank you very much for all of your help with this!

I have learned from your code and I just read about vbModeless!

Now I don't have any more questions, your code is flawless!

 

[MickG]

You're very welcome