Koşullu Sayfa Gizleme

[karakaçan]

Çok sayıda sayfadan oluşan bir excel dosyasında mesela "anasayfa","ahmet"
gibi sayfalar hariç olmak üzere hangi sayfaya ait butona tıklarsam diğer sayfaların gizlenmesini sağlayan bir kod var mıdır?

2.) Excel dosyasını kapatmak istediğimde "anasayfa","ahmet" isimli sayflar hariç olmak üzere diğerlerini gizleyen bir kod va mıdır?

Dosya ektedir.

 

[Necdet]

Merhaba,

Bir sürü kod zaten var, ama önemli olan sizin istediğiniz kodları yazmak.

Kodların kısa olması açısından adları dikdörtgen olarak anlandırılan şekillerin isimlerini sayfa isimleri verdim.

Aşağıdaki kod BuÇalışmaKitabında olmalı.

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    
    Dim Syf As Worksheet
    
    For Each Syf In Worksheets
        If Not Syf.Name = "AHMET" And Not Syf.Name = "ANASAYFA" Then Syf.Visible = xlSheetHidden
    Next Syf
    
End Sub

Aşağıdaki kodları da bir modüle kopyalamanız gerekir.

Sub TIKLANDI()
    
    Dim Syf As Worksheet
    
    For Each Syf In Worksheets
        If Syf.Name = "ANASAYFA" Or Syf.Name = "AHMET" Or Syf.Name = Application.Caller Then
            Syf.Visible = True
        Else
            Syf.Visible = False
        End If
    Next Syf
    
End Sub

Örnek dosyayı inceleyiniz.

 

[karakaçan]

Çok teşekkürler iyi akşamlar

 

[Necdet]

Çok teşekkürler iyi akşamlar

Rica ederim, iyi çalışmalar.

 

[kizilsac]

Selam,
Emeğinize sağlık benimde arayıpta burada bulduğum bir konuydu. Fakat sayfa ekleme durumunda veya sayfa isimlerini değiştirdiğimizde butonları nasıl ilave edebilir veya isimleri değişen sayfalara atayabiliriz onu çözemedim.
Cevabınız için şimdiden teşekkürler