ToggleButton ile Sayfa Gizle-Göster

[CenTay]

Selamlar arkadaşlar, Ocaktan Aralık ayına kadar açılmış sayfalarım var.Bu sayfaları 12 tane ToggleButton ile gizleyip göster diyeceğim.Siz Sayfa3 (Ocak)için makro yazarsanız diğerlerini ben yapabilirim.Teşekkürler.

 

[inspirasyon]

Private Sub ToggleButton1_Click()
Worksheets("ocak").visible=xlSheetHidden
End Sub
Kodu ile sayfayı gizleyebilirsiniz

Worksheets("ocak").visible=xlSheetHidden kodu ile sayfayı gösterebilirsiniz. Cepten yazıyorum çok düzenli olmuyor..

 

[inspirasyon]

Worksheets("ocak").visible=xlSheetHidden Pardon bu gizler, Worksheets("ocak").visible=xlSheetVisible ise gösterir, dedim ya cepten yazınca sıkıntı oluyor kusura bakmayın

 

[CenTay]

Selamlar ilginiz için teşekkürler ben tek butonla hem gizle hem de göster istiyorum.

 

[inspirasyon]

Private Sub ToggleButton1_Click()
If ToggleButton1 Then
kapat
Else
aç
End If
End Sub

Sub kapat()
Worksheets("ocak").Visible = xlSheetHidden
End Sub
Sub aç()
Worksheets("ocak").Visible = xlSheetVisible
End Sub

 

[CenTay]

Tamamdır Teşekkür ediyorum zahmetiniz için.

 

[inspirasyon]

Rica ederim.

 

[Seyit Tiken]

Bu şekilde kısa kod kullanabilirsiniz.

Sayfa2.Visible = Sayfa2.Visible = 0