Mira esto que hice. Tomalo de ejemplo. Cambias los datos y se suman en los TEXTBOX purpura.
http://myfreefilehosting.com/f/2ea33198db_0.1MB
(es mucho CODE repetido), puedes hacer una rutina al terminar de cargar los datos A.R. e B.R., Asi:
Código vb:
Ver originalSub TOTALES()
txtTOTAL2 = Val(Text1.Text) + Val(Text2.Text) + Val(Text3.Text) + Val(Text4.Text) + Val(Text5.Text)
txtTOTAL3 = Val(Text6.Text) + Val(Text7.Text) + Val(Text8.Text) + Val(Text9.Text) + Val(Text10.Text)
txtTOTAL1 = Val(txt1.Text) + Val(txt2.Text) + Val(txt3.Text) + Val(txt4.Text) + Val(txt5.Text)
End Sub
Se ve mucho mejor
