Filtering for three or criteria

[jordanburch]

Hey Guys,

I am not sure if you can have three different or criteria on a filter, but this seems to not work. Can anyone help?

ActiveSheet.Range("$A$1:$AY$7000").AutoFilter Field:=15, Criteria1:= _
Right(ThisWorkbook.Worksheets("Variables").Range("A3").Value, 1) & Right(ThisWorkbook.Worksheets("Variables").Range("A10").Value, 2) & "INT", Operator:=xlOr, Criteria2:=Right(ThisWorkbook.Worksheets("Variables").Range("A3").Value, 1) & Right(ThisWorkbook.Worksheets("Variables").Range("A6").Value, 2) & "INT", Operator:=xlOr, Criteria3:="="

basically the first two look like this 104INT 105INT and the last one I want to include blanks. So if it is

104INT
105INT
blank
want

if its
111INT
Dont want

does this make sense?

1004 error application error is what im getting. thanks in advance.

Jordan

 

[Fluff]

How about

   Dim x As Variant
   With ThisWorkbook.Worksheets("Variables")
      x = Array(Right(.Range("A3").Value, 1) & Right(.Range("A10").Value, 2) & "INT", Right(.Range("A3").Value, 1) & Right(.Range("A6").Value, 2) & "INT", "")
   End With
   ActiveSheet.Range("$A$1:$AY$7000").AutoFilter 15, x, xlFilterValues

 

[jordanburch]

How about

   Dim x As Variant
   With ThisWorkbook.Worksheets("Variables")
      x = Array(Right(.Range("A3").Value, 1) & Right(.Range("A10").Value, 2) & "INT", Right(.Range("A3").Value, 1) & Right(.Range("A6").Value, 2) & "INT", "")
   End With
   ActiveSheet.Range("$A$1:$AY$7000").AutoFilter 15, x, xlFilterValues

works! as always thanks a bunch fluff!

 

[Fluff]

You're welcome & thanks for the feedback.