View Single Post
 
Old 12-19-2017, 09:11 AM
NoSparks NoSparks is offline Windows 7 64bit Office 2010 64bit
Excel Hobbyist
 
Join Date: Nov 2013
Location: British Columbia, Canada
Posts: 842
NoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of lightNoSparks is a glorious beacon of light
Default

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
Reply With Quote