TOPLAMI 0 olan satırları gizleme

[dream10]

Merhaba,

A-GY sütunları ve 1 - 2011 satırları arasında formüller olan bir tablo için C-FK arası değerlerin toplamı 0 olması durumunda gizlemek istiyorum. Nasıl yapabilirim acaba yardımcı olabilir misiniz?

 

[asi_kral]

Merhaba
Dosya ekler misiniz_?

 

[dream10]

zipli olarak ekledim..

 

[asi_kral]

zipli olarak ekledim..

Merhaba
Boş bir module kopyalayın ve deneyin.

Option Explicit
Sub sonuç_sıfırsa_gizle_1967()
'Konu       :   Sonuç Sıfır ise Gizle
'Mail       :   m.batu.1967@gmail.com
'Msn        :   m.batu.1967@hotmail.com.tr
'Coder By   :   asi_kral_1967
Dim asi As Worksheet, kral As New Collection
Dim a As Long
Application.ScreenUpdating = False
Set asi = Sheets("Sheet1")
asi.Cells.Rows.EntireRow.Hidden = False
For a = 5 To asi.Cells(Rows.Count, "A").End(xlUp).Row
If WorksheetFunction.Sum(asi.Range("C" & a & ":FK" & a)) = 0 Then
asi.Rows(a).EntireRow.Hidden = True
End If: Next
Application.ScreenUpdating = True
MsgBox "İşlem Tamamlandı", vbInformation, "asi_kral_1967"
End Sub

Dosyanız Ekte.

 

[dream10]

Çok teşekkür ederim. deniyorum şimdi.

 

[asi_kral]

Çok teşekkür ederim. deniyorum şimdi.

Kolay Gelsin.