filter op alle geselecteerde tabbladen

[jvbaal]

Kun je in één keer op alle geselecteerde tabbladen een filter plaatsen op dezelfde rij?

groetjes
Juul

 

[Roncancio]

Via een macro:

Sub Macro1()
W = Application.Worksheets.Count
For T = 1 To W
Worksheets(T).Select
Range("A1").Select
Selection.AutoFilter
Next
End Sub

Op alle werkbladen wordt in cel A1 een autofilte geplaatst.

 

[jvbaal]

Bedankt voor je reactie.
Ik heb de macro geplaatst en van Range("A1").Select, Range("A8").Select gemaakt. Nu ging ik ervan uit dat dan de filter op rij 8 zou komen staan maar dat is niet het geval. Hoe kan ik zorgen dat het filter op rij 8 komt te staan?

groetjes
Juul

 

[Roncancio]

Bedankt voor je reactie.
Ik heb de macro geplaatst en van Range("A1").Select, Range("A8").Select gemaakt. Nu ging ik ervan uit dat dan de filter op rij 8 zou komen staan maar dat is niet het geval. Hoe kan ik zorgen dat het filter op rij 8 komt te staan?

groetjes
Juul

Door ervoor te zorgen dat regel 7 leeg is. Anders ziet Excel het niet als het begin van een nieuwe filter.

 

[jvbaal]

Ja, het is gelukt.
Hartelijk dank.
Kun je in het kort omschrijven hoe de macro in elkaar steekt of is dat te veel gevraagd?

groetjes
Juul

 

[Roncancio]

W=Application.Worksheets.Count

Het aantal werkbladen wordt geteld en de uitkomst wordt aan W gegeven.
Dus als er 3 werkbladen zijn dan is W gelijk aan 3.

Met For .... Next wordt een lus doorlopen. Hoevaak ? Dat hangt af van de waarde van W.

Vervolgens wordt het 1e werkblad geselecteerd.
Daarna wordt cel A8 van dat werkblad geselecteerd.
Op die geselecteerde cel wordt een autofilter geplaatst.

Hierna wordt de volgende werkblad geselecteerd en de lus wordt weer doorlopen.


Ik hoop dat het iets duidelijker is.

 

[jvbaal]

Heel hartelijk dank voor de uitleg. Het is me nu duidelijk.

groet
Juul