• Privacywetgeving
    Het is bij Helpmij.nl niet toegestaan om persoonsgegevens in een voorbeeld te plaatsen. Alle voorbeelden die persoonsgegevens bevatten zullen zonder opgaaf van reden verwijderd worden. In de vraag zal specifiek vermeld moeten worden dat het om fictieve namen gaat.

Checboxen

Status
Niet open voor verdere reacties.
W

wivoe

Gebruiker
Lid geworden
25 mrt 2008
Berichten
146
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
 
Test het maar eens.

Code: 
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]
 
Hallo Harry,

Het werkt perfect, heel veel dank.

Gr. Wim
 
Status
Niet open voor verdere reacties.
                    Steun ons                    

Nieuwste berichten

Terug
Bovenaan Onderaan