Macro Autofilter criteria uit meerdere cellen

[henderickxc]

Hallo,

Mijn uitleg kan heel ingewikkeld lijken, maar het resultaat is zeer simpel. Het zal waarschijnlijk helpen als u de bijlage open doet.

Mijn tabel begint van A6 tot I404 (waarvan headers van A6 tot I6).
Mijn criteria's zitten in cel B1, B2, B3 en B4.

Criteria B1 moet filteren in kolom B
Criteria B2 moet filteren in kolom E
Criteria B3 moet filteren in kolom H
Criteria B4 moet filteren in kolom I

Momenteel heb ik dit als macro:
Private Sub CommandButton1_Click()
Range("A6").AutoFilter Field:=2, Criteria1:=Range("B1").Value
Range("A6").AutoFilter Field:=5, Criteria1:=Range("B2").Value
Range("A6").AutoFilter Field:=8, Criteria1:=Range("B3").Value
Range("A6").AutoFilter Field:=9, Criteria1:=Range("B4").Value
End Sub

Dit werkt goed zolang ik in elke criteria-cell iets invul. Zodra ik een criteria-cell leeg laat, gaat hij mij ook uitsluitend de lege cellen uitfilteren.

Mijn bedoeling is dat, als ik een criteria-cell blanco laat, hij geen rekening moet houden met deze criteria.

Kan iemand mij hiermee helpen?

Dank bij voorbaat,
Mvg

 

[Wigi]

Hoi

bvb.

If Range("B1").Value <> "" Then Range("A6").AutoFilter Field:=2, Criteria1:=Range("B1").Value

Rest is analoog.

Wigi

 

[henderickxc]

Perfecto

Hoi

bvb.

If Range("B1").Value <> "" Then Range("A6").AutoFilter Field:=2, Criteria1:=Range("B1").Value

Rest is analoog.

Wigi

Perfecto Wigi,

Du bist ein krak!!
Ik dacht wel aan een IF-THEN commando, maar wist niet hoe ik dit moest formuleren.

DANK U :thumb:,
Nu ga ik met de eer lopen op het werk lol

Mvg,
Christophe

 

[Wigi]

Graag gedaan, was niet echt een lastige vraag

Zet je de vraag nog op opgelost aub?