Boş satırların gizlenmesi

[sin77]

merhaba. arkadaşlar ben tabloda boş satırların gözükmemesi için nasıl bir işlem uygulamalıyım. normalde sakla komutu ile ama örneğin 1 aydaki boş günleri saklamak isterken teker teker sakla komutu bayağı uzun sürüyor. bunun bir kısa yolu varmı?

 

[Korhan Ayhan]

Selamlar,

Gizlemek istediğiniz sütun D olarak düşünürsek aşağıdaki kodu uygulayabilirsiniz.
Bu kod D sütunundaki boş hücreleri gizler.

Sub GİZLE()
Application.ScreenUpdating = False
For Each i In Range("D232").Cells
If i.Value = "" Then
i.EntireRow.Hidden = True
Range("A2").Select
End If
Next i
Application.ScreenUpdating = True
End Sub

Sub GÃ?STER()
Application.ScreenUpdating = False
For Each i In Range("D232").Cells
If i.Value = "" Then
i.EntireRow.Hidden = False
Range("A2").Select
End If
Next i
Application.ScreenUpdating = True
End Sub

 

[sin77]

teşekkürler arkadaş. ama şöyle bir durum gizlemek istediğim sütün belli değil. yani bir ayda hangi günler boş hangi günler dolu belli olmadığı için sadece boş günleri (örneğin 12.1..2006 ya karşılık gelen günlük iş bölümünde değer yok buna karşılık bu günün gizlenmesi için )gizlemek için birşey arıyorum

 

[Korhan Ayhan]

Ã?rnek bir dosya yollarmısınız.

 

[Seceren]

BeyazGölge nin çok güzel çalışması var.

http://www.excel.web.tr/viewtopic.php?t=2242

 

[sin77]

ekte örnek gönderdim. günün karşılığı boş olursa o satır gizlenebiliyormu?

 

[Levent Menteşoğlu]

Gizlemek için aşağıdaki kodu deneyin.

[vb:1:be78ef24be]Sub gizle()
[d9:d32].SpecialCells(xlCellTypeBlanks).EntireRow.Hidden = True
End Sub
[/vb:1:be78ef24be]

Tekrar göstermek içinde aşağıdaki kodu kullanabilirsiniz.

[vb:1:be78ef24be]Sub goster()
[9:32].EntireRow.Hidden = False
End Sub
[/vb:1:be78ef24be]