Belli Hücreleri Toplama

[ÆSir]

Ekteki gibi her bölüm farklı satırlardan oluşuyor ve hepsinin toplamı H sütunundaki Tutar hücresinin altında veriliyor. Nasıl bir fonksiyon veya makro ile o hücreye Tutar yazan hücrenin altındaki hücreleri topla diyebiliriz?

 

[hmtstc]

hocam H sütununda yazıyor ama son toplamlar P sütununda mı ? H nin altı 0 çünkü ?

 

[hmtstc]

hocam merhaba,

aşağıdaki kod işinizi görür diye düşünüyorum.
Eğer satır H değilse aşağıdaki formülde değiştirebilirsiniz.

Dim i As Long
Dim son As Long

Application.ScreenUpdating = False
son = Cells(Rows.Count, 1).End(3).Row

i = 1
Do
    If Cells(i, 1) = "Tarih" Then
        j = i + 1
        satır = i
        Do
            If Cells(j, 1) = "Tarih" Then
                Cells(i + 1, 8).FormulaLocal = "=TOPLA(H" & i + 3 & ":H" & j - 1 & ")"
                i = j
                GoTo 10010
            End If
            j = j + 1
        Loop While j < son + 10
    End If
i = i + 1
10010
Loop While i < son + 10
Cells(satır + 1, 8).FormulaLocal = "=TOPLA(H" & satır + 3 & ":H" & son & ")"

 

[Korhan Ayhan]

Alternatif;

DİZİ formüldür.

=TOPLA(EĞER(H2:H41="T u t a r";H3:H42))

 

[ÆSir]

Teşekkür ederim, desteğiniz için. Dediğiniz gibi çalıştı. Elinize sağlık.