Button om tabblad te open en te sluiten

[wimix69]

Hallo,

Ik heb een bestand gemaakt met verschillende formulieren. Nu wil ik daar een aantal buttons in maken om een of twee tabbladen te gelijkt te open. hoe doe ik dat dan?

 

[edmoor]

Ik weet niet wat je precies bedoelt, maar kijk eens naar dit:

Private Sub CommandButton1_Click()
    Sheets("Tab1").Visible = IIf(Sheets("Tab2").Visible, False, True)
End Sub

Private Sub CommandButton2_Click()
    Sheets("Tab2").Visible = IIf(Sheets("Tab2").Visible, False, True)
End Sub

 

[VenA]

Waarom zijn de meeste tabjes hetzelfde? Lijkt mij een niet erg goed doordachte opzet.

 

[HSV]

 = not Sheets("Tab2").Visible

is makkelijker.

 

[wimix69]

Tabblab open met button

Wat heb ik verkeerd gedaan om met de button tabblad 2 te open.

 

[edmoor]

Je had de oplossing van HSV en die van mij had moeten combineren:

Sheets("Tab2").Visible = Not Sheets("Tab2").Visible

 

[wimix69]

Tabblab open met button

Top edmoor hij werkt, Tabblad is zichtbaar, zou je hem nog aan kunnen passen zodat het tabblad gelijk geopend wordt.

 

[VenA]

Een tabblad kan je niet openen. Selecteren of activeren kan wel.

If Sheets("Tab2").Visible then application.goto Sheets("Tab2").cells(1)

Zal nog wel een hele puzzel worden om het toe te passen

 

[wimix69]

Tabblab open met button

Top bedankt voor de oplossing

 

[wimix69]

Tabblab open met button

If Sheets("Tab2").Visible then application.goto Sheets("Tab2").cells(1) Verwijst naar cel 1. Het tabblad is beveiligd. hoe verwijs ik naar Cel C27 die is niet beveiligd.

 

[edmoor]

Zo:

Sheets("Tab2").Range("C27")

 

[VenA]

Cells(1) = A1 ook wel Cells(1,1) ook wel Range("A1"). Wat zou nu C27 zijn?

 

[wimix69]

Tabblab open met button

Top