tek basamakta kümülatif toplam

[gazmik]

http://s3.dosya.tc/server16/uKHWRd/vba.zip.html
umarım anlatabileceğim derdimi, ve yardımcı olacaklara şimdiden çoook teşekkür ederim.

ekteki dosyada; P sütununa kümülatif toplam yazdırmam lazım ama ilk basmamda, ben ilk bastığımda sadece hesaplamasını(makrodan okuyabilirsiniz) 2 bastığımda ise kümülatif yapabilmesini becerdim, nasıl yapsam hiç bir fikrim de yok
yarına yetişmesi lazım, umarım yardımcı olursunuz

çok komplex olmadığını düşünüyorum

 

[ÖmerBey]

Sub Düğme1_Tıklat()
Dim a, b, SpEn, feed, overflow, underflow As Double
a = Cells(6, 3).Value
b = Cells(7, 3).Value
SpEn = Cells(3, 3).Value
feed = Cells(11, 3).Value
underflow = Cells(12, 3).Value
overflow = Cells(13, 3).Value
Cells(11, 3) = a * Exp(1) ^ (-SpEn / b)
Cells(12, 3) = a * Exp(1) ^ (-SpEn / b) - overflow
Dim i As Integer
For i = 2 To 26
Cells(i, 16) = (((Cells(i, 14) - Cells(i + 1, 14)) * Cells(11, 3).Value) - ((Cells(i, 15) - Cells(i + 1, 15)) * Cells(12, 3).Value)) / Cells(13, 3).Value
Next i
For j = 2 To 26
Cells(j, 16) = WorksheetFunction.Sum(range("P" & j & ":P" & 26))
Next
End Sub

 

[gazmik]

çok teşekkür ederim