Sütunları Toplama

[Stacker]

Herkese hayırlı akşamlar

Excel'de normal tablolarda =sum(A1:B1) yazarak C hücresine toplama yapıyoruz.

Ayrıca kod ilede

Range("C1").Formula = "=SUM(A1:B1)"

Yazarak ta aynı işi görebiliyoruz.

Fakat ben birden çok sütunu kod ile toplu halde hesaplamak istiyorum.

Ekte sunduğum tabloda bütün satırları ayrı ayrı toplayıp toplam hücrelerine yazdırmak istiyorum

Her satır için ayrı kod yazmak çok zaman alıyor.

Veriler ay sonunda toplandığı için bunun gibi yüzlerce sayfa oluşuyor.

bu konuda bilgi paylaşacak arkadaşlara şimdiden teşekkür ederim.

 

[Mahir64]

Merhaba,

Mevcut kodunuzu aşağıdaki ile değiştiriniz.

Dim X As Byte
    For M = 2 To 36
        Range("J" & M) = WorksheetFunction.Sum(Range("B" & M & ":I" & M))
    Next

 

[uzmanamele]

Merhaba

Bunu deneyiniz.

Sub toplamlar()
For i = 2 To Range("a65536").End(3).Row
Range("J" & i) = Application.WorksheetFunction.Sum(Range(Cells(i, 2), Cells(i, 9)))
Next
End Sub

 

[Stacker]

Mahir bey;

Çok Teşşekkür ederim tam istediğim gibi oldu

İyi çalışmalar

 

[Orion1]

Alternatif.

Sub topla59()
Dim sat As Long
sat = Cells(Rows.Count, "A").End(xlUp).Row
Range("J2:J" & sat).Formula = "=Sum($B2:$I2)"
Range("J2:J" & sat).Value = Range("J2:J" & sat).Value

End Sub

 

[Stacker]

Sayın Orion1

Sizinde kodlarınız çok başarılı Sizede teşekkür ederim