Aynı hücreye üst üste yazılan rakamı toplama

[hakpin]

Değerli üstatlar; Ekte gönderdiğim dosyada Yüklenici sayfasındaki "İcra sütunundaki hücrelerin altına yine bu Forum dan aktardığım bir kod yazdım.Aynı hücreye üst üste yazdığım rakamları topluyor.Yalnız, Giriş sayfasından kaydet tuşu ile gönderdiğim zaman ilgili ayın hücresine gönderiyor fakat,ikinci bir rakam yazdığımda üzerine toplamıyor.sadece son yazdığımı yazıyor.Ayrıntılı açıklamayı ekteki dosyada sayfalar üzerinde yapmaya çalıştım.İlgilenir ve yardımcı olursanız çok seviniri.Şimdiden teşekkürler.Bilginize sağlık.

 

[Mahmut Kök]

Sub Düğme1552_Tıklat()
cevap = MsgBox("İcra Tutarını müşteri sayfasına kaydetmek istiyormusunuz?", vbYesNo)
If cevap = vbYes Then
sayfa = [d3]
sOn = WorksheetFunction.CountA(Sheets(sayfa).[af8:af19]) + 1
ay = Sheets(sayfa).[c5]
eski = Sheets(sayfa).Cells(ay + 7, "af").Value
yeni = eski + [aj31]
Sheets(sayfa).Cells(ay + 7, "af") = yeni
End If

Application.CommandBars("Forms").Visible = False
Range("AJ31:AQ31").Select
ActiveCell.FormulaR1C1 = "=DATA!R[-29]C[-4]"
Range("AC10").Select
End Sub

 

[hakpin]

Sayın Üstad,Mesleki
Çok teşekkür ederim tam istediğim gibi,ellerinize ve bilginize sağlık kolay gelsin..