Textboxlarda Anında Toplama

[mmetin24]

İyi günler arkadaşlar yapamadğım şey textboxlarda toplamanın anında sonuç
textboxunda görünmesini sağlmak bunun için yardım ederseniz sevinirim.

 

[ocamsul]

İyi günler arkadaşlar yapamadğım şey textboxlarda toplamanın anında sonuç
textboxunda görünmesini sağlmak bunun için yardım ederseniz sevinirim.

SN: mmetin24 aşağıdaki kodu ilgili sayfanın kod bölümüne yapıştırın. İşinizi görecektir.


Private Sub TextBox2_Change()
TextBox3 = Val(TextBox2) + Val(TextBox2)
End Sub

 

[emrexcel123]

buyrun

şu kodları dener misin ?
Private Sub TextBox1_Change()
TextBox3.Value = Val(TextBox1.Value) + Val(TextBox2.Value)
End Sub
ii çalışmalar...

 

[Levent Menteşoğlu]

Aşağıdaki kodları sayfa1'in kod sayfasına kopyalayın.

Private Sub TextBox1_Change()
deg1 = IIf(TextBox1 = "", 0, TextBox1)
deg2 = IIf(TextBox2 = "", 0, TextBox2)
TextBox3 = Replace(CDbl(deg1) + CDbl(deg2), ".", ",")
End Sub
 
Private Sub TextBox2_Change()
TextBox1_Change
End Sub

 

[mmetin24]

Teşekkürler!

Sayın üstadlarım cevapalarınız için çok teşekkür ederim.
Sayenizde Excel de baya şeyler öğreniyorum.
varolun...:icelim: