Filter criteria assistance

[brendanolear]

Can someone advise what is wrong with the Criteria 1 segment pleas?


With ActiveSheet
lrow = .Cells(.Rows.Count, 1).End(xlUp).Row
Set rngtarget = .Range("A2:P" & lrow) 'Set begin row here
With rngtarget
.AutoFilter field:=16, Criteria1:=Not "East" Or "West"

End With
rngtarget.Columns("P").SpecialCells(xlCellTypeVisible).FormulaR1C1 = "Central"
rngtarget.AutoFilter
End With

 

[Fluff]

Try

.AutoFilter 16, "<>East", xlOr, "<>West"

 

[DanteAmor]

I guess you want to filter everything different from East and different from West

.AutoFilter field:=16, Criteria1:="<>East", Operator:=[COLOR=#ff0000]xlAnd[/COLOR], Criteria2:="<>West"

 

[Fluff]

Keep getting my logic mixed up, especially with <>
@brendanolear
Ignore my code in post#2 & use Dante's in post#3