Besturingselementen en macro verbergen rijen op anders werkblad

[lseverins]

Hoi,

Ik probeer via besturingselement op ander werkblad regels te verbergen.
Vinkje aan is regels zichtbaar
Vinkje uit is regels verbergen

Ik krijg het niet voor elkaar.

Hoe kan ik dit instellen?

Bekijk bijlage werkprogramma.xlsx

Alvast bedankt!!!

 

[HSV]

Pak de besturingselement uit de activeX controls, en zet de code in bladmodule Keuzeformulier.

Private Sub CheckBox1_Click()
 Sheets("werkprogramma").Rows("13:239").Hidden = CheckBox1 = False  'of = not checkbox1
End Sub

 

[jkpieterse]

Of gebruik degene die je al had en knoop hem aan deze macro in een gewone module:

Sub CheckBox1_Click()
    Worksheets("Werkprogramma").Range("A2:A100").EntireRow.Hidden = (ActiveSheet.CheckBoxes(Application.Caller) = -4146)
End Sub

 

[lseverins]

Ik heb de eerste oplossing gebruikt.
en het werkt.
Nu heb ik een tweede aangemaakt, en opzich werkt het maar je moet soms een keer aan en uit klikken. Dit is niet handig...

Doe ik iets verkeerd?
Kan ik het op een andere manier oplossen?

Ik het bestand bijgevoegd voor de volledigheid.

Bedankt voor de reactie!!Bekijk bijlage werkprogramma.xlsm

 

[HSV]

Dat is maar eenmalig.... bij het aanmaken van de checkbox.

 

[lseverins]

Beste Harry,

bedankt voor je antwoord, maar ik snap je antwoord niet ,
het is maar eenmalig??

sorry maar dit onderdeel van -excel is nieuw voor mij.

gr Lenny+

 

[HSV]

Lenny; als je een checkbox op je werkblad plaatst hoef je het maar een keer aan en uit te vinken.
Daarna werkt het zoals gewenst.

 

[lseverins]

Bedankt!!!