excel vba alt toplam

[omerturan]

merhaba

satır = Cells(Rows.Count, 1).End(xlUp).Row ' satır sayısı

sutun = Cells(7, Columns.Count).End(xlToLeft).Column ' sütun sayısı

toplamsatırı = satır + 1 ' toplamların alınmak istendiği satır


Range("c" & toplamsatırı) = "Toplam"
Range("d" & toplamsatırı) = SUM(D8210) Burada D:8 den başlayıp (D+satır) değişkeni arasını toplamak istiyorum
Range("e" & toplamsatırı) = "Toplam" Burada e:8 den başlayıp (e+satır) değişkeni arasını toplamak istiyorum
Range("f" & toplamsatırı) = "Toplam" Burada f:8 den başlayıp (f+satır) değişkeni arasını
toplamak istiyorum

Bu konuda yardımcı olursanız sevinirim teşekkürler

 

[cems]

Bu konuda yardımcı olursanız sevinirim teşekkürler

Bir veri içeren tablo hazırladıktan www.dosya.tc gibi bir dış servera yükleyip burada link paylaşırsanız çalışma tabanını vermiş olacağınızdan .deneyerek çözüm önereceklere de siz yardımcı olursunuz ve beklediğiniz cevap hız kazanabilir.

 

[antonio]

Merhaba,

Sub alttoplamlar()
Dim sh As Worksheet, satır As Long, sutun As Long, _
    toplam As Double, alan As Range, toplamsatırı As Long

Set sh = Sheets("Sayfa1")
satır = sh.Range("A" & Rows.Count).End(3).Row
toplamsatırı = satır + 1
sutun = 6
For d = 4 To 6 '(d, e ve f sütunları)
    Set alan = sh.Range(sh.Cells(8, d), sh.Cells(satır, d))
    toplam = CDbl(WorksheetFunction.Sum(alan))
    sh.Cells(toplamsatırı, d).Value = toplam
Next d
MsgBox "İşlem tamamlandı", vbInformation, "antonio"
End Sub

 

[omerturan]

Sayın cems teşekkürler excel dosyası veri tabanından veri çekn bir dosya olduğu için gönderemiyorum, göndersem bile deneme yapılamaz