insertar renglones de acuerdo con condicion

No dices en qué columna están los datos, o si son varias...
Suponiendo que estuvieran en la columna A, el siguiente código debería servirte:

Sub InsertarReglones()
Dim lngFila As Long
lngFila = 2 'Se supone que la primera fila tiene la palabra TRUE

Application.ScreenUpdating = False
With Worksheets("Hoja1") 'Hoja que se procesará
While Not IsEmpty(.Cells(lngFila, 1))
If Not IsError(Application.Search("TRUE", .Cells(lngFila, 1))) Then
.Cells(lngFila, 1).EntireRow.Insert
lngFila = lngFila + 2
Else
lngFila = lngFila + 1
End If
Wend
End With
Application.ScreenUpdating = True
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel

"Raul Rodriguez" escribió en el mensaje news:143a801c3c329$17ba8100$

Saludos desde Mexico,

Tengo un archivo de datos muy grande pero sin separaciones
entre los datos, cada dato puede tener 3 o 4 renglones de
informacion, por lo que necesito insertar un renglon en
blanco antes de cada nuevo dato. Cuando empieza otro nuevo
dato el renglon tiene la palabra "true" incluida, por lo
que esta palabra puede ser usada como condicion.

Alguien me podria ayudar con algun tip o codigo para
solucionar esto por favor?.

Gracias de antemano y saludos.

Raul Rodriguez.