Textbox taki değerleri toplama

[syil]

Userform üzerindeki textbox1,2,3,4,5 değerlerinin Toplamını , aynı form üzerindeki textbox6 ya for next döngüsünü kullanarak yazdırmak istiyorum,nasıl yapabilirim???uğraştım ama olmadı ...yardımlarınız için teşekkürler....

 

[veyselemre]

[vb:1:faa8d1aa9b]toplam = 0
For X = 1 To 5
If IsNumeric(Controls("Textbox" & X).Value) Then toplam = toplam + Controls("Textbox" & X).Value
Next X
TextBox6 = toplam[/vb:1:faa8d1aa9b]

 

[syil]

Sn veyselemre ilgin için öncelikle tesekkürler.Ama vermiş oldugunuz kodları denedim ama istedigim şey gerçekleşmedi.Bu kodlara göre textbox1,2,3,4,5 e girdigim değerler mesela textbox1=1,textbox2=2,textbox3=3,textbox4=4,textbox5=5 olsun bu değerleri textbox6 ya şu şekilde yazdırıyor "12345" diye yani texboxlara girilen değerleri yan yana sıralıyor ,toplamıyor.Ben toplamasını istiyorum.Nasıl olabilir??? :yardim:

 

[Ali]

Sn syil, Sn veyselemre, verdiği kodlarda hata yok. Bir yeri atlıyor olabilirmisiniz.

 

[syil]

Çok özür dilerim Sn veyselemre ,ben biraz dikkatsiz davranmışım başlangıçtaki "toplam=0" 'ı atlamışşım şimdi istedigim oldu,kusura bakmayın dikkatsizliğim için,yeniden teşekkür ederim ilgin için... :hey:

 

[veyselemre]

Ekteki örneği inceleyin aynı sonucu mu verecek?
Eğer aynı sonucu verirse o zaman versiyon farkından kaynaklanıyor
olabilir,
dim toplam as long veya(single/double)
şeklinde kodların başına ilave yaparak deneyin.

 

[metinozlu]

benim kullandığım toplama makrosu işine yarıyabilir.
kendi nesnelerine göre referansları değiştiriniz

Private Sub CommandButton5_Click()
On Error Resume Next
Dim i As Integer
Set A = TextBox162
A.Value = 0
For i = 7 To 159 Step 8
UserForm2.Controls("textbox" & i).Value = Replace(UserForm2.Controls("textbox" & i).Value, ".", ",")
TextBox162.Value = Replace(TextBox162, ".", ",")
A.Value = Round(A.Value, 2) + Round(UserForm2.Controls("textbox" & i), 2)
Next i
A.Value = A.Value
End Sub

 

[Ongun]

Merhaba, ekli örneği denermisiniz. Kolay gelsin.