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

[kelly mort]

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 & Chr(34) & "," & .Address & ",""#""))"), "#", False)
   End With
   
   Me.ComboBox2.List = Lst
End Sub

This code was written by @Fluff and has been running smoothly until I tried it with numbers instead of the usual string.
Instead of the X, Y, Z criteria I was using before, I am now using 1, 2, 3 criteria but the code is not able to load the data into combobox2.
Can someone please fix that for me?

Thanks in advance.

 

[Fluff]

You need to use

      Lst = Filter(db.Evaluate("transpose(if(" & .Offset(, 1).Address & "=" & Me.ComboBox1.Value & "," & .Address & ",""#""))"), "#", False)

 

[mart37]

remove chr(34)

 

[kelly mort]

remove chr(34)

Resolved. Have a wonderful time

 

[Fluff]

Glad we could help & thanks for the feedback.