Boş satırları gizle ve göster.

[aksoy53]

Dosyayı açarsak yararlanırız ...

 

[hakan006]

Arkadaşlar yardımcı olabilirseniz çok sevinirim. ekteki tabloda değer var ise satır gösterilecek yok ise gizlenecek şeklinde bir ricam var sizlerden. teşekkürler

 

[Korhan Ayhan]

Merhaba,

Filtre özelliğini kullanarak rahatlıkla istemediğiniz satırları gizleyebilirsiniz. Filtreden "eşit değil 0" ifadesini oluşturup deneyin.

 

[SSAFFAK]

Sub Gizle()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gizler
t.EntireRow.Hidden = True
End If
Next t
End Sub

Sub Göster()
For Each t In Range("C9:C85").Cells
If t.Value = "" Then 'boş hücreleri gösterir
t.EntireRow.Hidden = False
End If
Next t
End Sub




Değerli hocalarım merhabalar; yukarıdaki formülü kendime uyarladım.
Fakat 2 adet sorum olacak 1. Bu formülü butona değil de sayfayı açtığımda direk makro çalışmasını nasıl sağlayabiliriz.
2. Dolu satırın altındaki boş satıra veri girildiğinde onun altında gizlenen satırlardan 1 satır açılmasını sağlayabilirmiyiz.
(Yani C8 satırına veri girildiğinde C9 dan bir satır açsın, C9 a veri girildiğinde C10 satırını açsın gibi)