INSERTAR FILAS EN BLANCO

Hola DANIEL:

Este código en un botón de comando hace lo que tú quieres.

Private Sub CommandButton1_Click()
Dim f_in, f_fi As Integer
f_in = inputbox("INSERTE LA FILA INICIAL", "FILA INICIAL")
If f_in = 0 Or f_in = False Then Exit Sub
f_fi = inputbox("INSERTE LA FILA FINAL", "FILA FINAL")
If f_fi < f_in Or f_fi = False Then Exit Sub
For n = f_in + 2 To f_fi
Rows(n & ":" & n).Insert Shift:=xlDown
Rows(n & ":" & n).EntireRow.Insert
n = n + 3
Next
End Sub

Es lento para mi gusto, así que espero que alguien aporte algo mejor o lo
mejore.

Saludos.-

"DANIEL" escribió en el mensaje de
noticias news:

Hola a todos.
Tengo varios archivos con rangos diferentes que pueden tener desde 50
hasta
500 filas y que inician tambien en filas distintas.

No existen filas en blanco.

Deseo insertar dos filas en blanco cada dos filas y que pueda seleccionar
el
rango en el que se insertarán las filas para poder aplicarlo en varios
archivos.

Ojala me pudieran ayudar con un código para hacerlo.

Y aprovechando la ocasión si me pueden recomendar algún libro o manual
para
aprender a elaborar códigos de VBA se los agradeceré.

Gracias.