kaydet-topla kodu

[yalovam77]

merhaba üstadlarım sabrınıza ve yardımınıza teşekkür ederim. ekteki dosyada sayfa1 deki verileri sayfa2 ye kayıt yapıyorum kayıt yaptığım anda sayfa2 de para cinsi olanların otomatik olarak toplanması lazımki toplam sonucuda başka yerde kullanacağım tabi sayfa2 deki verileri sildiğim zamanda toplama işlemi sıfırlanacak yeniden kayıt girdiğim zaman yine toplama olacak ayrı ayrı makroyla yaptım ancak adeta excel donuyor ayno kodun içine yerleştirmekteki maksadım acaba biraz daha hızlı olurmu diye ekteki dosyada kodları birleştirmeye çalıştım ama beceremedim ilgilenirseniz sevinirim

 

[Ayhan Ercan]

Merhaba @yalovam77

Kodları aşağıdaki gibi değiştirerek denermisiniz?

Private Sub CommandButton1_Click()
Son_Dolu_Satir = Sheets("Sayfa2").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("Sayfa2").Range("A" & Bos_Satir).Value = _
Application.WorksheetFunction.Max(Sheets("Sayfa2").Range("A:A")) + 1
Sheets("Sayfa2").Range("B" & Bos_Satir).Value = [Sayfa1!A1]
Sheets("Sayfa2").Range("C" & Bos_Satir).Value = [Sayfa1!A2]
Sheets("Sayfa2").Range("D" & Bos_Satir).Value = [Sayfa1!A3]
[B][COLOR=purple][Sayfa2!f1].Value = WorksheetFunction.Sum([Sayfa2!c2:c10000])[/COLOR][/B]
End Sub