Soru Seçenek Düğmesine Basınca Gizli Sayfaları Açma

[ercan_bora]

Selamlar,

Açılışta ana sayfa hariç tüm sayfaları gizledik.
Seçenek düğmesi ile müşteri seçimi yapınca (hiç farketmez hangisi tıkladığı yeterki birini seçsin) "Sayfa 2", "Sayfa 3" ve diğer tüm sayfalar görünebilir olmalı.

Mümkün mü bu ?

Örnek çalışma bu adreste : http://dosya.co/ae8aopv76sb2/Açılışıta_Tabları_Gizleme.xlsx.html

 

[muygun]

Merhaba;

Boş bir modüle;

Sub gizlee()
For i = 1 To Worksheets.Count
If Worksheets(i).Name <> "Sayfa1" Then
Sheets(i).Visible = xlVeryHidden
End If
Next i
End Sub

Sub gösterr()
For i = 1 To Worksheets.Count
Sheets(i).Visible = True
Next i
End Sub

Artık Seçenek Düğmesine bu makrolardan istediğinizi atayabilirsiniz.

Ekli uygulamada deneyin.
İyi çalışmalar.

Link:
http://dosya.co/muu47z1l4g1v/ercan_bora-sayfaları_gizle_göster.zip.html

 

[ercan_bora]

Allah razı olsun kardeşim.... eline sağlık