Opgelost Meerdere filter voorwaardes (meer dan 2) in 1 kolom

[goose323]

Als ik in kolom A meerdere (2) filtervoorwaardes wil selecteren werkt onderstaande code, maar als ik er een 3e aan toevoeg werkt hij plots niet meer. Weet iemand hoe ik dat kan oplossen?

Sub FilterRowsOR()

Worksheets("CRM data NL").AutoFilterMode = False
Worksheets("CRM data NL").Range("A1").autofilter Field:=1, Criteria1:="PO**", Operator:=xlOr, Criteria2:="PP*"

End Sub

en deze doet het dus niet

Sub FilterRowsOR()

Worksheets("CRM data NL").AutoFilterMode = False
Worksheets("CRM data NL").Range("A1").autofilter Field:=1, Criteria1:="PO**", Operator:=xlOr, Criteria2:="PP*", Operator:=xlOr, Criteria3:="PA*"

End Sub

Wat is hier fout aan

 

[OctaFish]

Volgens de Microsoft site kun je er maar twee gebruiken. En dan lijkt het mij logisch dat hij bij een derde crasht.

 

[goose323]

oh, oke, dank je, Ik zal het dus op een andere manier moeten oplossen

 

[JEC.]

Probeer deze

Sub jec()
 Dim r
 With Sheets("CRM data NL").Cells(1).CurrentRegion
   Set r = .Offset(, .Columns.Count + 1).Range("a1:a2")
   r(2).Formula = "=max(--(left(A2,2)={""PO"",""PA"",""PP""}))>0"
   .AdvancedFilter 1, r
   r.ClearContents
 End With
End Sub

 

[Warme bakkertje]

Op een extra werkblad kan je zoiets als deze waarbij je nog enkel de bereiken moet aanpassen.

=FILTER(Sheet1!A2:A11;(LEFT(Sheet1!A2:A11;2)="PO")+(LEFT(Sheet1!A2:A11;2)="PP")+(LEFT(Sheet1!A2:A11;2)="PA"))

 

[JEC.]

Zo ook nog een formule optie waarbij je heel gemakkelijk je criteria kunt uitbreiden in de "cr" variable

=LET(t;A2:A13;cr;{"PO"\"PA"\"PP"};FILTER(t;MMULT(--(LEFT(t;2)=cr);SEQUENCE(COLUMNS(cr);;;0))))

 

[JEC.]

Mocht je al beschikken over de nieuwe regex functies in excel

=LET(t;A2:A11;FILTER(t;ISTEXT(REGEXEXTRACT(t;"^P[OAP].*"))))

 

[JEC.]

Beter:

=TOCOL(REGEXEXTRACT(A2:A11;"^P[OAP].*");2)

 

[snb]

sheet1.columns(1).autofilter 1, array("PO","PA","PP"),7

 

[JEC.]

Die zal niet werken