Excelde gizli hücreleri toplayalım

GİZLİ SATIRLARI TOPLAYALIM

Aslında Excelde gizli hücreleri toplayan bir fonksiyonun olması gerekirken maalesef bu fonksiyon bulunmuyor. Microsoft bu sorun için ek fonksiyon yazıp sitesinde yayınlamış. Konu için aşağıdaki linki tıklayınız.

http://support.microsoft.com/default.aspx?scid=kb;en-us;213313

Gelelim fonkssiyonun çalışması için yapılacaklara

Türkçeleştirdiğim fonksiyonu > Moduleye yapıştırın
Kod:

Function gizli_hucreleri_topla(hucre_topla As Object)     Application.Volatile 

    For Each cell In hucre_topla 

        If cell.Rows.Hidden = False Then 

            If cell.Columns.Hidden = False Then 

                topla = topla + cell.Value 

            End If 

        End If 

    Next 

    gizli_hucreleri_topla = topla 

End Function

tekrak excele dönüp (ALT+F11) hücrelere aşağıdaki verileri yazın
A1: 1 B1: 2
A2: 2 B2: 4
A3: 3 B3: 6
A4: 4 B4: 8
A5: 5 B5: 10


Daha sonra A6 hücresine aşağıdaki formülü girin
Kod:

=TOPLA(A1:B5)

A7 hücresine de aşağıdaki formülü girin
Kod:

=gizli_hucreleri_topla(A1:B5)

Daha sonra 3. satırı gizleyin.

Daha sonra gizli satırların ve toplam satırların toplamını ekranda görebileceksiniz.

Kolay gelsin.

Not: Fonksiyonumuzun hatasız çalışabilmesi için çalışma kitabını kaydetmeyi unutmayın.

excelexcel vbaexcel toplamagizli hücreleri topla
Kaynak: Excel vba Örnek Dosyalar Cd'si
Makale: ahmet aşkın küçükkaya