Insertar n filas en un rango de celdas
Hola tengo un rango de varios datos pero quisiera que la macro inserte un numero de filas que se introduce en un msgbox. , tengo esta macro que solo inserta 1 fila en cada rango
Sub InsertarFilasEnRango()
Dim EsteRango As String, Fila As Long
For Fila = 1 To Range("a65536").End(xlUp).Row
If EsteRango <> "" Then EsteRango = EsteRango & ","
EsteRango = EsteRango & "a" & Fila
Next
Range(EsteRango).EntireRow.Insert
End Sub
espero me puedan ayudar
1 Respuesta
Respuesta de Dante Amor
1
Esta es la macro
Sub insertarfilas()
'Por.DAM
n = InputBox("Número de filas a insertar: ", "INSERTAR FILAS")
If Not IsNumeric(n) Or n < 1 Then Exit Sub
For i = Range("A" & Rows.Count).End(xlUp).Row To 1 Step -1
Rows(i & ":" & i + n - 1).Insert
Next
End Sub Saludos. Dante Amor
No olvides finalizar la pregunta.
