Opgelost Meerdere selectie criteria autofilter in macro

[amarob]

Hallo,

Ik wil in een macro met autofilter op max 4 selectiecriteria zoeken in dezelfde kolom.

c.AutoFilter
c.AutoFilter 5, Criteria1:=Sheets("Zoektool").Range("F29"), Operator:=xlOr, Criteria2:=Sheets("Zoektool").Range("F30")

Met bovenstaande 2 selectiecriteria werkt het prima.

c.AutoFilter
c.AutoFilter 5, Criteria1:=Sheets("Zoektool").Range("F29"), Operator:=xlOr, Criteria2:=Sheets("Zoektool").Range("F30"), Operator:=xlOr, Criteria3:=Sheets("Zoektool").Range("F31")

Maar met bovenstaande 3 selectiecriteria werkt het niet. En dus ook niet met onderstaande 4 selectiecriteria.

c.AutoFilter
c.AutoFilter 5, Criteria1:=Sheets("Zoektool").Range("F29"), Operator:=xlOr, Criteria2:=Sheets("Zoektool").Range("F30"), Operator:=xlOr, Criteria3:=Sheets("Zoektool").Range("F31"), Operator:=xlOr, Criteria4:=Sheets("Zoektool").Range("F32")

Wat doe ik fout?

 

[emields]

geen voorbeeldbestand plaatsen.

 

[jkpieterse]

Simpel:

c.AutoFilter 5, Criteria1:=Sheets("Zoektool").Range("F29:F32").Value

 

[HSV]

Als de criteria getallen zijn:

with sheets("Zoektool")
c.AutoFilter 5, array(.range("f29").text, .range("f30").text, .range("f31").text, .range("f32").text), 7
end with

 

[amarob]

Simpel:

c.AutoFilter 5, Criteria1:=Sheets("Zoektool").Range("F29:F32").Value

Helaas werkt deze simpele oplossing niet maar wel bedankt voor het meedenken.

 

[amarob]

Als de criteria getallen zijn:

with sheets("Zoektool")
c.AutoFilter 5, array(.range("f29").text, .range("f30").text, .range("f31").text, .range("f32").text), 7
end with

Deze oplossing werkt prima ondanks het feit dat de criteria geen getallen zijn maar enkele letters.

 

[HSV]

Kan ook nog.

c.AutoFilter 5, filter(application.transpose([if(zoektool!f29:f32="","~",zoektool!f29:f32)]), "~", false), 7