VBA`da Toplam Formulu Uygulama

Excel – VBA`da Toplam Formulu Uygulama

[quote author=”- ramazan ramazan”]

Merhaba Mustafa Bey,

Ekte ki dosyada C sütunun toplamını almak istiyorum, eğer;

ActiveCell.FormulaR1C1 = “=SUM(R[-17]C:R[-1]C)”
Range(“C23”).Select

kodlarını kullanırsam bu makro sadece Sayfa1 sekmesinde çalışıyor, Sayfa2′ deki satır sayısı farklı olduğu için hatalı sonuç veriyor.
Benim yapmak istediğim genel toplam alabileciğim bir makro yapmak, ama satır sayısı değiştiğinde de çalışması gerekiyor.

Sizce bunu yapabilmek için hangi kodları kullanmam gerekir.

Teşekkürler,
İyi çalışmalar

Ramazan[/quote]

Merhaba Ramazan Bey, calismanizla ilgili son satiri bularak toplam almak adina kodunuz uzerinde duzenleme yapildi.

Kodlar asagidaki sekildedir;

Sub Genel_toplam()
Dim son As Long

'Genel Toplam yaz
    Range("B4").Select
    Selection.End(xlDown).Select
    Selection.Offset(1, 0).Select
    ActiveCell.FormulaR1C1 = "Genel Toplam"

'C sütunun toplamýný bul
    Selection.Offset(0, 1).Select
son = Cells(Rows.Count, "c").End(xlUp).Row + 1
Cells(son, "c").Formula = "=SUM(C4:C" & son - 1 & ")"
    Range("C23").Select

End Sub

Calismanizi ornek dosya uzerinde de inceleyebilirsiniz, iyi calismalar.

“VBA`da Toplam Formulu Uygulama” için 2 yorum

Bir Cevap Yazın

E-posta hesabınız yayımlanmayacak. Gerekli alanlar * ile işaretlenmişlerdir


7 + 3 =