Virgüllü Toplama

[askm]

Kolay gelsin. Aşağıdaki kod ile toplama yapıyorum. Normal hücreleri seçip sayfanın altında toplamda virgüllü yazıyor. Ama bu kod sonucunda virgülsüz yuvarlayıp yazıyor. Bunu nasıl engellerim.
Sayfa toplamı: 10.293,75
Kod Sonucu Toplam:10.294,00
Bu iki değeri eşitlemek istiyorum.

Top = Format(WorksheetFunction.Sum(s2.Range("DJ" & 64 & ":DJ" & 184)), "##,##.00 ")

 

[vardar07]

Hücreye yazdırıyorsanız metin olarak yazdığı için olabilirmi. Sonuna *1 ekleyip denedinizmi.

Top = Format(WorksheetFunction.Sum(s2.Range("DJ" & 64 & ":DJ" & 184)), "##,##.00 ")[COLOR="Red"][B]*1[/B][/COLOR]

 

[askm]

Vardar07 ilginiz için teşekkürler. Yalnız sorun sanırım tanımlama ile ilgili. Long olarak tanımladım olmadı double yaptım olmadı. İnteger toplam büyük olduğu için sıkıntı. Ne olarak tanımlamam gerekli.