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
