Como sumar valores de los txbox

Hola, tango 6 texbox llamados texbox8,texbox48,texbox49,50,51 y texbox52, y desoe que en el texbox53 me aparezca la suma de lo otros texbox; osea texbox53=(tex..8+48+50+51+52)

1 respuesta

Respuesta
1
Crea un Modulo que por ejm se llame SUMA y escribe esto:
Sub SUMA()
'Yo asignaria el valor de cada TextBox a alguna Variable de Tipo Double asi
Dim N(5) As Double
Dim Resultado  As Double
On Error Resume Next
N(0) = UserForm1.TextBox1.Value
N(1) = UserForm1.TextBox2.Value
N(2) = UserForm1.TextBox3.Value
N(3) = UserForm1.TextBox4.Value
N(4) = UserForm1.TextBox5.Value
N(5) = UserForm1.TextBox6.Value
For S = 0 To 5
    Resultado = Resultado + N(S)
Next
UserForm1.TextBox7.Value = Resultado
End Sub
Y en el evento Change de Cada TextBox solo escribe "SUMA" sin comillas

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas