Named Argument Not Found Error at Operator:=xlOr

[siddo]

Dim rcit As Range With Range("F1", Range("F" & Rows.Count).End(xlUp)) Set rCrit = .Offset(, .Columns.Count + 1).Resize(9, 1) rCrit.Cells(2).Formula = "=OR(AND(FIND(""SOC"",F2),FIND(""Pre-Imp"",F2)),AND(FIND(""Pre-Imp"",F2),FIND(""SOC"",F2)))" rCrit.Cells(3).Formula = "=OR(AND(FIND(""ISO"",F2),FIND(""Pre-Imp"",F2)),AND(FIND(""Pre-Imp"",F2),FIND(""ISO"",F2)))" rCrit.Cells(4).Formula = "=OR(AND(FIND(""TISAX"",F2),FIND(""Pre-Imp"",F2)),AND(FIND(""Pre-Imp"",F2),FIND(""TISAX"",F2)))" rCrit.Cells(5).Formula = "=OR(AND(FIND(""SSAE16"",F2),FIND(""Pre-Imp"",F2)),AND(FIND(""Pre-Imp"",F2),FIND(""SSAE16"",F2)))" rCrit.Cells(6).Formula = "=OR(AND(FIND(""Readiness"",F2),FIND(""SOC"",F2)),AND(FIND(""Readiness"",F2),FIND(""ISO"",F2)))" rCrit.Cells(7).Formula = "=OR(AND(FIND(""Readiness"",F2),FIND(""TISAX"",F2)),AND(FIND(""Readiness"",F2),FIND(""SSAE16"",F2)))" rCrit.Cells(8).Formula = "=OR(FIND(""#$SR"",F2),FIND(""#$IR"",F2))" .AdvancedFilter Action:=xlFilterInPlace, CriteriaRange:=rCrit, Unique:=False, Operator:=xlOr End With rCrit.Cells(2).ClearContents End Sub

Request if anyone could help

 

[Micron]

I looked at the documentation for AdvancedFilter - there is no named argument called "Operator". Perhaps this will guide you

Excel VBA Examples with Advanced Filter Criteria (6 Cases)

In this article, we've showed 6 examples of Excel VBA advanced filter with criteria. We also added the codes for the users.

www.exceldemy.com