Bir sütunun doluluğuna göre diğer sütunu toplama

[Gold_Savt]

B sütunu doluysa, D sütunundaki ilgili alanları bir önceki dolu hücreye kadar toplamak mümkün müdür?
Örnek çalışmam ektedir.

 

[ÖmerFaruk]

Var olan kodunuz aynı soruyu F sütununa bakıp BH sütunundaki rakamları toplayarak yapıyor.

 

[Gold_Savt]

Özür dilerim, örnek çalışmayı yeniledim.

 

[ÖmerFaruk]

Private Sub CommandButton1_Click()
    ilk = 7
    Son = Range("B" & Rows.Count).End(3).Row
    Range("C" & ilk, "C" & Son).ClearContents
    Dizi = Range("B" & ilk, "D" & Son).Value
    For i = 1 To UBound(Dizi)
        Topla = Dizi(i, 3) + Topla
        If Dizi(i, 1) <> "" Then
            Dizi(i, 2) = Topla
            Topla = 0
        End If
    Next i
    Range("B7").Resize(UBound(Dizi, 1), UBound(Dizi, 2)) = Dizi
End Sub