in bijlage heb ik een voorbeeld bestandje
Dit werkt al gedeeltelijk maar nog niet helemaal heb een deel van de code al kunnen maken maar nog niet helemaal
Ik heb drie keuzes (keuze 1, keuze 2, keuze 3)
Als je die aanvinkt (meer dan 1 keuze is mogelijk) Dan gaat hij rijen die verborgen zijn tevoorschijn brengen (bij de drie keuzemogelijkheden zijn het dezelfde rijen die tevoorschijn komen)
Nu zou ik graag hebben dat als je je vergist hebt en je 1 van de keuzemogelijkheden afvinkt. Hij eerst kijkt of er nog andere checkboxen aangevinkt zijn van keuze 1 of keuze 2 of keuze 3. Is dat het geval moet hij de rijen niet verbergen. Als alle keuzemogelijkheden wel afgevinkt zijn, dan pas mag hij de rijen verbergen.
Bekijk bijlage test group1.xlsm
Dit werkt al gedeeltelijk maar nog niet helemaal heb een deel van de code al kunnen maken maar nog niet helemaal
Ik heb drie keuzes (keuze 1, keuze 2, keuze 3)
Als je die aanvinkt (meer dan 1 keuze is mogelijk) Dan gaat hij rijen die verborgen zijn tevoorschijn brengen (bij de drie keuzemogelijkheden zijn het dezelfde rijen die tevoorschijn komen)
Nu zou ik graag hebben dat als je je vergist hebt en je 1 van de keuzemogelijkheden afvinkt. Hij eerst kijkt of er nog andere checkboxen aangevinkt zijn van keuze 1 of keuze 2 of keuze 3. Is dat het geval moet hij de rijen niet verbergen. Als alle keuzemogelijkheden wel afgevinkt zijn, dan pas mag hij de rijen verbergen.
Bekijk bijlage test group1.xlsm
Code:
Private Sub CheckBox24_Click()
'om checkboxen te verbergen volgende code is van toepassing
On Error GoTo earlyexit
If CheckBox24.Value = True Then
ActiveSheet.Shapes.Range(Array("Group 3")).Visible = msoTrue
'// Omit below if you don't need to hide the rows
Rows("20:25").EntireRow.Hidden = False
Else
ActiveSheet.Shapes.Range(Array("Group 3")).Visible = msoFalse
'// Omit below if you don't need to hide the rows
Rows("20:25").EntireRow.Hidden = True
End If
earlyexit:
End Sub
Private Sub CheckBox25_Click()
'om checkboxen te verbergen volgende code is van toepassing
On Error GoTo earlyexit
If CheckBox25.Value = True Then
ActiveSheet.Shapes.Range(Array("Group 3")).Visible = msoTrue
'// Omit below if you don't need to hide the rows
Rows("20:25").EntireRow.Hidden = False
Else
ActiveSheet.Shapes.Range(Array("Group 3")).Visible = msoFalse
'// Omit below if you don't need to hide the rows
Rows("20:25").EntireRow.Hidden = True
End If
earlyexit:
End Sub
Private Sub CheckBox26_Click()
'om checkboxen te verbergen volgende code is van toepassing
On Error GoTo earlyexit
If CheckBox26.Value = True Then
ActiveSheet.Shapes.Range(Array("Group 3")).Visible = msoTrue
'// Omit below if you don't need to hide the rows
Rows("20:25").EntireRow.Hidden = False
Else
ActiveSheet.Shapes.Range(Array("Group 3")).Visible = msoFalse
'// Omit below if you don't need to hide the rows
Rows("20:25").EntireRow.Hidden = True
End If
earlyexit:
End Sub