[ÇÖZÜLDÜ] Koşullu Sayfa Hide'lama

[baydeniro]

Merhaba arkadaşlar. Bir sayfanın makro kullanılarak koşula göre "Hide" edilmesi özelliği kazandırılabilir mi ? Tek bir makro ile Dosya içindeki tüm sayfaları her sayfanın D2 hücresinin 0 (sıfır) olması durumunda HIDE edilmesi sağlanabilir mi ?

Örnek dosya ektedir.

 

[uzmanamele]

merhaba
aşağıdaki kodu dener misiniz

Private Sub Workbook_Open()
For i = 1 To Sheets.Count
If Sheets(i).Range("d2") = 0 Then
Sheets(i).Visible = False
End If
Next
End Sub

 

[baydeniro]

Sayın uzmanamele yardımınız için çok teşekkürler. Helal olsun size. Harika bir kod bu !!!

Hide'lı olan sayfaları topluca açma konusunda da bir kod var mı acaba ? Bu konuda yardımcı olabilir misiniz !!

 

[uzmanamele]

merhaba
bu şekilde işinizi görür mü?

Sub gizli_sayfaları_aç()
For i = 1 To Sheets.Count
Sheets(i).Visible = True
Next
End Sub

 

[baydeniro]

Çok çok teşekkür ederim sayın uzmanamele. Harika bir kod. Çok işimize yarayacak. Elleriniz dert görmesin, işiniz, gücünüz rast gitsin. Sağlıcakla kalın.