TextBox.ta toplama

[İsmail Küçükşengün]

Merhabalar;

Bir Userform üzerinde bulunan TextBox 9, 10, 11, 12 ve 13' e sayılar girilmekte veya başka yerden gelmekte.. Textbox.14.te bunların Toplamı kendiliğinden nasıl gelir.
Nasıl bir kod gereklidir.

Textbox9, 10, 11, 12 ve 13'ün hepsinde sayı olmayabilir.Yani bunlardan
1 veya birkaçı boş olsa bile Textbox.14.te toplamının yazılması.

Şimdiden teşekkürler.....

 

[abdi]

Sayın kucuksengun,
aşağıdaki linki incelemenizi rica ediyorum

Saygılar sevgiler
Çalışmalarınızda Başarılar Dilerim.

http://www.excel.web.tr/viewtopic.php?p=101296#101296
Edit:
levent beyin ilgili çalışması
http://www.excel.web.tr/download.php?id=16125

 

[veyselemre]

Örneği kendinize düzenleyin,
[vb:1:4a1af46cca]Private Sub TextBox9_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox9.Value) Then Call hesapla
End Sub
Private Sub TextBox10_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox10.Value) Then Call hesapla
End Sub
Private Sub TextBox11_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox11.Value) Then Call hesapla
End Sub
Private Sub TextBox12_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox12.Value) Then Call hesapla
End Sub
Private Sub TextBox13_Exit(ByVal Cancel As MSForms.ReturnBoolean)
If IsNumeric(TextBox13.Value) Then Call hesapla
End Sub
Sub hesapla()
TextBox14.Value = 0
For x = 9 To 13
If IsNumeric(Controls("TextBox" & x)) Then TextBox14.Value = Val(TextBox14.Value) + Val(Controls("TextBox" & x))
Next x
End Sub[/vb:1:4a1af46cca]

 

[İsmail Küçükşengün]

Sn. veyselemre;

İlginize çok teşekkür ederim.

Sizin sayenizde bu forumda pekçok sorunumu çözdüm.

Verdiğiniz kodu uyguladığımda;
(Controls kısmı hata verdi.

Ben de sn.leventm'in topla-çıkar.daki clas modülünü uygulamaya
çalıştım. (Tabii ki acemilikten) bayağı uğraştıktan sonra sorunumu
çözdüm.

Teşekkürler. :hey:

Sayın abdi;

İşiniz gücünüz arasında yine bana cevap yetiştirdiniz.
Selam ve teşekkürler. :hey: