textbox ta rakam harf formatında hata! rakamları virgülden sonra tam'a yuvarlıyor

[elvis]

arkadaşlar başlıkta da bahsettiğim gibi textboxlara yazdığım rakam listeye geçince tam'a yuvarlanmış olarak kaydediliyor. mesela; 12,02 diye yazdığım rakam listeye 12,00 diye kaydediliyor. bir yerde yanlışlık var ama anlayamadım yardımcı olacak arkadaşlara kodun tamamını yolluyorum.

Private Sub CommandButton10_Click()
On Error Resume Next
If MsgBox(ActiveCell.Offset(0, 0).Value & " " & " dosya için ödemeye devam edilsin mi?", vbYesNo, "Uyarı") = vbYes Then
ActiveCell.Offset(0, 2).Value = Val(TextBox18.Value) + Val(ActiveCell.Offset(0, 2).Value) * 1
MsgBox "İşlem tamamlandı!", vbSystemModal, "Mesaj"
Frame1.Visible = False
TextBox15.Value = ActiveCell.Offset(0, 2).Value
If TextBox14.Value = TextBox15.Value Then
TextBox17.Value = "BORCU BİTMİŞTİR."
Else
If TextBox15.Value = "" Then
TextBox17.Value = TextBox14.Value
Else
TextBox17.Value = Val(TextBox14.Value) - Val(TextBox15.Value) 'textbox17 deki rakam tam'a yuvarlanıyor!
End If
End If
End If

If MsgBox(ActiveCell.Offset(0, 0).Value & " " & " dosya ödemesi raporlara aktarılsın mı?", vbYesNo, "Uyarı") = vbYes Then
satir = WorksheetFunction.CountA(Sheets("Sayfa3").Range("A1:A65536")) + 1
Sheets("Sayfa3").Cells(satir, 1) = TextBox1.Value
Sheets("Sayfa3").Cells(satir, 2) = TextBox10.Value
Sheets("Sayfa3").Cells(satir, 3) = TextBox11.Value
Sheets("Sayfa3").Cells(satir, 4) = TextBox13.Value
Sheets("Sayfa3").Cells(satir, 5) = Val(TextBox18.Value)
Sheets("Sayfa3").Cells(satir, 6) = ComboBox1.Value
Sheets("Sayfa3").Cells(satir, 7) = TextBox19.Value
MsgBox "Ödeme bilgisi raporlara aktarıldı.", vbSystemModal, "UYARI"
End If

TextBox15 = FormatNumber(TextBox15.Text, 2)
TextBox17 = FormatNumber(TextBox17.Text, 2)
TextBox18 = FormatNumber(TextBox18.Text, 2)
Exit Sub
End Sub

 

[Zeki Gürsoy]

Merhaba,
"Val" fonksiyonlarını kaldırın düzelecektir. Zaten kodlarınızda çarpma işlemi
kullanmadığınız için sorun çıkarmayacaktır.

 

[elvis]

teşekkür ederim arkadaşım!
sorun çözüldü.
iyi çalışmalar