Textboxları Toplamak

[memduh]

Selan Arkadaşlar. Herkesin geçmiş Bayramını kutlar saygılar sunarım. Tutar1 diye başlayıp Tutar20 kadar olan textboxları kısa yoldan toplamak istiyorum.

 

[algil]

aşağıdaki gibi bir kod işinizi görür sanırım.

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

 

[Haluk]

    For i = 1 To 20
        s = s + Val(Controls("Tutar" & i))
    Next
    MsgBox s

 

[memduh]

Sayın haluk bey teşekkürler. Yapamadım. Yazmayı unutmuşum tutar toplamlarını textbox21e alacak.

 

[Haluk]

Koddaki MsgBox s satırı yerine, Tutar21 = s veya TextBox21 = s yazın.