Forums Últimos mensajes - Powered by IBM
 

Insertar celdas de forma alterna

25/04/2007 - 21:04 por Tris | Informe spam
Hola al grupo.
A ver si alguien me puede ayudar con lo siguiente.
Tengo una columna con muchos datos, una cosa del tipo:
fila 1) 1234
fila 2) 2345
fila 3) 3456
fila 4) 4567
...
Lo que quería es insertar un celda en blanco entre dato y dato, o sea, que
me quede algo así:
fila 1) 1234
fila 2)
fila 3) 2345
fila 4)
fila 5) 3456
fila 6)
fila 7) 4567
fila 8)
...
A ser posible, preferiría que no insertara filas enteras (lo que me
modificaría también las columnas adyacentes), sino sólo las celdas
necesarias en esa columna en concreto.
¿Se podrá hacer de forma automática de alguna manera? Porque como lo tenga
que hacer a mano...
Gracias por adelantado.
Un saludo,
Tris
 

Leer las respuestas

#1 Héctor Miguel
26/04/2007 - 05:44 | Informe spam
hola, ?

Tengo una columna con muchos datos, una cosa del tipo:
fila 1) 1234
fila 2) 2345
fila 3) 3456
fila 4) 4567
...
Lo que queria es insertar un celda en blanco entre dato y dato, o sea, queme quede algo asi:
fila 1) 1234
fila 2)
fila 3) 2345
fila 4)
fila 5) 3456
fila 6)
fila 7) 4567
fila 8)
...
A ser posible, preferiria que no insertara filas enteras (lo que me modificaria tambien las columnas adyacentes)
sino solo las celdas necesarias en esa columna en concreto...



si suponemos que estamos hablando de la columna 'A' -?-
y que la fila 1 queda como esta y se insertan filas alternas desde la fila 2...
-> y siempre y cuando NO necesites mas alla de 2048 celdas [limite para areas/rangos 'NO-contiguos']...
prueba con una macro +/- como la siguiente [en un modulo de codigo normal/general/estandar/...]

Sub Inserta_saltos()
Dim Fila As Integer, Rango As String
For Fila = 2 To 4 ' no mas alla de 2048 <= OJO '
Rango = Rango & "a" & Fila & ","
Next
Range(Left(Rango, Len(Rango) - 1)).Insert xlShiftDown
End Sub

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.

Preguntas similares