Satır ve sütunların toplamları

[izcik]

Merhabalar

WorksheetFunction.Sum

Bu kod ile sütun ve satırların toplamlarını almak istedim. Makro kaydet yöntemini kullandım. Hem doğru olmadı hem de biraz atmasyon olduğu için, içime sinmedi.

Örnek1'de amacım, sütunların toplamlarını, kendi sütunlarının en üst hücresinde (1. satır hücreleri oluyor doğal olarak), örnekdeki gibi almak.

Örnek2'de amacım, satırların toplamlarını, kendi satırlarının en baş hücresinde (A sütunu hücreleri oluyor doğal olarak), örnekdeki gibi almak.

Önemli not: Kodların, örnekteki gibi her sütun için ayrı ve her satır için ayrı olması gerekmektedir. Bir bütün halinde tamamını kapsayacak kodlar, maalesef bu olayda işime yaramayacaktır. Zira her biri için ayrı düğme kullanacağım.

ornek1.xlsm dosyasını indir - download

ornek1.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

www.dosya.tc

ornek2.xlsm dosyasını indir - download

ornek2.xlsm dosyasını indir, download. Dosya.tc .Dosya Upload. Dosya Paylaş. Dosya Yükle

s6.dosya.tc

 

[hamitcan]

Aralık verirseniz olur.

Range("A7") = WorksheetFunction.Sum(Range("b7:o7"))
Range("A10") = WorksheetFunction.Sum(Range("b10:o10"))
Range("B1") = WorksheetFunction.Sum(Range("B2:B1000"))
Range("D1") = WorksheetFunction.Sum(Range("D2:D1000"))

 

[izcik]

Aralık verirseniz olur.

Range("A7") = WorksheetFunction.Sum(Range("b7:o7"))
Range("A10") = WorksheetFunction.Sum(Range("b10:o10"))
Range("B1") = WorksheetFunction.Sum(Range("B2:B1000"))
Range("D1") = WorksheetFunction.Sum(Range("D2:D1000"))

Hamitcan uzmanım teşekkürler, blgisayar başına geçince deneyeceğim.
Bir iki tane de satır toplamları için örnek yazar mısınız
Dikkatli bakınca farkettim
Üsttekiler sanıyorum satırlar için.

 

[izcik]

Hamitcan uzmanım teşekkür ederlm. Saygılar