Textboxta Ondalık Olarak Toplama

[mustafakoker]

Selam
Sayın İhsan beyin hazırlamış olduğu kodlar asağıdadır

textbox7-9-30-31-32 ondalık olarak rakam girdiğimde (123,10) ondalıklı kısımların Textbox9 a toplamıyor

bu arada ondalık rakamları (,) olarak numpedden giriyorum o zaman sorun oluyor (Nokta koyduğumda sorun yok 123.10 gibi)

nokta yerine virgül kullanmak istiyorum

 Private Sub CommandButton1_Click()
TextBox36 = Val(TextBox7.Value) + Val(TextBox9.Value) + Val(TextBox30.Value) + Val(TextBox31.Value) _
+ Val(TextBox32.Value) + Val(TextBox33.Value)
Sheets("TAHSILAT").Range("D10") = TextBox3.Text
Sheets("TAHSILAT").Range("D11") = TextBox4.Text
Sheets("TAHSILAT").Range("E12") = TextBox5.Text
Sheets("TAHSILAT").Range("K12") = TextBox6.Text
Sheets("TAHSILAT").Range("B18") = TextBox10.Text
Sheets("TAHSILAT").Range("B19") = TextBox11.Text
Sheets("TAHSILAT").Range("B20") = TextBox12.Text
Sheets("TAHSILAT").Range("B21") = TextBox13.Text
Sheets("TAHSILAT").Range("G18") = TextBox15.Text
Sheets("TAHSILAT").Range("G19") = TextBox16.Text
Sheets("TAHSILAT").Range("G20") = TextBox17.Text
Sheets("TAHSILAT").Range("G21") = TextBox18.Text
Sheets("TAHSILAT").Range("L18") = TextBox20.Text
Sheets("TAHSILAT").Range("L19") = TextBox21.Text
Sheets("TAHSILAT").Range("L20") = TextBox22.Text
Sheets("TAHSILAT").Range("L21") = TextBox23.Text
Sheets("TAHSILAT").Range("Q18") = TextBox25.Text
Sheets("TAHSILAT").Range("Q19") = TextBox26.Text
Sheets("TAHSILAT").Range("Q20") = TextBox27.Text
Sheets("TAHSILAT").Range("Q21") = TextBox28.Text
Sheets("TAHSILAT").Range("V18") = TextBox30.Text
Sheets("TAHSILAT").Range("V19") = TextBox31.Text
Sheets("TAHSILAT").Range("V20") = TextBox32.Text
Sheets("TAHSILAT").Range("V21") = TextBox33.Text
Sheets("TAHSILAT").Range("B6") = TextBox7.Text
Sheets("TAHSILAT").Range("P6") = TextBox9.Text
Sheets("TAHSILAT").Range("I6") = Val(TextBox30.Value) + Val(TextBox31.Value) + Val(TextBox32.Value) + Val(TextBox33.Value)
Sheets("TAHSILAT").Range("W6") = TextBox36.Text
Sheets("TAHSILAT").Range("U2") = TextBox2.Text
If TextBox2 = Empty Then MsgBox "Tarih Giriniz", vbInformation: Exit Sub
If TextBox3 = Empty Then MsgBox "Müşteri Giriniz", vbInformation: Exit Sub
If TextBox36 = Empty Then MsgBox "Tutar Giriniz", vbInformation: Exit Sub
Son_Dolu_Satir = Sheets("CARI").Range("A65536").End(xlUp).Row
Bos_Satir = Son_Dolu_Satir + 1
Sheets("CARI").Range("A" & Bos_Satir).Value = TextBox2.Text
Sheets("CARI").Range("B" & Bos_Satir).Value = TextBox3.Text
Sheets("CARI").Range("C" & Bos_Satir).Value = TextBox36.Text

MsgBox TextBox36.Value & " TL Tahsilat Tutarı Girildi .", vbInformation, "Tahsilat Makbuzu Programı"
MsgBox "İşlem Tamam." & vbLf & _
"Yeni Makbuz İçin Makbuzu Yazdırıp Temizle Butonunu Kullanın.", vbOKOnly + vbInformation, "By Mustafa"
End Sub

 

[İhsan Tank]

dosyanızı ekler misiniz

 

[mustafakoker]

İhsan Bey dosya ektedır
numpedden ondalıklı rakam yazdığımda örnekte erdiğim gibi 123,10+123,10
toplam da textbox9 da 246,20 tl olması gerekiyor

 

[mustafakoker]

ihsan bey konu hakkında bir gelişme varmıdır acaba

 

[İhsan Tank]

İhsan Bey dosya ektedır
numpedden ondalıklı rakam yazdığımda örnekte erdiğim gibi 123,10+123,10
toplam da textbox9 da 246,20 tl olması gerekiyor

eki inceler misiniz

 

[mustafakoker]

olmadı
TAHSILAT BILGILERINE
123,10
123,10 girin kendiniz deneyin ne demek istediği anlayacaksınız
toplam 246,00 Görünüyor olması gereken 246,20

 

[İhsan Tank]

olmadı
TAHSILAT BILGILERINE
123,10
123,10 girin kendiniz deneyin ne demek istediği anlayacaksınız
toplam 246,00 Görünüyor olması gereken 246,20

eki inceler misin

 

[mustafakoker]

ihsan bey öncelikle emekleriniz için ne kadar teşekkür etsem azdır

 

[İhsan Tank]

2. sorunuz tamam onu hallettim.
1. sorunuzu anlayamadım resimsiz anlatırsanız

 

[mustafakoker]

İhsan bey teseşkkur ederim evde ki pcmde yine buradan indirdiğim kod bankasında aşağıdaki kodu uyguladım sorun çözüldü yardımlarınız için teşekkürler

Private Sub CommandButton1_Click()
On Error Resume Next

Dim t7 As Double
Dim t9 As Double
Dim t30 As Double
Dim t31 As Double
Dim t32 As Double
Dim t33 As Double

t7 = TextBox7.Value
t9 = TextBox9.Value
t30 = TextBox30.Value
t31 = TextBox31.Value
t32 = TextBox32.Value
t33 = TextBox33.Value

TextBox36 = t7 + t9 + t30 + t31 + t32 + t33

Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
'SAYI FORMATI.............................................................
On Error Resume Next
TextBox9 = Format(TextBox9, "##,##.00 ")
End Sub


'TEXTBOX 9A SADECE RAKAM GİRMEYE ZORLA.............
Private Sub TextBox9_Change()
On Error Resume Next
If Len(TextBox9.Text) = 0 Then Exit Sub
If Not IsNumeric(TextBox9.Text) Then
Beep
MsgBox "Harf girilmeyecek,Sadece Rakam Giriniz .......!!", vbOKOnly, "By Mustafa !!!"
End If
End Sub