Macro para insertar fila automáticamente
Esta vez necesito de su ayuda, necesito una macro que sea capaz de insertar automáticamente filas, a medida que se valla necesitando.
1 Respuesta
Respuesta de Jose Dario Correa
2
Con el siguiente código vas a poder ingresar las filas que quieras... cuando ejecutas la macro te aparece una ventana de dialogo preguntándote cuantas filas deseas insertar, escribes el numero de filas que quieras insertar y todos felices!
Sub InsertarFilas() Dim numFilas As Long 'Preguntar al usuario por el número de filas a insertar numFilas = Application.InputBox(Prompt:="Filas a insertar:", Type:=1) 'Validar si el número de filas indicado es superior a cero If numFilas > 0 Then 'Insertar filas Rows(ActiveCell.Row & ":" & ActiveCell.Row + numFilas - 1).Insert End If End Sub
Saludos! No se te olvide valorar la respuesta...
