Textbox toplama sonucunda hata

[airborne]

s.a.

Erkek user formunda;

textbox1=1 , textbox2=11 textbox3=10, textbox4=1.700
textbox5=1 , textbox6=11 textbox7=10, textbox8=1.200
textbox9=1 , textbox10=11 textbox11=10, textbox12=700

textbox13=3.600 olması gerekirken, 7.029 değeri veriyor.

Bu hata nasıl düzeltilebilir.

selametle..........

indirme linki :

İndir Kitap1 xlsm

Dosyayı indir Kitap1 xlsm

dosya.co

 

[kemal turan]

merhaba
Deneyiniz
Textbox' ların Exit olayında Textbox1 için örnek

Textbox1.value=format(cdbl(Textbox1.value),"#,##0")

Textboxların toplamı için (çarpma, çıkarma veya bölme işlemlerinde kullanabilirsiniz)

TextBox13.Value = Format(CDbl(TextBox1.Value) + CDbl(TextBox1.Value) + CDbl(TextBox3.Value) + CDbl(TextBox4.Value) + CDbl(TextBox5.Value) + CDbl(TextBox6.Value) + CDbl(TextBox7.Value) + CDbl(TextBox8.Value) + CDbl(TextBox9.Value) + CDbl(TextBox10.Value) + CDbl(TextBox11.Value) + CDbl(TextBox12.Value), "#,##0")

Private Sub UserForm_Initialize() olayında

Private Sub UserForm_Initialize()
textbox1.value=0
textbox2.value=0
textbox3.value=0
textbox4.value=0
textbox5.value=0
textbox6.value=0
textbox7.value=0
textbox8.value=0
textbox9.value=0
textbox10.value=0
textbox11.value=0
textbox02.value=0
end sub

 

[airborne]

s.a.

teşekkür ederim. ellerinize sağlık..

Selametle...........