doğru toplama yaptıramıyorum

[mtbi00]

iyi günler,

ekte örnek dosyada olduğu gibi excel dosyalarım var. toplama yaptırmak istiyorum ama kuruşları toplatamıyorum. yardımlarınızı bekliyorum teşekkürler.

 

[Orion1]

topmat = topmat + [COLOR="Red"][B]CDbl[/B][/COLOR](Sheets("aaaa").Cells(i, "a"))
topkdv = topkdv + [B][COLOR="Red"]CDbl[/COLOR][/B](Sheets("aaaa").Cells(i, "b"))

 

[mtbi00]

hocam çok teşekkür ederim sağolun

 

[Orion1]

hocam çok teşekkür ederim sağolun

Rica ederim.
İyi çalışmalar.