VBA on multiple filters basing on multiple cell values

[chasoe]

Dear sirs,

I would like to know why I cannot fix the errors in below codes :

ActiveSheet.Range("Filter_Range").AutoFilter Field:=1, _
    Criteria1:="=" & Range("X4").Value & """, Operator:=xlOr, _
    Criteria2:="=" & Range("X5").Value & """, Operator:=xlOr, _
    Criteria3:="=" & Range("X5").Value & """, Operator:=xlOr, _
    Criteria4:="=" & Range("X5").Value & """

It seems the error stuck as from line 2.

Could anyone help ?

Thanks in advance.

 

[Logit]

Does this work in your macro ?

Option Explicit

Sub filtrRnge()

ActiveSheet.Range("Filter_Range").AutoFilter Field:=1, _
    Criteria1:="" = "" & Range("X4").Value & """", Operator:=xlOr, _
    Criteria2:="" = "" & Range("X5").Value & """", Operator:=xlOr, _
    Criteria3:="" = "" & Range("X5").Value & """", Operator:=xlOr, _
    Criteria4:="" = "" & Range("X5").Value & """"

End Sub

 

[NoSparks]

If you're filtering Field 1 for only 2 things (X4 and X5 values) then I don't know why you have Criteria3 (X5 value) and Criteria4 (X5 value again)

to filter only for X4 and X5 values

ActiveSheet.Range("Filter_Range").AutoFilter Field:=1, _
    Criteria1:=Range("X4").Value, Operator:=xlOr, _
    Criteria2:=Range("X5").Value, Operator:=xlFilterValues

If you're filtering the field for more than 2 things you need to use an array as the Criteria
Assuming your Criteria3 was meant to be X6 value and Criteria4 meant to be X7 value

ray = Application.Transpose(Range("X4").Resize(4).Value)
Range("Filter_Range").AutoFilter Field:=1, Criteria1:=ray, Operator:=xlFilterValues

 

[chasoe]

Many thanks for your prompt reply.

In fact, I should apologize for posting the wrong codes as I was so furious testing all possibilities.
The original codes should be as below, which I intended to extend from X4 to X13 (ie more than 2 cells) :

ActiveSheet.Range("Filter_Range").AutoFilter Field:=1, _
    Criteria1:="" = "" & Range("X4").Value & """", Operator:=xlOr, _
    Criteria2:="" = "" & Range("X5").Value & """", Operator:=xlOr, _
    Criteria3:="" = "" & Range("X6").Value & """", Operator:=xlOr, _
    Criteria4:="" = "" & Range("X7").Value & """"

I've also checked subsequently that the above codes only valid for 2 criteria, and will receive error if more than 3.

And I just tested your codes using array which I don't know before, and they works perfectly.

Thank you indeed.