(VBA) Code Amendment Needed To Filter Data From A Worksheet Into A Combobox

[kelly mort]

The code below here was written for me by @Fluff some time ago. It's a very wonderful code and I love it.
I have added 2 more comboboxes to use as the criteria for doing my filtering but I am stacked with how to get it tweaked.

The new comboboxes are:
ComboBox3, which will check column Y and ComboBox4, which points to column Z

That is, the values from box1, box3 and box4 must all match in the Worksheet before box2 is populated.

Thanks in advance.

Private Sub ComboBox1_Click()
   Dim Lst As Variant
   Dim db As Worksheet
   Dim i As Long

   Set db = Sheets("Sheet1")
   With db.Range("B4", db.Range("B" & Rows.Count).End(xlUp))
      Lst = Filter(db.Evaluate("transpose(if(" & .Offset(, 1).Address & "="  & Me.ComboBox1.Value & "," & .Address & ",""#""))"), "#", False)
   End With
   
   Me.ComboBox2.List = Lst
End Sub

 

[kelly mort]

Bump

Hello again,

I still need help with this challenge.
I was thinking maybe I could not express myself properly in the first post so I want to describe the problem once again.

The code will only run when ComboBox1 is changed or click.
And when that is done, I want to filter only the rows or items in column B that match the contents of ComboBox1 in column C and ComboBox3 in column Yaw and ComboBox4 in column Z.

So once all those conditions are met on a row, I want to filter the data into ComboBox2 as the previous code was doing.

Thanks again.

Link to the other code by @Fluff:

Code Failing To Get Me Result When I Use Number Criteria Instead Of String

Private Sub ComboBox1_Click() Dim Lst As Variant Dim db As Worksheet Dim i As Long Set db = Sheets("Sheet1") With db.Range("B4", db.Range("B" & Rows.Count).End(xlUp)) Lst = Filter(db.Evaluate("transpose(if(" & .Offset(, 1).Address & "=" & Chr(34) & Me.ComboBox1.Value &...

www.mrexcel.com

 

[Fluff]

How about

Private Sub ComboBox1_Click()
   Dim Lst As Variant
   Dim db As Worksheet
   Dim i As Long

   Set db = Sheets("Sheet1")
   With db.Range("B4", db.Range("B" & Rows.Count).End(xlUp))
      Lst = Filter(db.Evaluate("transpose(if((" & .Offset(, 1).Address & "=" & Me.ComboBox1.Value & ")*(" & .Offset(, 23).Address & "=" & Me.ComboBox3.Value & ")*(" & .Offset(, 24).Address & "=" & Me.ComboBox4.Value & ")," & .Address & ",""#""))"), "#", False)
   End With
   
   Me.ComboBox2.List = Lst
End Sub

 

[kelly mort]

@Fluff
It's done.

Thanks again

 

[Fluff]

You're welcome & thanks for the feedback.