Macro para copiar color de fondo de celdas.

[gm743]

Buenos dias.

Les cuento. Estoy intentando desarrollar un macro, soy nuevo en esto, y es para mi trabajo.

Lo que necesito hacer es lo siguiente:

.Copiar el sombreado de todas las celdas Doc A desde J2 hasta J850 al Doc B desde la J2 a la J850, mediante un buscarv donde los codigos unicos del Doc A y Doc B se encuentran desde A2 a A850 de ambos documentos.

.Esto necesito aplicarlo solo a aquellas celdas que tengan color distinto al Gris.

Se me ocurre un For, con un If adentro, y luego algo asi pero nose como hacer que varie.

Dim micolor

micolor = Range("'[Pendientes de ingreso.xls]Sheet1'!J2").Interior.color

Range("J2").Interior.color = micolor

Range("K2").Interior.color = micolor

Por favor, agradesco su ayuda.

Saludos.:very_drunk: