Çözüldü textboxlar arasında toplama

[sirkülasyon]

Private Sub ................._Change()
Dim t2 As Double
Dim t3 As Double
Dim t4 As Double
Dim t5 As Double
t2 = Val(TextBox1.Value)
t3 = Val(TextBox3.Value)
t4 = Val(TextBox5.Value)
t5 = Val(TextBox7.Value)
TextBox9 = t1 + t3 + t5 + t7
End Sub

Yapmak istediğim aşağıda belirttiğim textboxlara veri girdiğim an Textbox9 da otomatik toplaması.
Textbox1 + Textbox3 + Textbox5 + Textbox7

Ama bir türlü olmadı. Yardımcı olabilir misiniz?

 

[Mahmut Bayram]

TextBox9.Text = Application.Sum(TextBox1, TextBox3 TextBox5, TextBox7)

 

[EmrExcel16]

Merhaba tanımlamaları t2,t3,t4,t5 diye yapmışsın fakat toplarken t1 + t3 + t5 + t7 diye yapmışsın belki sorun bu olabilir tanımlamalarda yada toplarken kontrol et

 

[sirkülasyon]

Olmadı yine toplamadı

 

[yanginci34]

Denermisin.
https://dosya.co/0ty94lhyz39q/otomatik_toplam.xlsm.html

 

[Mahmut Bayram]

Dim top As Double
On Error Resume Next
top = top + CDbl(TextBox1.Text)
top = top + CDbl(TextBox3.Text)
top = top + CDbl(TextBox5.Text)
top = top + CDbl(TextBox7.Text)
TextBox9.Text = top

 

[EmrExcel16]

Private Sub TextBox1_Change()
Dim t2 As Double, t3 As Double, t4 As Double, t5 As Double
t1 = Val(TextBox1.Value)
t3 = Val(TextBox3.Value)
t5 = Val(TextBox5.Value)
t7 = Val(TextBox7.Value)
TextBox9 = t1 + t3 + t5 + t7
End Sub
Private Sub TextBox3_Change()
Dim t2 As Double, t3 As Double, t4 As Double, t5 As Double
t1 = Val(TextBox1.Value)
t3 = Val(TextBox3.Value)
t5 = Val(TextBox5.Value)
t7 = Val(TextBox7.Value)
TextBox9 = t1 + t3 + t5 + t7
End Sub
Private Sub TextBox5_Change()
Dim t2 As Double, t3 As Double, t4 As Double, t5 As Double
t1 = Val(TextBox1.Value)
t3 = Val(TextBox3.Value)
t5 = Val(TextBox5.Value)
t7 = Val(TextBox7.Value)
TextBox9 = t1 + t3 + t5 + t7
End Sub
Private Sub TextBox7_Change()
Dim t2 As Double, t3 As Double, t4 As Double, t5 As Double
t1 = Val(TextBox1.Value)
t3 = Val(TextBox3.Value)
t5 = Val(TextBox5.Value)
t7 = Val(TextBox7.Value)
TextBox9 = t1 + t3 + t5 + t7
End Sub

 

[sirkülasyon]

Mahmut Hocam
Sağ olasın. Teşekkür ederim

 

[sirkülasyon]

EmrExcel16
Allah razı olsun. Teşekkür ederim.
Sağ ol

 

[EmrExcel16]

EmrExcel16
Allah razı olsun. Teşekkür ederim.
Sağ ol

Rica ederim ,İyi çalışmalar.