Hola buen dia!
Mi pregunta es como puedo hacerle para agregar un registro sin que haya un salto de linea esto usando macros con visual basic y excel, lo k pasa esqe al insertar datos inserta el primer dato en la celda A3 y este seria el primero y el segundo al insertarse dezplaza a este primer dato y el segundo dato se qeda como primero y asi sucesivamente ahora lo que me pidieron esque eso ya no suceda me pidieron que el primer dato siempre se qede en la celda A3 y al ingresar otro dato pues se vaya a la celda A4 y asi sucesivamente.
Muxhas gracias por su atencion.
mi codigo es:
Private Sub CommandButton1_Click()
Selection.EntireRow.Insert
TextBox1 = Empty
TextBox2 = Empty
TextBox3 = Empty
TextBox4 = Empty
TextBox6 = Empty
TextBox7 = Empty
TextBox8 = Empty
TextBox9 = Empty
TextBox1.SetFocus
TextBox2.SetFocus
TextBox3.SetFocus
TextBox4.SetFocus
TextBox6.SetFocus
TextBox7.SetFocus
TextBox8.SetFocus
TextBox9.SetFocus
End Sub
Private Sub TextBox1_Change()
Range("A3").Select
ActiveCell.FormulaR1C1 = TextBox1
End Sub
Private Sub TextBox2_Change()
Range("H3").Select
ActiveCell.FormulaR1C1 = TextBox2
End Sub
Private Sub TextBox3_Change()
Range("B3").Select
ActiveCell.FormulaR1C1 = TextBox3
End Sub
Private Sub TextBox4_Change()
Range("C3").Select
ActiveCell.FormulaR1C1 = TextBox4
End Sub
Private Sub TextBox6_Change()
Range("D3").Select
ActiveCell.FormulaR1C1 = TextBox6
End Sub
Private Sub TextBox7_Change()
Range("E3").Select
ActiveCell.FormulaR1C1 = TextBox7
End Sub
Private Sub TextBox8_Change()
Range("F3").Select
ActiveCell.FormulaR1C1 = TextBox8
End Sub
Private Sub TextBox9_Change()
Range("G3").Select
ActiveCell.FormulaR1C1 = TextBox9
End Sub
