Snasui Excel Forum

Code: Select all

    Range("A1:AQ1").Select
    Selection.AutoFilter
    
    ActiveSheet.Range("$A$1:$AQ$16").AutoFilter Field:=43, Criteria1:=Array("2" _
        , "3", "4", "="), Operator:=xlFilterValues
  
    ActiveSheet.Range("$A$1:$AQ$16").AutoFilter Field:=42, Criteria1:="<>"
    Range("AO10").Select
    
    ActiveSheet.Range("$A$1:$AQ$16").AutoFilter Field:=41, Criteria1:="<>"

Code: Select all

Public Sub FilterTest()
    Dim rRegion As Range, iCol As Integer
    With ThisWorkbook.ActiveSheet
        If .AutoFilterMode Then .AutoFilterMode = False
        Set rRegion = .UsedRange
    End With
        
    With rRegion
        iCol = .Columns.Count
        .AutoFilter Field:=iCol, Criteria1:=Array("2" _
        , "3", "4", "="), Operator:=xlFilterValues
        .AutoFilter Field:=iCol - 1, Criteria1:="<>"
        .AutoFilter Field:=iCol - 2, Criteria1:="<>"
    End With
End Sub