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..
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 de paramisolo
1