Add 3rd criteria to VBA filter

[ChrisMac1]

Hi there,

I have a long code that includes the following...

ActiveSheet.Range("$A$1:$AG$10000").AutoFilter Field:=15, Criteria1:= _
"=EXAMPLE1", Operator:=xlOr, Criteria2:= _
"=EXAMPLE2"

It's a code to add a filter to column O to show all the EXAMPLE1 and EXAMPLE2's in the column, that will then be deleted using the follow on code. I need to add a third option to delete, how would I add EXAMPLE3 to the above please? My guesses and tests so far haven't worked...

Many thanks,
Chris.

 

[Fluff]

How about

ActiveSheet.Range("$A$1:$AG$10000").AutoFilter 15, Array("Example1", "Example2", "Example3"), xlFilterValues

 

[ChrisMac1]

Hi Fluff, nice to hear from you again!

The filter worked but then the delete code misfired...

If ((ActiveSheet.AutoFilter.Range.SpecialCells(xlCellTypeVisible).Count / ActiveSheet.AutoFilter.Range.Columns.Count) - 1) > 0 Then '// Checks if the autofilter found anything
With Range("A2:AG" & lastrow)
.EntireRow.Delete

 

[ChrisMac1]

...didn't delete...

 

[Fluff]

Try it like

With ActiveSheet
   .Range("$A$1:$AG$10000").AutoFilter 15, Array("Example1", "Example2", "Example3"), xlFilterValues
   .AutoFilter.Range.Offset(1).EntireRow.Delete
End With

 

[ChrisMac1]

Wonderful stuff, as always Fluff, thanks very much. I'll test the full process, but the interim individual test on one sheet and just this code worked just fine, thanks!

 

[Fluff]

You're welcome & thanks for the feedback.