textbox toplama kodu gerekli

[cetorp2007]

arkadaşlar yardımlarınız gerekli

5-6 adet text box var

bunların içindeki girdiğim sayı değerlerini textbox1 yazdırmak istiyorum birkaç kod denedim ama ya otomatik gelmiyor kapatıp açmam yada button yapılması isteniiyor,

ben sade birşey istiyoru
textbos lara yazdığım değerlerin toplamlarını textbox1 de toplamış olarak görmek istiyorum buton kullanmadan..

yardımalarınız işin şimdiden teşekkürler....

 

[Zeki Gürsoy]

Örnek dosya ekler misiniz?

 

[cetorp2007]

örnek

örnek basit birşey yaptım ihşallah anlata bilmişimdir
saygılar

 

[cetorp2007]

!

arkadaşlar anlatabildimi mi acaba derdimi
yardım edebilileyecek varmıdır

 

[Zeki Gürsoy]

Ekli dosyayı deneyin.

Private Sub TextBox1_Change()
    Topla
End Sub
 
Private Sub TextBox2_Change()
    Topla
End Sub
 
Private Sub Topla()
On Error Resume Next
 
Dim Top As Double, i As Byte
 
Top = 0
 
For i = 1 To OLEObjects.Count - 1
    Top = Top + OLEObjects(i).Object
Next
 
TextBox3 = Top
End Sub

 

[cetorp2007]

teşekkürler

teşekkür ederim tam istediğim gibi
elinize sağlık

saygılarımlaaa...

 

[cetorp2007]

bir soru daha yaaa.

tamam demiştim ama

ben deki textboxların sayısı fazla mesela textbox59'a textbox25 + textbox30 + textbox36 + textbox41 + textbox46 textbox51

bi kaç tane daha var bu nasıl olacaka acaba

kusura bakmayın

 

[cetorp2007]

yardım

arkadaşlar soruma ışık tutabilecek bi arkadaş yokmu acaba tıkandım kaldım yaaa

yukarıdaki kod ile bütün textboxların toplamını alıp duruyor


yardım pls