Microsoft Office Forums - View Single Post - Filter NOT EQUAL TO - dynamically to account for varied row counts

NoSparks · 12-19-2017, 09:11 AM

what you have can be made dynamic and reduced to three lines...

Code:

Sub Macro1_FilterNotEqual()
'
' Macro1_FilterNotEqual Macro
' AR not equal to IN in col B
'
    'Range("B1").Select
    'Selection.AutoFilter
    'ActiveSheet.Range("$A$1:$G$35").AutoFilter Field:=2, Criteria1:="<>*IN*", _
        Operator:=xlAnd
ActiveSheet.Columns("B").AutoFilter Field:=1, Criteria1:="<>*IN*", Operator:=xlAnd
    
    'Rows("12:18").Select
    'Selection.Delete Shift:=xlUp
ActiveSheet.UsedRange.Offset(1).Delete
    
    'ActiveSheet.Range("$A$1:$G$31").AutoFilter field:=2
ActiveSheet.Columns("B").AutoFilter
    
    'Range("A1").Select
    
End Sub