Soru çıkarma işlemi

[Cengizhantr06]

Sub toplamborc()
TextBox93.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))
TextBox94.Value = Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
TextBox95.Value = CDbl(TextBox93.Value) - CDbl(TextBox94.Value)
TextBox93 = Format(Replace(TextBox93, ".", ","), "#,##0.00")
TextBox94 = Format(Replace(TextBox94, ".", ","), "#,##0.00")
TextBox95 = Format(Replace(TextBox95, ",", "."), "#.##0,00")

End Sub
toplamlar doğru ama çıkan sonuç yanlış
yani textbox93 = 3.106,12
textbox94= 1.650,00

textbox95 = 308962,00000
nerede hata var ?

 

[ÖmerFaruk]

Sub toplamborc()
    TextBox93.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))
    TextBox94.Value = Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox95.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))- Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox93 = Format(Replace(TextBox93, ".", ","), "#,##0.00")
    TextBox94 = Format(Replace(TextBox94, ".", ","), "#,##0.00")
    TextBox95 = Format(Replace(TextBox95, ",", "."), "#.##0,00")
End Sub

 

[Cengizhantr06]

Sub toplamborc()
    TextBox93.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))
    TextBox94.Value = Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox95.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))- Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox93 = Format(Replace(TextBox93, ".", ","), "#,##0.00")
    TextBox94 = Format(Replace(TextBox94, ".", ","), "#,##0.00")
    TextBox95 = Format(Replace(TextBox95, ",", "."), "#.##0,00")
End Sub

hocam TextBox95 =145612,00000 çıktı

 

[ÖmerFaruk]

Dosyanızı bir gönderir misiniz

 

[Cengizhantr06]

Dosyanızı bir gönderir misiniz

tamam

 

[ÖmerFaruk]

Bazı nesneleriniz bende hata veriyor. Kodu deneyemedim.
Ancak verdiğiniz kodlarda TextBox95 için Nokto-Virgül diğerlerinden daha farklıydı.

Sub toplamborc()
    TextBox93.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))
    TextBox94.Value = Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox95.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F")) - Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox93 = Format(Replace(TextBox93, ".", ","), "#,##0.00")
    TextBox94 = Format(Replace(TextBox94, ".", ","), "#,##0.00")
    TextBox95 = Format(Replace(TextBox95, ".", ","), "#,##0.00")
End Sub

 

[Cengizhantr06]

Bazı nesneleriniz bende hata veriyor. Kodu deneyemedim.
Ancak verdiğiniz kodlarda TextBox95 için Nokto-Virgül diğerlerinden daha farklıydı.

Sub toplamborc()
    TextBox93.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))
    TextBox94.Value = Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox95.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F")) - Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox93 = Format(Replace(TextBox93, ".", ","), "#,##0.00")
    TextBox94 = Format(Replace(TextBox94, ".", ","), "#,##0.00")
    TextBox95 = Format(Replace(TextBox95, ".", ","), "#,##0.00")
End Sub

Tm deneyim teşekkür ederim

 

[Cengizhantr06]

Bazı nesneleriniz bende hata veriyor. Kodu deneyemedim.
Ancak verdiğiniz kodlarda TextBox95 için Nokto-Virgül diğerlerinden daha farklıydı.

Sub toplamborc()
    TextBox93.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F"))
    TextBox94.Value = Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox95.Value = Application.WorksheetFunction.Sum(Sheets("borc").Range("F:F")) - Application.WorksheetFunction.Sum(Sheets("odenen").Range("F:F"))
    TextBox93 = Format(Replace(TextBox93, ".", ","), "#,##0.00")
    TextBox94 = Format(Replace(TextBox94, ".", ","), "#,##0.00")
    TextBox95 = Format(Replace(TextBox95, ".", ","), "#,##0.00")
End Sub

Şimdi dikkat ettim evet txt95 deki virgül ve nokta diğerlerinden farklıymış şimdi düzeldi çok teşekkür ederim