Boş sayfaları gizle-göster kod yardımı

[Believing]

Sayın uzman arkadaşlar,

Excel çalışma kitabım 50 sayfadan oluşmaktadır.
Her sayfanın E6 hücresinde veri doğrulama bulunmaktadır.
Buna göre Mainpage sayfasında bulunacak bir buton ile, E6 hücresi boş olan sayfaları gizlemek veya göstermek için kod yardımına ihtiyaç duymaktayım.
Benim için çok kıymetli olan yardımlarınızı rica ediyorum.

Saygılarımla,
Ömer Ali ÜZÜMCÜ

 

[ÖmerBey]

Merhaba,
Aşağıdaki kodu deneyiniz...

Sub Gizle_Goster()
Dim sh As Worksheet
For Each sh In Worksheets
    If sh.Range("E6") = "" Then
        sh.Visible = xlSheetHidden
    Else
        sh.Visible = xlSheetVisible
    End If
Next
End Sub
Sub Goster()
Dim sh As Worksheet
For Each sh In Worksheets
    sh.Visible = xlSheetVisible
Next
End Sub

 

[Believing]

Sayın Ömer bey,

ALLAH sizden ve sevdiklerinizden razı olsun
Hakkınızı helal ediniz lütfen.

Saygılarımla
Ömer Ali ÜZÜMCÜ

 

[ÖmerBey]

Rica ederim,
Allah hepimizden razı olsun, iyi çalışmalar...

 

[Believing]

Sayın Ömer bey,

Son bir sorum daha olacak,
License isimli sayfanın bu özellikte etkilenmeyerek gizli kalmasını nasıl sağlayabilirim.

Saygılarımla
Ömer Ali ÜZÜMCÜ

 

[ÖmerBey]

If sorgusunu şu şekilde değiştirebilirsiniz: If sh.Name <> "License" And sh.Range("E6") = "" Then
Ya da mevcut kodlarınızın sonuna Sheets("License").Visible = xlSheetVisible kodunu ilave edebilirsiniz.

 

[Believing]

Sayın Ömer bey,

Yardımınız için size çok teşekkür ederim.
ALLAH sizden ve sevdiklerinizden razı olsun.
Hayırlı akşamlar.

Saygılarımla
Ömer Ali ÜZÜMCÜ