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:
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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: