Macro que inserte filas

Hola, estoy empezando en esto, y necesito una macro que me inserte tantas filas como tenga el valor de una determinada celda.
Muchas gracias por adelantado.

1 respuesta

Respuesta
1
Aquí tienes la macro tan solo cambia la referencia a la celda que yo he puesto B3
Sub Insertar_Filas()
Dim fila As Integer
Range("B3").Select
fila = 0
fila = Range("B3").Value
While fila > 0
ActiveCell.Offset(1, 0).Range("a1").Select
Selection.EntireRow.Insert
fila = fila - 1
Wend
End Sub
Espero que te sirva
>Un saludo
>Julio

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas