Automatiseren?

[Demeter]

Beste lezer,

Ik heb een werkblad waar een x aantal knoppen op komen. Deze knoppen zorgen ervoor dat de 15 regels onder deze knop kunnen worden verborgen of zichtbaar worden gemaakt.

Probleem is alleen dat de code nu hard wordt geprogrammeerd, rijen staan vast in de code.
Is er iemand die mij zou kunnen helpen om deze variabel te maken? misschien in combi met active cell (van de knop)?

Mijn code tot nu toe is:

Sub P1_rij_zichtbaar_maken()

    Rows("12:22").Select 
    Range("A12").Activate
    Selection.EntireRow.Hidden = False
    
End Sub
Sub P1_rij_verbergen()

    Rows("12:22").Select 
    Selection.EntireRow.Hidden = True
    
End Sub

Thanks,
Ferenc

 

[LucB]

Hallo Ferenc,

Om een beter idee te krijgen.
Kun je een Zip hier plaatsen met de knoppen(Plus macro's)
en de gegevens in kolom A.

 

[Demeter]

Now you see me now you don't.

Hierbij een voorbeeld.

Gaat om het verbergen en laten zien van projecten in een planning.
Macro's staan in module: knoppen.

Bijvoorbaat dank,
Ferenc

 

[LucB]

Hallo Ferenc,

Mooie layout.
Hopelijk is dit naar genoegen.

 

[Demeter]

Yep

Fantastisch dat is precies waar ik naar op zoek was.
Deze gaat zeker mijn archief in als sniplet.

Thanks Luc. :thumb:

Whoehah