Macro issues

[Royke007]

Hallo allemaal

Ik ben een document Bekijk bijlage Concept doc.xlsm aan het schrijven om het registreren van bepaalde gegevens in mijn functie sneller en effectiever te maken.

Ik dit document zitten knoppen verwerkt die een functie moeten krijgen.

Voor knop 1 rij 22 t/m 49, al ik erop klik moeten deze rijen zich verberen en als ik er weer op klik moeten deze rijen weer zichtbaar worden.

Dit geldt ook voor knoppen 2 , 3, 4 en 5 met hun specifieke rijen.

Ook zou ik het ook graag zien dat als knop 1 geactiveerd is en open staat dat alle andere knoppen automatisch weer sluiten (dicht).

Uiteraard geldt dit ook weer voor knoppen 2, 3, 4 en 5.

Wie kan mijn helpen hier een Macro voor te schrijven ??



Gr,

Roy

 

[edmoor]

Voorbeeld voor knop 1:

Sub Mechtoggle()
    Rows("22:49").Hidden = Not Rows("22:49").Hidden
End Sub

Voor het verbergen van de overige rijen zet je dan .Hidden = True

 

[snb]

Gebruik een Userform om gegevens in te voeren.

 

[Royke007]

Goedemorgen

Werkt dank je wel. Alleen die laaste opmerking krijg ik niet werkende.
Voor het verbergen van de overige rijen zet je dan .Hidden = True""

Waar moet ik die plaatsen ??

Zo ? : Sub Mechtoggle()
    Rows("22:49").Hidden = Not Rows("22:49").Hidden=true
End Sub
 of 

Sub Mechtoggle()
    Rows("22:49").Hidden = Not Rows("22:49").Hidden
End Sub
.hidden=true

??

De rest werkt gelukkig dank je wel

Gr Roy

 

[edmoor]

Nee, zo:

Sub Mechtoggle()
    Rows("22:49").Hidden = Not Rows("22:49").Hidden
    Rows(<je specifieke : rijen voor knop 1).Hidden=true
End Sub

 

[Royke007]

Hallo Edmoor

Helemaal top. Dit werkt perfect nu. Dank je wel.:thumb:

Gr,

Roy