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