Macro kopieeren naar meerdere werkbladen

[arjanedeler]

Ik heb 3 werkbladen met de namen maandag, dinsdag en woensdag.

In het werkblad maandag heb ik macro's gemaakt voor diverse sorteerfuncties.
Als ik nu in werkblad dinsdag sta en de macro activeer sorteert hij nog steeds maandag.

Iemand enig idee hoe ik zonder alles te moeten kopieeren en de wereld aan macro's moet maken dit eenvoudig kan aanpassen.

Zou graag 2 mogelijkheden zien.

Als ik de macro activeer moet hij het werkblad aanpassen waarin ik mij bevind.
Als ik de macro activeer moet hij alle 3 de werbladen aanpassen.

Optie 1 heeft mijn voorkeur maar optie 2 kan soms ook handig zijn dus mag als toegift ook opgelost worden.

Onderstaand de eerste regel welke hij opgeeft:
ActiveWorkbook.Worksheets("Maandag").Sort.SortFields.Clear

 

[HSV]

Misschien

ActiveSheet

i.p.v. het blad te benoemen.

 

[Roncancio]

Optie 1:
Zoals HSV al opmerkte mbv ActiveSheet.

Activesheet.Sort.SortFields.Clear

Optie 2:
Met behulp van een lus door elk werkblad lopen.
bijvoorbeeld:

Dim WS as Worksheet
For Each WS in Worksheets
WS..Sort.SortFields.Clear

Next

Met vriendelijke groet,


Roncancio

 

[arjanedeler]

Allebei haartelijk bedankt. Met ActiveSheet is mijn probleem eerst verholpen.

De code voor optie 2 is helaas niet voor mij toepasbaar aangezien ik nog meer tabbladen heb. Voor nu ben ik eerst zeer geholpen en is mijn probleem opgelost.

 

[HSV]

De code voor optie 2 is helaas niet voor mij toepasbaar aangezien ik nog meer tabbladen heb. Voor nu ben ik eerst zeer geholpen en is mijn probleem opgelost.

Je kan dan met onderstaande code de eerste drie bladen doorlopen.

dim iws as integer
for iws = 1 to 3
sheets(iws).sort.sortfields.clear 
next iws

Maar als het opgelost is, prima natuurlijk.

 

[Roncancio]

De code voor optie 2 is helaas niet voor mij toepasbaar aangezien ik nog meer tabbladen heb.

Code 2 is voor alle tabbladen!

Met vriendelijke groet,


Roncancio