in userform met checkbox regels verbergen

[H.Weenink]

Hallo wie kan er mij helpen wanneer ik in een user formulier een aantal checkbox zet, die op hun beurt een verschillend aantal regels in een sheet laat verbergen waneer ik het vinkje aanzet en de regels weer zichtbaar worden wanneer ik het vinkje weer uitzet

bvd

 

[brandernl]

Om je op weg te helpen, (zelf mooi maken)
Maak een userform met twee checkboxen die elkaar precies overlappen

Deze code achter het userform

Private Sub checkbox1_click()
CheckBox2.Visible = False
Label2.Visible = False
Worksheets("sheet1").Rows("3:8").EntireRow.Hidden = True
CheckBox1.Visible = False
Label1.Visible = False
CheckBox2.Visible = True
Label2.Visible = True
End Sub

Private Sub checkbox2_click()
CheckBox1.Visible = False
Label1.Visible = False
Worksheets("sheet1").Rows("3:8").EntireRow.Hidden = False
CheckBox2.Visible = False
Label2.Visible = False
CheckBox1.Visible = True
Label1.Visible = True
  
End Sub

 

[Wigi]

Om de code beter te maken, kan je ook iets gebruiken in deze stijl:

CheckBox2.Visible = Not CheckBox2.Visible

Dit zet het ene onzichtbaar als het andere zichtbaar is, en vice versa. Kan je ook doen met andere elementen: bv.

CheckBox2.Visible = Not Label2.Visible

Wigi

 

[brandernl]

weer wat geleerd!