Wisselknop cellen verbergen

[golfboy03]

Beste onderstaande wisselknop code heb ik gemaakt voor mijn logo te verbergen/weergeven. Graag had ik daar in dezelfde wisselknop volgende cellen willen bijsteken G6:G14 en G56:G62.
Is dat mogelijk of zou ik er een ander wisselknop voor moeten maken.

Private Sub ToggleButton1_Click()
If ToggleButton1.Value = False Then
Resimyildirim.Visible = True
ToggleButton1.Caption = "Logo Verbergen"

Else
Resimyildirim.Visible = False
ToggleButton1.Caption = "Logo Weergeven"
End If
End Sub

 

[edmoor]

Je kan geen afzonderlijke cellen verbergen, alleen regels en kolommen.
Je code kan ook eenvoudiger:

Private Sub ToggleButton1_Click()
    Resimyildirim.Visible = Not Resimyildirim.Visible
    ToggleButton1.Caption = IIf(ToggleButton1, "Logo Verbergen", "Logo Weergeven")
End Sub

 

[golfboy03]

Dank u Edmoor voor jou snelle antwoord. Hoe kan ik deze regels G56:G62 in dezelfde code zetten.

 

[edmoor]

Je hebt het over regels en je laat afzonderlijke cellen zien. Wat je daar kan verbergen is de hele kolom G of de regels 56 t/m 62.
Of beide uiteraard.

 

[golfboy03]

Inderdaad. Dit is de bedoeling rijen van 56 t/m 62 zou ik in de wisselknop moeten duwen.

 

[edmoor]

Dat kan met:
Rows("56:62").EntireRow.Hidden = True

Of False natuurlijk.

 

[golfboy03]

Dank u voor jou hulp Edmoor alles is naar wens, kon niet beter.

 

[edmoor]

Graag gedaan en fijne feestdagen gewenst