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[attachment=19104]

Sub Gizlem()
For Each HucreM In Range("A8:A14").Cells
If HucreM .Value = "" Then 'bos hücreleri gizler
HucreM.EntireRow.Hidden = True
End If
Next HucreM
End Sub
ile bos olan hucreleri gizleyebilirsiniz.

dsezgin83260, verdiğiniz kod çalışmıyor, hata veriyor.

Alıntı: 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.

İ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 ListeGizle()
'Liste sayfasında G sütununda boş olan hücreleri gizler
Dim S As Worksheet: Set S = Sheets("Liste")
S.Rows("4:39").EntireRow.Hidden = False

For i = 4 To 39
If S.Cells(i, "E") = 0 Then
S.Rows(i).EntireRow.Hidden = True
End If
Next i

End Sub

[code=vba]
Sub ListeGoster()

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

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

S.Rows("4:39").EntireRow.Hidden = False

End Sub
Sub icmalGizle()
'icmal sayfasında 0 hücreleri 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

[code=vba]
Sub icmalGoster()

' İcmal Sayfasında olan gizli olan hücreleri göster
Dim S As Worksheet: Set S = Sheets("icmal")
S.Rows("8:19").EntireRow.Hidden = False


End Sub[attachment=19117]