kolom verbergen/zichtbaar maken dmv wisselknop

[Friend]

Beste forummers,

Hoe kan ik kolom b via een wisselknop verbergen / zichtbaar maken?

Friend

 

[edmoor]

Zo:

Private Sub ToggleButton1_Click()
    Columns(2).Hidden = Not Columns(2).Hidden
End Sub

 

[Friend]

Edmoor,

Heel hartelijk dank voor je reactie:thumb:

Dat is hem, dank je!

Friend

 

[VenA]

Of gebruik maken van de ToggleButton

Private Sub ToggleButton1_Click()
  Columns(2).Hidden = ToggleButton1
End Sub

 

[Senso]

Ik breek even in. Wat is de code als het om de rijen 6, 7, 8, 20 en 26 gaat. Dus show en hide deze rijen samen en niet apart.

@Edmoor
Heb je mijn vraag over het navigatievenster nog gezien? Die werkt niet meer (autohotkey).

 

[VenA]

Inbreken is niet toegestaan. Lees even de forumregels. Neem even een macro op dan zie je welke code je kan gebruiken.

 

[edmoor]

Naast dat VenA gelijk heeft m.b.t. inbreken zou ik er zoiets van maken.
Wellicht dat TS er ook iets aan heeft:

Range("6:6,7:7,8:8,20:20,26:26").EntireRow.Hidden = Not Rows("6").Hidden

 

[Senso]

@VenA
Hoe was de vakantie op Vlieland?

 

[VenA]

Prima,

Het 3 pagina's tellende Excel boek voor echte beginners gelezen. Moet je ook eens doen.

 

[Senso]

Private Sub ToggleButton1_Click()
Range("10:10,11:11,12:12,13:13,14:14,15:15,16:16,28:28,30:30").EntireRow.Hidden = Not Rows("6").Hidden
End Sub

Ik heb bovenstaande gebruikt en de rijen verbergen maar ze worden niet meer zichtbaar bij klikken.

 

[edmoor]

Hier wel. Dat komt omdat je rij 6 niet gebruikt, zoals in je eerdere vraag.
En wat VenA liet zien?

Private Sub ToggleButton1_Click()
    Range("10:10,11:11,12:12,13:13,14:14,15:15,16:16,28:28,30:30").EntireRow.Hidden = ToggleButton1
End Sub

Dat zal dan wel werken.

 

[Senso]

Bedankt.