Formül sonucu 0 olam satırları gizlemek için kod?

[KARTAL06]

Formül sonucu 0 olan satırları gizlemek için kod nasıl olmalı?

Ekteki dosyada sorumu açılamaya çalıştım. Bir sayfada eklendikçe uzayan listeyi diğer sayfaya formülle aktardım. Sonucu 0 olan hücrelere ait satırları görsellik açısından gizlemek istiyorum. İlgilenen arkadaşlara şimdiden teşekkür edrim.

 

[Korhan Ayhan]

Selamlar,

Hücre bazında kontrol edileblir fakat tüm satır gizleneceğinden veri olan hücrelerde gizlenebilir. Bu durumda her üç sütunun toplamı sıfırsa kontrolü yapılarak gizlenirse daha sağlıklı olacaktır.

Option Explicit
 
Sub SIFIR_OLAN_SATIRLARI_GİZLE()
    Dim X As Long
    Application.ScreenUpdating = False
    With Sheets("Sayfa2")
        .Cells.EntireRow.Hidden = False
        For X = 3 To .Range("B65536").End(3).Row
        If WorksheetFunction.Sum(.Range("B" & X & ":D" & X)) = 0 Then
        .Rows(X).EntireRow.Hidden = True
        End If
        Next
    End With
    Application.ScreenUpdating = True
    MsgBox "İşleminiz tamamlanmıştır.", vbInformation
End Sub

 

[KARTAL06]

Gecikme için özür dilerim

İş yerinden takip edebiliyorum. Dışarı çıkmak zorundaydım kodu deneyip haber veririm. İlginize teşekkür ederim.