TOplama işlemi

[atasoft]

merhaba UserForm üzerinde 4 tane alt alta dizi texbox var yapmak istediğim button tıkladığım zaman texboxların içindeki rakamların bir texbıxta toplanmasını itiyorum yardımcı olutsanız sevinirim. tşk.

 

[Levent Menteşoğlu]

Aşağıdaki gibi deneyin.

TextBox5 = CCur(TextBox1) + CCur(TextBox2) + CCur(TextBox3) + CCur(TextBox4)

veya

TextBox5 = TextBox1*1 + TextBox2*1 + TextBox3*1 + TextBox4*1

Eğer textboxlardan birinin boş geçilmesi ihtimali varsa bu durumda aşağıdaki gibi öneririrm. Bu koddada textbox isimleri ardışık gitmelidir.

For a = 1 To 4
If Controls("textbox" & a) <> "" Then deg = Controls("textbox" & a) * 1 + deg
Next
TextBox5 = deg