2 textbox toplamını üçüncü textbox a yazdırma

[nisanbir]

Merhabalar,
Textbox1 ve Texbox2 deki sayıları textbox3 e yazdırmak istiyorum.

textbox1 ve textbox2 ye aşağıdaki gibi veri çekiyorum

Private Sub UserForm_Initialize()

For i = 3 To Sheets("AAAARAPOR").Range("A65536").End(xlUp).Row
valacak = CDbl(valacak) + CDbl(Sheets("AAAARAPOR").Cells(i, "c").Value)
Next
TextBox1.Value = Format(("" & valacak & ""), ("#,#0.00 TL"))

For i = 3 To Sheets("AAAARAPOR").Range("A65536").End(xlUp).Row
valınan = CDbl(valınan) + CDbl(Sheets("AAAARAPOR").Cells(i, "b").Value)
Next
TextBox2.Value = Format(("" & valınan & ""), ("#,#0.00 TL"))

End Sub

Texbox3 e 567.89,00 TL formatında toplamı almak istiyorum.
Aynı şekilde çıkarma yapmak.

Aşağıdaki şekilde uyguladığımda

Private Sub TextBox1_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Private Sub TextBox2_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub

Sunuç 6850,15 şeklinde çıkması gerekirken 6.85 şeklinde çıkıyor.

 

[Orion1]

Şu VAL işleriniz bırakamadınız gitti.Onlar QBASIC zamanından kaldılar.

Private Sub TextBox1_Change()
On Error Resume Next
TextBox3.Text = 0
TextBox3.Value = Format(CDbl(TextBox1.Value) + CDbl(TextBox2.Value), "#,##0.00")
End Sub

Private Sub TextBox2_Change()
On Error Resume Next
TextBox3.Text = 0
TextBox3.Value = Format(CDbl(TextBox1.Value) + CDbl(TextBox2.Value), "#,##0.00")
End Sub

 

[nisanbir]

Sn. Evren Gizlen,

Belirttiğiniz kodu ekledim sonuc sıfır olarak görünüyor.

Dosya Ektedir.

 

[Orion1]

Dosyanız sorunsuz çalışıyor.
Benim yolladığım dosyayıda bir deneyiniz.
Ayrıca textboxlarıda kiltlemişsiniz.
Niye bizi uğraştırıyorsunuz.Madem soru sordunuz textboxların kilidini çözseniz ya.
textboxlara sayı dışında değer girmeyiniz.
Mesela 200 TL yi 200 yazın
200 TL yazmayın.O zaman girilen değeri string olarak kabul eder.
Ben dosyada ayarladım.Siz sayıyı yazıp çıktıktan sonra format gereği otomatikman para birimini ekleyecek.:
Dosya ekte.