VBA Multiple <> Filter

[sachavez]

Hello!

I'm looking to delete all rows not containing the following in column E. I have the following code, but it's not working. Any ideas?

With ActiveSheet.UsedRange
       .AutoFilter field:=5, Criteria1:=Array("<>PN", "<>RN", "<>DR", "<>TA"), Operator:=xlFilterValues
       .Offset(1, 0).SpecialCells(xlCellTypeVisible).EntireRow.Delete
End With

Thanks!

 

[Fluff]

You are limited to 2 values when using <> in an autofilter.
Have a look at advanced filters instead https://www.contextures.com/xladvfilter01.html
Alternatively if the values are in Col E are set filter on the values you want to delete.

 

[sachavez]

Thanks. I will look at the resource.

Steve

 

[Peter_SSs]

You could also try AutoFilter with the criteria built up this way.

Sub AutoFltrMultiNotEqual()
  Dim sCrit As String
  Dim a As Variant, itm As Variant
  
  With ActiveSheet.UsedRange
    a = .Columns(5).Value
    For Each itm In a
      Select Case itm
        Case "PN", "RN", "DR", "TA"
        Case Else: sCrit = sCrit & "|" & itm
      End Select
    Next itm
    .AutoFilter Field:=5, Criteria1:=Split(Mid(sCrit, 2), "|"), Operator:=xlFilterValues
    .Offset(1).EntireRow.Delete
    .AutoFilter
  End With
End Sub