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...

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