Hücre Gizle-Göster

Merhabalar;
Ekte göndermiş olduğum dosya içerisinde aşağıdaki kodlarla bulunmaktadır. Ancak bu kodlar istediğim şekilde ihtiyacıma cevap vermemektedir. 
Dosya içeriğinde, İCMAL,LİSTE,YEŞİLDEFTER,PUANTAJ sayfaları yer almaktadır.
Benim yapmak istediğim, 1 yılda 12 hakediş yapılacak. Mesela ben 1.Hakediş'i yaptığımda, gizle butonuna basınca 2-12 arası hekedişlerin gizli olmasını istiyorum  Göster butonuna bastığımda tüm hakedişleri göstermesini istiyorum.

Saygılarımla...

[attachment=25389]

Sub gizle()

    

    Dim S As Worksheet: Set S = Sheets("icmal")

    S.Rows("8:19").EntireRow.Hidden = False

    

    For i = 8 To 19

        If S.Cells(i, "I") = 0 Then

            S.Rows(i).EntireRow.Hidden = True

        End If

    Next i

    

End Sub





Sub goster1()

'

' İcmal Sayfasında olan gizli olan hücreleri göster



    ActiveCell.Offset(-10, 0).Rows("1:13").EntireRow.Select

    Selection.EntireRow.Hidden = False

    ActiveCell.Offset(0, 8).Range("A1").Select

    

    

End Sub

Merhabalar;
Ekte göndermiş olduğum dosya içerisinde aşağıdaki kodlarla bulunmaktadır. Ancak bu kodlar istediğim şekilde ihtiyacıma cevap vermemektedir. 
Dosya içeriğinde, İCMAL,LİSTE,YEŞİLDEFTER,PUANTAJ sayfaları yer almaktadır.
Benim yapmak istediğim, 1 yılda 12 hakediş yapılacak. Mesela ben 1.Hakediş'i yaptığımda, gizle butonuna basınca 2-12 arası hekedişlerin gizli olmasını istiyorum  Göster butonuna bastığımda tüm hakedişleri göstermesini istiyorum.
Saygılarımla...

İlgili sorumu şu şekilde çözüme kavuşturdum. Ancak döngü olduğu için biraz bilgisayarı kasıyor. Siz daha basit bir yöntem bulduğunuzda paylaşırsanız iyi olur.

Sub PuantajGizle()



    'Puantaj sayfasında D sütununda boş olan hücreleri gizler

    Dim S As Worksheet: Set S = Sheets("Puantaj")

    S.Rows("5:40").EntireRow.Hidden = False

    

    For i = 5 To 40

        If S.Cells(i, "D") = "" Then

            S.Rows(i).EntireRow.Hidden = True

        End If

    Next i

    

End Sub





Sub PuantajGoster()



  'Puantaj sayfasında gizli olan satırları gösterir

  Dim S As Worksheet: Set S = Sheets("Puantaj")

   

    S.Rows("5:40").EntireRow.Hidden = False

          

End Sub

Teşekkür ederim.

Cevaplanmış Sorular Kategorisi'ne taşıyabilirsiniz.