Checboxen

[wivoe]

Geachte forumleden,

Heb een bestand met per jaar 3 kolommen, dus 2003 heeft 3 kolommen 2004 3 kolommen enz. tot 2050.
Op een UserForm zijn 48 Checkboxen geplaats en als een Checkbox, behorende bij een bepaald
jaar, wordt aangevinkt dan sluiten de 3 kolommen behorende bij dat jaar, tot zover werkt alles correct.

Ook op het UserForm is een knop met 'Alle kolommen zichtbaar' geplaatst, met de bedoeling dat als er
op die knop wordt geklikt, alle reeds gesloten kolommen worden geopend, ook dat werkt correct.

De code achter de 'Alle kolommen open' knop is:

Private Sub CommandButton2_Click()

Columns("K:EY").Select
Selection.EntireColumn.Hidden = False 'Alle kolommen K t/m EY zichtbaar
Range("B1").Select

End Sub

Het probleem is nu dat als er geklikt is op knop 'Alle kolommen open' de vinkjes nog wel op de
Checkboxen aanwezig zijn, wat tot verwarring kan leiden.

Mijn vraag is, kan er in bovenstaande code een stukje code worden toegevoegd waarmee de vinkjes
alsnog worden verwijderd?

Bedankt, Wim

 

[HSV]

Test het maar eens.

Private Sub CommandButton2_Click()
Dim ctl As Control
[COLOR=#3E3E3E]Columns("K:EY").[/COLOR][COLOR=#3E3E3E]Hidden = False 'Alle kolommen K t/m EY zichtbaar[/COLOR]

For Each ctl In Controls
   If TypeName(ctl) = "CheckBox" Then ctl.Value = False
Next ctl
[COLOR=#3E3E3E]
'Range("B1").Select[/COLOR]
[COLOR=#3E3E3E]End Sub[/COLOR]

 

[wivoe]

Hallo Harry,

Het werkt perfect, heel veel dank.

Gr. Wim