Bir Tanesi Hariç Açık Sayfaları Kapatmak

[1Al2Ver]

Merhaba,

"ANASAYFA" isimli sayfada mevcut, SAYFALARI AÇ düğmesine bağlı makro ve UserForm'daki CommandButton'lar aracılığı ile, kullanıcıya özel çalışma sayfalarını açıyorum, ancak program gereği "ANASAYFA" isimli sayfa daima açık kalıyor.

"ANASAYFA" dışında, çeşitli isimlere ait sayfalarım oluyor ( 20-25 adet )

Örneğin açık sayfalar şöyle ; "ANASAYFA", "GELİR_AA", "GELİR_BB", "GELİR_CC", vb.

Kullanıcı "ANASAYFA" dışında bir sayfadayken "ANASAYFA" isimli sayfaya tıkladığında, açık olan diğer sayfalar kapansın istiyorum.

Ancak sayfalar kapandıktan sonra, "ANASAYFA" 'daki, SAYFALARI AÇ düğmesine tıkladığımda, açılan UserForm'daki CommandButton, ilgili sayfayı açsın, örnek CommandButton'un kodu ;

Private Sub CommandButton1_Click()

For Each sayfa In Worksheets
        If sayfa.Name <> "ANASAYFA" Then
            sayfa.Visible = xlVeryHidden
        End If
Next
For Each sayfa In Worksheets
        If sayfa.Name = "GELİR_AA" Then
           sayfa.Visible = True
        End If
Next
 Sheets("GELİR_AA").Select
End Sub

Yukarıdaki koddan, her sayfa için bir tane var, örnek olması açısından 1 tanesini ekledim.

Dosya kısaltılamayacak kadar karışık ve uzun olduğu için sadeleştiremedim ve ekleyemedim,

Kullanıcı "ANASAYFA" dışında bir sayfadayken "ANASAYFA" isimli sayfaya tıkladığında, açık olan diğer sayfaları kapatan kodu rica ediyorum,

Teşekkür ederim.

 

[Ömer BARAN]

Merhaba.

ANASAYFA adlı sayfanın kod bölümüne uygulayın.
ANASAYFA aktif hale geldiğinde diğer sayfalar gizlenir.
.

[B]Private Sub Worksheet_Activate()[/B]
For Each syf In ActiveWorkbook.Worksheets
    If syf.Name <> "ANASAYFA" Then syf.Visible = xlVeryHidden
Next
[B]End Sub[/B]

 

[1Al2Ver]

Sayın Ömer BARAN merhaba,

Teşekkür ederim, elinize sağlık.

Saygılarımla.

 

[Ömer BARAN]

Kolay gelsin.
.