Forums Últimos mensajes - Powered by IBM
 

insertar fila en blanco

09/12/2005 - 12:42 por ACH | Informe spam
Tengo una lista con mas de 2000 filas y quiero insertar una fila en blanco
despues de cada una de las que ya yengo escritas. ¿Como lo hago mediante una
macro y de una sola vez?.
 

Leer las respuestas

#1 Gabriel Raigosa
09/12/2005 - 15:08 | Informe spam
Saludos:

suponiendo que tengo datos desde celda A1 hasta la fila "x", no importa
cual.

la macro va a la celda A1 e inserta una fila debajo de esta, luego busca la
siguiente fila con algún dato e inserta otra fila en blanco y así
sucesivamente.

Sub insertar()
ActiveSheet.Range("A1").Activate
Do While Not IsEmpty(ActiveCell)
ActiveCell.Offset(1, 0).Activate
Selection.EntireRow.Insert
ActiveCell.Offset(1, 0).Activate
Loop
ActiveSheet.Range("A1").Activate
End Sub

Gabriel Raigosa


"ACH" escribió en el mensaje
news:OWlTjWL$
Tengo una lista con mas de 2000 filas y quiero insertar una fila en blanco
despues de cada una de las que ya yengo escritas. ¿Como lo hago mediante
una macro y de una sola vez?.


Preguntas similares