Button kopieeren zonder code aan te passen?

[Demeter]

Dames en heren,

Het volgende is het probleem:
Ik wil meerdere knoppen in mijn sheet maken met dezelfde code erop zodat ik de knop makkelijk kan kopieeren zonder dat de code moet worden aangepast.

Voorbeeld:
Ik heb op/in cel A38 een knop, verbergen, staan.
Met deze knop moet het mogelijk zijn om de volgende rijen te verbergen: 39 tm 63.

Dit lukt met de code:
Rows("39:63").Select
Range("A39").Activate
Selection.EntireRow.Hidden = False

Nu wil ik in de cellen A65, A92 en A119 ook een knop plaatsen welke de 24 rijen onder deze cellen doet verbergen. Dit zie ik graag gebeuren met een code zonder dat ik deze handmatig voor iedere knop moet gaan aanpassen (er komen namelijk nog meer knoppen bij).

Dacht zelf aan zoiets:
Rows ("cel van knop + 1)":"cel van knop + 25").Select
Range ("cel van knop + 1).Activate
Selection.EntireRow.Hidden = False

maar wat is de code voor: "cel van knop + n" ?


Thanks in advance,
Demeter

 

[Wigi]

Demeter, gebruik

Private Sub CommandButton1_Click()
Range("A39").Resize(24, 1).EntireRow.Hidden = True
End Sub

De 39 zal je nog moeten aanpassen vrees ik. Ik weet niet direct iets om dat automatisch te doen? Iemand anders?

Wigi