Insertar filas vacias

09/12/2008 - 21:07 por Silvia Gutierrez | Informe spam

Hola amigos, les queria lanzar la siguiente pregunta. Tengo instalado excel
2003 y tengo un rango de datos A3:L308 y lo que me gustaria seria como puedo
de alguna forma automatica insertar dos filas en blanco consecutivas cada 10
filas, es decir insertar dos filas en blanco en las filas
13-14,25-26,37-38,49,50, etc Al insertar esas filas en blancos las filas que
actualmente se desplazan hacia abajo no las borra.

Por adelantado muchas gracias

Siga el debate

2 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Raúl Bajo Sanz

09/12/2008 - 21:39 | Informe spam

A ver si te funciona esta pequeña macro:

Sub Macro1()
'
' Macro1 Macro
'

'
Dim a As Integer

Range("A1").Select

For a = 1 To 30

ActiveCell.Offset(12, 0).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert

Next a

End Sub

Saludos,
RaúlBS.

"Silvia Gutierrez" wrote:

Hola amigos, les queria lanzar la siguiente pregunta. Tengo instalado excel
2003 y tengo un rango de datos A3:L308 y lo que me gustaria seria como puedo
de alguna forma automatica insertar dos filas en blanco consecutivas cada 10
filas, es decir insertar dos filas en blanco en las filas
13-14,25-26,37-38,49,50, etc Al insertar esas filas en blancos las filas que
actualmente se desplazan hacia abajo no las borra.

Por adelantado muchas gracias

http://www.microsoft.com/communitie...23281f8075

Responder a este mensaje

#2 Héctor Miguel

10/12/2008 - 03:15 | Informe spam

hola, Silvia !

... tengo un rango de datos A3:L308 y... me gustaria seria... de alguna forma automatica
insertar dos filas en blanco consecutivas cada 10 filas
es decir insertar dos filas en blanco en las filas 13-14,25-26,37-38,49,50, etc...

como alternativa adicional, peurba con una macro +/- como la siguiente:

Sub Inserta2filas_cada_n()
Dim n As Byte, x As Integer, Rango As String
n = 10
For x = 13 To [a65536].End(xlUp).Row Step n
Rango = Rango & "," & "a" & x & ":a" & x + 1
Next
Range(Mid(Rango, 2)).EntireRow.Insert
End Sub

saludos,
hector.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida