Pegar Fila copiada

Pepe:
Si querer quitarte la intención de que aprendas VBA, te
comento que eso que pretendes lo puedes hacer de una
manera más fácil y sencilla sin necesidad de crear
ninguna macro, mediante un formato condicional...

Este TIP ya lo había mandado anteriormente pero con gusto
te lo vuelvo a dar

Procedimiento.

1.- Selecciona (sombrea) el área de datos al que quieres
aplicar el formato.
2.- Luego ve a "Formato" à "Formato condicional."
· En el espacio de Condición 1, cambia el valor que
te da por defecto "Valor de la celda" por el de "Fórmula"
· En el espacio de la derecha teclea la siguiente
fórmula
=RESIDUO(FILA(),2)=1
Todavía no hagas clic en el botón Aceptar
· Da un clic en el botón "Formato"
· En la siguiente ventana, en "Tramas", selecciona
el color del primer renglón (verde) y si lo requieres
cambia el color de la fuente y tipo de letra.
· Clic en el botón "Aceptar"
· Clic en el botón "Agregar"
· En el espacio de Condición 2, cambia el valor que
te da por defecto "Valor de la celda" por el de "Fórmula"
· En el espacio de la derecha teclea la siguiente
fórmula
=RESIDUO(FILA(),2)=0
· Da un clic en el botón "Formato"
· En la siguiente ventana, en "Tramas", selecciona
el color del segundo renglón (azul) y si lo requieres
cambia el color de la fuente y tipo de letra.
· Clic en "Aceptar" y clic en "Aceptar".

Listo...

No siempre la programación es el mejor camino.

Saludos
Servando Villalón

Veamos, soy nuevo en este tema y hace poco descubri que

podia usar VB

en excel, ya ves que paleto soy; pues bien sin mas rodeo

lanzo mi

duda.

Tengo unas tablas muy bonitas que se intercalan de color

conforme

vamos descendiendo por la columna y ademas lo hacen

intercalando

colores, es decir, la primera fila es verde, la segunda

azul, verde,

azul y asi hasta que termina la tabla. Pues bien, ahora

he hecho un

boton que me inserta dos filas en una determinada

posicion, y aqui es

donde me vienen los lios.

Si lo hago con insert, me copia los colores de la fila

donde estoy y

me la inserta abajo, pero como meto dos filas a la vez,

me pone 2

azules y me fastidia la tabla y si lo hago con el

comando copy paste,

dicertamente no me funciona el PASTE.

Os pongo el codigo que estoy empleando:

1º caso:

Hoja02.Activate
Cells(Fila, 2).Select
Selection.EntireRow.Insert
Selection.EntireRow.Insert

Pero me las pone azul, y al final tengo 3 azules seguida.

2º Caso:

Hoja00.Activate
Cells(Fila, 2).Select
Selection.EntireRow.Copy
Selection.EntireRow.Paste

Este metodo ni funciona, jajaja

Me podeis ayudar ???

Gracias por todo.
.