Insertar una fila
Hola:
Quisiera que me ayuden con un ejemplo de como situarme en la columna A2, ir al ultimo registro de esa columna e insertar una fila.
Gracias
Jesús
1 respuesta
Necesito un poco de aclaración:
-Si nos vamos al último registro y bajamos una celda más estaremos en una celda en blanco y por consiguiente sería una nueva
¿Me puedes explicar un poco mejor la estructura de esa columna?
¿Cómo acaba?
Gracias por responder, estoy trabajando con la siguiente macro:
Private Sub CommandButton1_Click():
x = Hoja2.Range("A" & Rows.Count).End(xlUp).Row + 1 Hoja2.Cells(x, 1).Value = ComboBox1.Text 'FP
Hoja2.Cells(x, 2).Value = ComboBox2.Text 'CTE
Hoja2.Cells(x, 3).Value = CDate(TextBox1.Text) 'FECHA
Hoja2.Cells(x, 4).Value = ComboBox3.Text 'LA Hoja2.Cells(x, 5).Value = TextBox3.Text 'COD Hoja2.Cells(x, 6).Value = TextBox4.Text 'BOLETO Hoja2.Cells(x, 7).Value = TextBox5.Text 'RUTA1
Hoja2.Cells(x, 8).Value = TextBox11.Text 'RUTA2
Hoja2.Cells(x, 9).Value = TextBox12.Text
Hoja2.Cells(x, 12).Value = CDate(TextBox19.Text) 'FECHA DE SALIDA
Hoja2.Cells(x, 13).Value = TextBox6.Text 'NOMBRE PAX
Hoja2.Cells(x, 14).Value = CDbl(TextBox7.Text) 'NETO BS
Hoja2.Cells(x, 15).Value = CDbl(TextBox8.Text) 'NETO $US
ComboBox1 = ""
ComboBox2 = ""
ComboBox3 = ""
TextBox3 = ""
TextBox4 = ""
End Sub
Bueno esta macro la uso para registrar mis datos a la hoja2, solo que quisiera que antes de registrar estos datos inserte una fila y recién pase los datos del formulario, o sea en la hoja2 esta la lista global de ventas diarias, la cual esta en un cuadro y por eso quisiera insertar una fila después del ultimo registro y recién copiar los datos mencionados.
gracias
Jesús
Será mejor que me mandes una imagen de como están los datos o el archivo con la hoja de esos datos explicándome donde quieres insertarla
Listo ya te mande
gracias
jesus
Puedes utilizar estas sentencias para insertar esa fila que quieres y además utilizar la variable "ubica" para hacer el posterior volcado del userform.
En esta macro también te añade el número correspondiente a la columna V
Sub prueba()
Range("a65000").End(xlUp).Offset(-1, 0).EntireRow.Insert
ubica = ActiveCell.Address
Range(ubica).Offset(0, 21).Select
ActiveCell.Value = ActiveCell.Offset(-1, 0).Value + 1
End Sub
