Filteren over meerdere werkbladen

[Efsix]

Beste Excellers,

Ik ben aan het knutselen met een vakantie tool voor een ploegendienst.
Hierin een opdeling zodat elke maand een apart tabblad heeft.
Het is me gelukt om via VBA en filtermogelijkheid te maken per werkblad.

Wat ik helaas, zelfs na lang zoeken niet voor elkaar krijg, is dat een gekozen filter over alle 12 maanden het zelfde doet.
Dus, ik kies een kleur en dan wil ik graag dat het filter over de tabbladen jan. febr. mrt. etc. hetzelfde doet.
Een resetknop moet alle filters weer ongedaan maken.

Kan iemand me helpen? Ik heb ik de bijlage een uitgekleed bestand wat naar ik hoop duidelijk is.

groet, Romé

 

[Niels28]

voor wit en voor de reset.

Sub Wit()
' Wit Macro
For i = 1 To Sheets.Count
    Sheets(i).Range("$B$7:$D$95").AutoFilter Field:=1, Criteria1:="Wit"
Next
End Sub

Sub Allemaal()
' reset_filter Macro

For i = 1 To Sheets.Count
    Sheets(i).Range("$B$7:$D$95").AutoFilter
Next

End Sub

Niels

 

[Efsix]

Niels,
Dank je wel voor het mee denken.
Ik heb jouw macro's in mijn knutsel verwerkt. Helaas krijg ik een foutmelding op de regel "Sheets(i).Range("$B$7:$D$95").AutoFilter"
Zou het kunnen omdat er in mijn bestand pas vanaf blad 4 gefilterd moet worden?

gr. Romé

 

[Efsix]

Niels,
Inderdaad, ik heb de eerste 3 tabbladen, waar ik overigens niet zonder kan in mijn bestand, verwijderd, en dan werkt jouw oplossing Flitsend !
met andere woorden. . hoe kan ik dit laten werken als de eerste 3 tabbladen buiten schot moeten blijven.

gr. Romé

 

[Haije]

Romé,

wijzig

For i = 1 To Sheets.Count[/count]
in
[code]For i = 4 To Sheets.Count[/count]

 

[Efsix]

Haije,
Bedankt voor de hint, ik had hem in eerste instantie zelf al bedacht, maar zonder resultaat.
Ik heb toch jouw hint gebruikt, echter in plaats van het cijfer 4 het cijfer 3! gebruikt.

Nu werkt het helemaal zoals ik zou willen.

gr. Romé

 

[Efsix]

Haije,
Bedankt voor de hint, ik had hem in eerste instantie zelf al bedacht, maar zonder resultaat.
Ik heb toch jouw hint gebruikt, echter in plaats van het cijfer 4 het cijfer 3! gebruikt.

Nu werkt het helemaal zoals ik zou willen.

gr. Romé

 

[Haije]

Romé,

wil je dan van deze vraag nog even de status wijzigen in "opgelost"?

 

[Niels28]

Ik probeer steeds een voorbeeld bestand erbij te doen maar uploaden werkt niet.
vandaar maar op deze manier.

Een optie met maar 1 macro voor alle kleuren.


http://www.mijnbestand.nl/Bestand-V6XSAGU4L343.zip


Niels

 

[Efsix]

Niels,
super, deze werkt nog mooier, en vanwege de 'eenvoud' ga ik hier mee verder,
Dank je wel

gr. Romé

 

[Efsix]

Niels,
super, deze werkt nog mooier, en vanwege de 'eenvoud' ga ik hier mee verder,
Dank je wel

gr. Romé