How to filter data using multiple Criteria using vba

[HaroonSid]

Hi
i am filter data using multiple criteria with below codes

Sub FILTER_TOOT_OLBC()
If Worksheets("OL BC").FilterMode Then

  Worksheets("OL BC").ShowAllData
Else
Sheet5.Range("$A$9:$Y$1000").AutoFilter Field:=8, Criteria1:=Array( _
        "90", "91", "92", "93", "94", "95", "96", "97", "140", "141", "142", "143", "144", "145", "146", "147"), Operator:= _
        xlFilterValues
Sheet5.Range("$A$9:$Y$1000").AutoFilter Field:=10, Criteria1:="=LB", _
        Operator:=xlOr, Criteria2:="=ESLB"
End If
End Sub

Sub FILTER_TOOT_OLBJT()
If Worksheets("OL BC").FilterMode Then

  Worksheets("OL BC").ShowAllData
Else
Sheet5.Range("$A$9:$Y$1000").AutoFilter Field:=8, Criteria1:=Array( _
        "125", "126", "127", "135", "136", "137"), Operator:= _
        xlFilterValues
Sheet5.Range("$A$9:$Y$1000").AutoFilter Field:=10, Criteria1:="=LJT", _
        Operator:=xlOr
End If
End Sub

Sub FILTER_TOOT_OLBLJ()
If Worksheets("OL BC").FilterMode Then

  Worksheets("OL BC").ShowAllData
Else
Sheet5.Range("$A$9:$Y$1000").AutoFilter Field:=8, Criteria1:=Array( _
        "170", "171", "172", "173", "174", "175", "176", "177"), Operator:= _
        xlFilterValues
Sheet5.Range("$A$9:$Y$1000").AutoFilter Field:=10, Criteria1:="=LJ", _
        Operator:=xlOr
End If
End Sub

i want to apply all of above code at once to my filter

thank you

[Winon]

Hello HaroonSid,

I would like to try a few possible options, but not by trying to recreate what I think your Workbook and Data might look like.

Please attach a sample workbook. Make sure there is just enough data to demonstrate your need.

Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate.

Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

Thank you.

[xlnitwit]

Do you need all the criteria sets exactly as you have now, or is it possible to simply combine the arrays? In other words, could you have say "92" in column H and "LJT" in column J, which would not meet any of the three criteria sets above, but would match if you simply combine all the arrays.

[Winon]

@ xlnitwit,

Exactly my take on it as well. If we had a sample Workbook, we could test accordingly.

Regards.

[HaroonSid]

Sorry for late reply
here is sample workbook and a screenshot with result as i need,
i want to combine all three macro's result like screenshot
A.JPG

[xlnitwit]

I think you will need an advanced filter for that rather than an autofilter. Is it OK to set that up in the file?

[HaroonSid]

Yes i know but how to do with vba
thanks