Als u bepaalde kolommen met een knop wilt verbergen, kunt u deze code gebruiken. Het zal zelfs de tekst van de opdrachtknop wijzigen in Kolommen verbergen en vervolgens opnieuw wijzigen in Kolommen zichtbaar maken.
Sub Hide_C()
Dim C_ell als bereik
ActiveSheet.Shapes.Range(Array("Knop 2")).Selecteer
If Selection.Characters.Text = "Kolommen zichtbaar maken" Dan
Columns.Hidden = False
Selection.Characters.Text = "Kolommen verbergen"
Anders
Voor elke C_ell In Range("B1", Cells(1, Columns.Count).End(xlToLeft))
Als C_ell = "x" Dan is C_ell.Columns.Hidden = True
Volgende
Selection.Characters.Text = "Kolommen zichtbaar maken"
Stop als
Bereik ("A2"). Selecteer
Einde sub