Checkbox kolommen verbergen

[Chiel001]

Met onderstaande kan ik middels een userform kolommen selecteren welke verborgen worden. Nadat ik kolommen verborgen heb, en ik het het userform opnieuw open middels een button wil ik graag de checkbox aangevinkt zien van de kolommen welke verborgen zijn. Wie kan mij vertellen hoe ik dit het beste kan doen ?
Bedankt alvast !

Private Sub CheckBox1_Click()
Columns("A").Hidden = CheckBox1.Value
End Sub

Private Sub CommandButton1_Click()
Columns("A:Z").Hidden = False
CheckBox1.Value = False
End Sub

Private Sub CommandButton2_Click()
Unload Me
Range("A6").Select
End Sub

 

[Roncancio]

Zo te zien gaat het alleen om Checkbox1.
Of zie ik dat verkeerd?

Met vriendelijke groet,


Roncancio

 

[trucker10]

Bij gebrek aan voorbeeldje , bij deze de oude opmaak uit vorige topic pas zelf aan of upload jouw bestandje . En dit had je waarschijnlijk zelf ook gevonden If ............... Then zeker als je mijn posting had bekeken in de vorige topic .

Bekijk de code van Roncancio en pas deze aan maar jouw bestandje > dat is werk voor jou

Private Sub CommandButton1_Click()
    If [E:F].EntireColumn.Hidden = True Then
    CheckBox2.Value = True
    If [B:B].EntireColumn.Hidden = True Then
    CheckBox1.Value = True
   End If
 End If
End Sub

in jouw code

Private Sub CommandButton1_Click()
If Columns("A:Z").Hidden = True Then
CheckBox1.Value = True
End Sub

Met de code's van Roncancio

Private Sub CommandButton1_Click()
    CheckBox2.Value = Columns("E:F").Hidden
    CheckBox1.Value = Columns("B:B").Hidden
End Sub

 

[Chiel001]

Nee, in totaal om 7 a 8 Checkboxes.
Vanwaar je vraag ??

 

[trucker10]

Nee, in totaal om 7 a 8 Checkboxes.
Vanwaar je vraag ??

Ik had nu wel een andere reactie verwacht om dat er een betere oplossing is voor jouw vraag nl.

Private Sub UserForm_Activate()
    
CheckBox1.Value = Columns("A:Z").Hidden 

End Sub

 

[Roncancio]

Nee, in totaal om 7 a 8 Checkboxes.
Vanwaar je vraag ??

Omdat er in de code maar 1 checkbox stond.

Wat betreft de vraag zou je de code kunnen omdraaien bij het opstarten van de userform.
Zoals Trucker al aangaf.

Private Sub UserForm_Initialize()
    CheckBox2.Value = Columns("E:F").Hidden
    CheckBox1.Value = Columns("B:B").Hidden    
End Sub

Met vriendelijke groet,


Roncancio

 

[Chiel001]

Roncancio & trucker10, bedankt voor jullie hulp, werkt nu helemaal OK.