Sumar dos celdas con macros..

Que tal.. Soy nuevo en esto je je..
TEngo la siguiente secuencia de macros...
Private Sub CommandButton1_Click()
Range("A9").Select
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox5 = Empty
TextBox6 = Empty
TextBox1.SetFocus
End Sub
Private Sub CommandButton2_Click()
INSERTA_DATOS.Hide
End Sub
Private Sub TextBox1_Change()
Range("A9").FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("B9").FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("C9").FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("D9").FormulaR1C1 = TextBox4
Range("D9") = Range("D9").Value
End Sub
Private Sub TextBox5_Change()
Range("E9").FormulaR1C1 = TextBox5
Range("E9") = Range("E9").Value
End Sub
Private Sub TextBox6_Change()
>>>>Aqui no se que poner para que me sume el textbox 4 y 5... Y me aparezca en pantalla, en el textbox 6...en el USERFORM.. Si es que se puede... Y/o que lo inserte en la fila adyacente a las dos qe se suman...>>>>>>
End Sub
.. Espero haberme dado a entender..
Gracias de antemano..

1 respuesta

Respuesta
1
En el TextBox6 pones
Range("F9").Formula="=TextBox4.Value+TextBox5.Value"
TextBox6.Value=Range("F9").Value
End Sub
La verdad es que todo el código debería de estar dentro del codigo del
Private Sub CommandButton2_Click()
Range("A9").FormulaR1C1 = TextBox1
Range("B9").FormulaR1C1 = TextBox2
Range("C9").FormulaR1C1 = TextBox3
Range("D9").FormulaR1C1 = TextBox4
Range("E9").FormulaR1C1 = TextBox5
Range("F9").Formula="=TextBox4.Value+TextBox5.Value"
TextBox6.Value=Range("F9").Value
End Sub
Así tu vas rellenando tus Textbox y cuando hagas clicK en el botón se grabarán todos los datos en la hoja, de esta forma si te equivocas podrás corregirlos antes de grabar.
>Un saludo
>Julio

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas