Boton en excel para agragar datos
Lo que tengo es lo siguiente
Private Sub CommandButton1_Click()
Dim ultimafila As Long
Sheets("hoja2").Select
ultimafila = Range("A65536").End(xlUp).Row
ultimafila = ultimafila + 1
Cells(ultimafila, 1).Select
ActiveCell.Value = TextBox1
TextBox1 = emty
End Sub
Como ago que al apretar el mismo botón me saque los datos del textbox2 y los ponga en la siguiente celda en blanco EJ: lo del textbox1 = a1... Lo del textbox2 = b1... Y lo del textbox3 en c1
bueno y si ingreso otro registro más obviamente debería empezar con la fila numero 2 luego en la 3, 4 5 6 ...
Saludos espero respuesta porque es un poco urgente
Private Sub CommandButton1_Click()
Dim ultimafila As Long
Sheets("hoja2").Select
ultimafila = Range("A65536").End(xlUp).Row
ultimafila = ultimafila + 1
Cells(ultimafila, 1).Select
ActiveCell.Value = TextBox1
TextBox1 = emty
End Sub
Como ago que al apretar el mismo botón me saque los datos del textbox2 y los ponga en la siguiente celda en blanco EJ: lo del textbox1 = a1... Lo del textbox2 = b1... Y lo del textbox3 en c1
bueno y si ingreso otro registro más obviamente debería empezar con la fila numero 2 luego en la 3, 4 5 6 ...
Saludos espero respuesta porque es un poco urgente
1 Respuesta
Respuesta de José Saúl Méndez Alonso
1
Ya tenias la solución
Private Sub CommandButton1_Click()
Dim ultimafila As Long
Dim ultimacolumna As Long
Sheets("hoja2").Select
ultimafila = Range("A65536").End(xlUp).Row
ultimafila = ultimafila + 1
Cells(ultimafila, 1).Select
ActiveCell.Value = TextBox1
Cells(ultimafila, 2).Select
ActiveCell.Value = TextBox2
Cells(ultimafila, 3).Select
ActiveCell.Value = TextBox3
TextBox1 = empty
TextBox2 = empty
TextBox3 = empty
End Sub
Private Sub CommandButton1_Click()
Dim ultimafila As Long
Dim ultimacolumna As Long
Sheets("hoja2").Select
ultimafila = Range("A65536").End(xlUp).Row
ultimafila = ultimafila + 1
Cells(ultimafila, 1).Select
ActiveCell.Value = TextBox1
Cells(ultimafila, 2).Select
ActiveCell.Value = TextBox2
Cells(ultimafila, 3).Select
ActiveCell.Value = TextBox3
TextBox1 = empty
TextBox2 = empty
TextBox3 = empty
End Sub
