On Error Resume Next - cover all autofilter criteria

[horizonflame]

Hi All

Just a quick one - can I check the error handler covers all my autofilter criteria? I can't avoid the errors occurring on any of the criteria, I just want to skip over.

Sub DataRaw()
    Sheets("DataInput").Select
    
    On Error Resume Next
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=11, Criteria1:= _
        "=Waste", Operator:=xlAnd
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=14, Criteria1:=">0", _
        Operator:=xlAnd
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=1, Criteria1:=Array("<>*cost*", _
        "<>*refurb*", _
        "<>*rfbr*"), _
        
        Operator:=xlFilterValues
    On Error GoTo 0
    
End Sub

Many Thanks

 

[Paul Ked]

On Error Resume Next should skip over all errors, yes.

 

[horizonflame]

@Paul Ked many thanks for confirming

 

[Fluff]

Just for your info, the filter on Field 1 will never work, as you cannot filter on more than two criteria when using non-exact matches.

 

[horizonflame]

@Fluff Thanks for that gem of info, I wasn't aware of that from my research.

I'm fortunate that my Source data is only temporary then wiped so I have changed the code to delete those rows before filtering on other criteria:

 Sub DataRaw()

    Sheets("DataInput").Select
    
    On Error Resume Next
    
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=4, Criteria1:= _
        "=*cost*", Operator:=xlOr, Criteria2:="=*spare*"
    Range("$A$2:$W$20000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    
    Selection.AutoFilter
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=4, Criteria1:= _
        "=*refb*", Operator:=xlOr, Criteria2:="=*refurb*"
    Range("$A$2:$W$20000").Select
    Selection.SpecialCells(xlCellTypeVisible).Select
    Selection.EntireRow.Delete
    
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=11, Criteria1:= _
        "=Waste", Operator:=xlAnd
    ActiveSheet.Range("$A$2:$W$20000").AutoFilter Field:=14, Criteria1:=">0", _
        Operator:=xlAnd
    
    On Error GoTo 0

 

[Fluff]

Glad you sorted it & thanks for the feedback