Makro ile toplam aldırma

[bmutlu966]

Belli kolonlardaki sayıların toplamlarını makro ile almak istiyorum. Ekteki dosyada basit bir örnek hazırladım.

 

[İhsan Tank]

x y z yazdığınız sütunlar hep aynı yerde mi olacak yoksa yerleri değişecek mi_?

 

[bmutlu966]

Yerleri değişebilir. Aşağı doğru ise 15-20 bin satır data büyüyebilir...

 

[İhsan Tank]

sanırım anlatamadım
C sütununu siz X
D sütununu siz z
E sütununu siz y
F sütununu siz X
G sütununu siz z
H sütununu siz y
olarak tanımlamışsınız bunlar değişecek mi_?
satırlar değişebilir ama sütundaki sizin belirledikleriniz değişecek mi_?
değişmeyecek ise

Option Explicit
Sub topla()
Dim ts, kaplan, trabzonspor
trabzonspor = MsgBox("Toplama Yapayım Mı_?", vbYesNo, "Onay")
If trabzonspor = vbNo Then Exit Sub
Range("J3:L65536").ClearContents
kaplan = 3
For ts = 3 To Cells(65536, "C").End(xlUp).Row
Cells(kaplan, "J") = Cells(ts, "C") + Cells(ts, "F")
Cells(kaplan, "K") = Cells(ts, "E") + Cells(ts, "H")
Cells(kaplan, "L") = Cells(ts, "D") + Cells(ts, "G")
kaplan = kaplan + 1
Next
MsgBox "Toplamları Çıkarttım", vbInformation, "Bitiş"
End Sub

bu kod işinizi görür

 

[bmutlu966]

Sayın Tank,

öncelikle ilginiz için teşekkürler. Aslında ben sizin nedemek istediğinizi anlamıştım. x y z lerin yeri değişebilir. Yani C ve H kolonları arasındaki x y ve z ler farklı yerlerde olabilir. O yüzden yazılacak kodun bu duruma göre olması gerekiyordu.

 

[ercens]

araştırıordum burda buldum , 2011 tarihinde açılmış konu ama teşekkürler