Userform üzerinde textboxları toplama sıkıntısı

[Rainbows]

Merhaba,

5 textbox'ı textbox1 e topluyorum. veri girişi yaptıgım textboxlara sayı formatı verdigim için toplamları dogru getirmiyor.(sayı formatını kaldırınca dogru topluyor)örnek dosyayı ekte bulabilirsiniz. nerede yanlış yapıyorum acaba?

Not: bu arada textbox'a binli sayılar girdigim zaman sacmalıyor. yani textbox2 ye 5000 textbox3 e 5000 girdiginiz zaman ne demek istedigimi göreceksiniz.

 

[Rainbows]

arkadaşlar yokmudur yardımcı olabilecek bir arkadaş. ne yaptıysam olmuyor nerede yanlış yapıyorum

Private Sub TextBox2_exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value) + Val(TextBox6.Value)
TextBox1.Text = Format(TextBox1, "#,##0.00")
TextBox2.Text = Format(TextBox2, "#,##0.00")
TextBox3.Text = Format(TextBox3, "#,##0.00")
TextBox4.Text = Format(TextBox4, "#,##0.00")
TextBox5.Text = Format(TextBox5, "#,##0.00")
TextBox6.Text = Format(TextBox6, "#,##0.00")
End Sub
Private Sub TextBox3_exit(ByVal Cancel As MSForms.ReturnBoolean)
On Error Resume Next
TextBox1.Value = Val(TextBox2.Value) + Val(TextBox3.Value) + Val(TextBox4.Value) + Val(TextBox5.Value) + Val(TextBox6.Value)
TextBox1.Text = Format(TextBox1, "#,##0.00")
TextBox2.Text = Format(TextBox2, "#,##0.00")
TextBox3.Text = Format(TextBox3, "#,##0.00")
TextBox4.Text = Format(TextBox4, "#,##0.00")
TextBox5.Text = Format(TextBox5, "#,##0.00")
TextBox6.Text = Format(TextBox6, "#,##0.00")
End Sub

 

[PLİNT]

Merhaba
Şöyle deneyin:

 Private Sub TextBox2_exit(ByVal Cancel As MSForms.ReturnBoolean)
For A = 2 To 6
If IsNumeric(Me.Controls("Textbox" & A).Text) = True Then
m = m + CDbl(Controls("Textbox" & A).Text) 
Me.Controls("Textbox" & A) = Format(Me.Controls("Textbox" & A), "#,##0.00")
End If
Next
TextBox1.Text = Format(m, "#,##0.00")
End Sub

Private Sub TextBox3_exit(ByVal Cancel As MSForms.ReturnBoolean)
For A = 2 To 6
If IsNumeric(Me.Controls("Textbox" & A).Text) = True Then
m = m + CDbl(Controls("Textbox" & A).Text) 
Me.Controls("Textbox" & A) = Format(Me.Controls("Textbox" & A), "#,##0.00")
End If
Next
TextBox1.Text = Format(m, "#,##0.00")
End Sub

Olmazsa;
Örnek dosyanızı ekleyip indirme adresi verirmisiniz?:http://s3.dosya.tc/

 

[Rainbows]

Merhaba
Şöyle deneyin:

 Private Sub TextBox2_exit(ByVal Cancel As MSForms.ReturnBoolean)
For A = 2 To 6
If IsNumeric(Me.Controls("Textbox" & A).Text) = True Then
m = m + CDbl(Controls("Textbox" & A).Text) 
Me.Controls("Textbox" & A) = Format(Me.Controls("Textbox" & A), "#,##0.00")
End If
Next
TextBox1.Text = Format(m, "#,##0.00")
End Sub

Private Sub TextBox3_exit(ByVal Cancel As MSForms.ReturnBoolean)
For A = 2 To 6
If IsNumeric(Me.Controls("Textbox" & A).Text) = True Then
m = m + CDbl(Controls("Textbox" & A).Text) 
Me.Controls("Textbox" & A) = Format(Me.Controls("Textbox" & A), "#,##0.00")
End If
Next
TextBox1.Text = Format(m, "#,##0.00")
End Sub

Olmazsa;
Örnek dosyanızı ekleyip indirme adresi verirmisiniz?:http://s3.dosya.tc/

Merhaba yardımınız için teşekkürler, verdiginiz örnek calıstı fakat form üzerinde başka textboxlar oldugu zaman bu şekilde calışmıyor maalesef. bu örnekte textbox yok fakat olacak.

örnegin textbox7,8,9,15 in toplamı da textbox20 ye gelecek mesela.

örnegi linki http://s3.dosya.tc/server6/2flbgx/kayit.rar.html

 

[PLİNT]

örnegin textbox7,8,9,15 in toplamı da textbox20 ye gelecek mesela.

Merhaba
Kullanacağınız şekildeki bir örneği eklemiş olsanız daha iyi olurdu ama
şöylede yapabilirsiniz
Aşağıdaki kırmızı "TextBox2" yi en son veri girdiğiniz textboxa uyarlayın.
mavi bölüme; toplanmasını istediğiniz textbox no larını virgül koyarak ekleyin
"Textbox20" ye toplamayı yapacaktır.

 Private Sub [COLOR="Red"]TextBox2[/COLOR]_exit(ByVal Cancel As MSForms.ReturnBoolean)
topla = Array[COLOR="Blue"](7, 8, 9, 15) [/COLOR]
For a = 0 To UBound(topla)
If IsNumeric(Me.Controls("Textbox" & topla(a)).Text) = True Then
m = m + CDbl(Controls("Textbox" & topla(a)).Text)
Me.Controls("Textbox" & topla(a)) = Format(Me.Controls("Textbox" & topla(a)), "#,##0.00")
End If
Next
[COLOR="Blue"]TextBox20.Text[/COLOR] = Format(m, "#,##0.00")
End Sub

 

[Rainbows]

Merhaba
Kullanacağınız şekildeki bir örneği eklemiş olsanız daha iyi olurdu ama
şöylede yapabilirsiniz
Aşağıdaki kırmızı "TextBox2" yi en son veri girdiğiniz textboxa uyarlayın.
mavi bölüme; toplanmasını istediğiniz textbox no larını virgül koyarak ekleyin
"Textbox20" ye toplamayı yapacaktır.

 Private Sub [COLOR="Red"]TextBox2[/COLOR]_exit(ByVal Cancel As MSForms.ReturnBoolean)
topla = Array[COLOR="Blue"](7, 8, 9, 15) [/COLOR]
For a = 0 To UBound(topla)
If IsNumeric(Me.Controls("Textbox" & topla(a)).Text) = True Then
m = m + CDbl(Controls("Textbox" & topla(a)).Text)
Me.Controls("Textbox" & topla(a)) = Format(Me.Controls("Textbox" & topla(a)), "#,##0.00")
End If
Next
[COLOR="Blue"]TextBox20.Text[/COLOR] = Format(m, "#,##0.00")
End Sub

yardımlarınız icin tesekkürler. bu kod isimi gördü.