Selectievakjes gebruiken om kolommen te tonen/verbergen

[Erikpe]

Ben een overzicht aan het maken van een prijslijst (in tab overview), maar kom er niet uit hoe ik met de selectievakjes de volgende kolommen kan verbergen/tonen:
* Logistieke gegevens: kolom H t/m N
* Prijsgegevens: Kolom O t/m X

Heb al diverse opties geprobeerd, maar krijg steeds een foutmelding...
Alvast bedankt voor jullie hulp!

Bekijk bijlage Prijslijst overview voorbeeld.xlsm

 

[abevleeming]

Werkt dit niet?

Columns("H:N").Select
    Selection.EntireColumn.Hidden = True

Zo pakt macro opnemen het namelijk wel?

 

[Erikpe]

Hij verbergt ze dan wel (dus dat gedeelte werkt al, waarvoor dank!) alleen wanneer je de checkbox deselecteert, dan komen de kolommen niet meer tevoorschijn.

(Onderstaande code staat daar nu ingevoerd)

Sub Selectievakje29_Klikken()
Columns("H:N").Select
    Selection.EntireColumn.Hidden = True
End Sub
Sub Selectievakje28_Klikken()
Columns("O:X").Select
    Selection.EntireColumn.Hidden = True
End Sub

 

[abevleeming]

Bekijk bijlage Prijslijst overview voorbeeld (1).xlsm

Zoiets?

 

[edmoor]

Nogal logisch want je zet het nergens op False. Doe het eens zo:

Sub Selectievakje29_Klikken()
    Columns("H:N").EntireColumn.Hidden = Selectievakje29
End Sub

 

[Erikpe]

Super, bedankt abevleeming en Edmoor!

 

[abevleeming]

Graag gedaan! zet je -om het forum overzichtelijk te houden- je vraag nog even op opgelost?