martes, 3 de noviembre de 2015

Una macro excel para insertar filas en listas largas

Con este código se pude hacer que inserte el número de filas en blanco que necesitemos y que no dé el error que comentan más abajo. 
Probado en Office2010
Option Explicit
Sub insertar_cuatro_lineas()
Dim f As Integer
Dim nfilas As Integer
Dim i As Integer
f = 4 'fila inicial
nfilas = 4 'numero de filas en blanco a introducir
Do While Not IsEmpty(Cells(f, 1))
For i = 1 To nfilas
Cells(f, 1).EntireRow.Insert
Next i
f = f + nfilas + 1
Loop
End Sub
Espero de sea de utilidad.

Reacciones:

0 comentarios:

Publicar un comentario