Sıra Numarasına Göre Toplam ve bir önceki tutarı bulma

[sirkülasyon]

Değerli Arkadaşlar
Ekli formda C sütunundaki rakama göre
D sütununa L sütununa rakam girdikçe girilen rakamda dahil olmak üzere toplamını yazacak.
E sütununa L sütununa rakam girdikçe girilen rakam hariç olmak üzere toplamını yazacak.

Böyle bir formül için rica etsem yardımcı olabilir misiniz?

Teşekkür eder saygılarımı sunarım.

 

[Muzaffer Ali]

Merhaba, kod ile yapmak isterseniz aşağıdaki kodu sayfanızın kod editörüne kopyalayın.

Private Sub Worksheet_Change(ByVal Target As Range)
    If Intersect(Target, Range("L:L")) Is Nothing Then Exit Sub
    Application.EnableEvents = False
    Cells(Target.Row, "D").Value = WorksheetFunction.Sum(Range("L3:L" & Target.Row))
    Cells(Target.Row, "E").Value = WorksheetFunction.Sum(Range("L3:L" & Target.Row)) - Target.Value
    Application.EnableEvents = True
End Sub

 

[sirkülasyon]

Sayın dalgalikur
Allah razı olsun. Makro için teşekkür ederim.
Yalnız zahmet vermez isem bunu formülleyebilir misiniz?
Çünkü esas dosyaya uygulamakta zorlanırım.

 

[Muzaffer Ali]

D3'e
=TOPLA(L$3:L3)

E3'e
=TOPLA(L$3:L3)-L3

Formüllerini yazıp aşağıya doğru kopyalayın.