Hesaplama İşleminin Sonuna Virgül (,) Koyuyor.

[ahmed_ummu]

Merhaba arkadaşlar.

Aşağıdaki kod ile sayfaya yazdırdığım bir çarpma işleminin sonunda virgül çıkıyor. 2.114,41 olması gerek. 2.114,41, oluyor. Yardım edebilir misiniz.

tutarg15_31 = Format(ActiveCell.Offset(0, 6).Value * CDbl(ActiveCell.Offset(0, 3).Value), "#,##0.00")
tutarg1_14 = Format(ActiveCell.Offset(0, 7).Value = CDbl(ActiveCell.Offset(0, 4).Value), "#,##0.00")
ActiveCell.Offset(0, 8).Value = tutarg15_31 + tutarg1_14


Aşağıdaki gibi de denedim, yine olmadı. Sonuç 2.114,416546 çıkıyor

tutarg15_31 = ActiveCell.Offset(0, 6).Value * CDbl(ActiveCell.Offset(0, 3).Value)
tutarg1_14 = ActiveCell.Offset(0, 7).Value = CDbl(ActiveCell.Offset(0, 4).Value)
ActiveCell.Offset(0, 8).Value = tutarg15_31 + tutarg1_14


Aşağıdaki gibi de olmadı. Sonuç 2.1140.00 çıkıyor

tutarg15_31 = Format(ActiveCell.Offset(0, 6).Value * ActiveCell.Offset(0, 3).Value, "#,##0.00")
tutarg1_14 = Format(ActiveCell.Offset(0, 7).Value = ActiveCell.Offset(0, 4).Value, "#,##0.00")
ActiveCell.Offset(0, 8).Value = tutarg15_31 + tutarg1_14

 

[Korhan Ayhan]

Sanki şurada sorun var gibi..

tutarg1_14 = ActiveCell.Offset(0, 7).Value = CDbl(ActiveCell.Offset(0, 4).Value)

 

[ahmed_ummu]

Sanki şurada sorun var gibi..

tutarg1_14 = ActiveCell.Offset(0, 7).Value = CDbl(ActiveCell.Offset(0, 4).Value)

Teşekürler Korhan bey. Sonuç 2.114,41272 çıktı