toplam hk

[bulentkars]

Arkadaşla Merhaba

sub toplam ()
sonsatır = Cells(65536, "D").End(xlUp).Offset(-1, 0).Row
adr = Range(Cells(10, "D"), Cells(sonsatır, "D")).Address
Cells(65536, "D").End(xlUp).Offset(1,0).Value = WorksheetFunction.Sum(Range(adr))

end sub

yazdıgım makro calıstıgında toplam sonucunu koyu yapmak ıstıyorum ve toplamın sol tarafına yanı c satırınada Toplam yazmasını istiyorum koyu olacak yardımcı olursanız sevinirim..

 

[hamitcan]

Sub toplam()
    Columns("c").ClearContents
    Columns("c:d").Font.Bold = False
    sonsatır = [d65536].End(3).Row
    adr = Range(Cells(10, "D"), Cells(sonsatır, "D")).Address
    Cells(sonsatır + 1, "d") = WorksheetFunction.Sum(Range(adr))
    Cells(sonsatır + 1, "c") = "Toplam"
    Range(Cells(sonsatır + 1, "c"), Cells(sonsatır + 1, "d")).Font.Bold = True
End Sub

 

[bulentkars]

ilgi için teşekkür ederim fakat toplam alırken en alttan son ıkı satırı topluyor yanı d10:100 arasında verı var sadece d99:d100 ü topluyor ben d10:d100 toplatırmak istiyorum

 

[hamitcan]

Ben sizin kodlarınıza dokunmadım. Sadece sorduğunuz soruya yanıt vermişdim. Kodu yeniledim.