Comparar colores de hojas diferentes en Microsoft Excel

Hola,
Necesito comparar los colores de la hoja2 con los colores de la hoja1 y los que no coincidan me los copie en la hoja3.
He probado con buscarV, macros en VBA pero no lo consigo.
¿Podrías decirme algún código VBA o fórmula que me resuelva esto?
Ejemplo:
hoja1 tengo celda A1=blanco,celda A2=verde,celda A3=negro,celda A4=rojo
hoja2 tengo celda a1=blanco,celda A2=verde, celda A3=rosa,celda A4=amarillo
Entonces en la hoja3 debería copiarme:
Rosa y amarillo
¿Me he explicado bien?
1

1 respuesta

Respuesta
1
Según lo que entendí.
Ejemplo:
Sub Color()
Sheets("Hoja2").Select
A = Range("A1").Interior.ColorIndex
B = Range("A2").Interior.ColorIndex
C = Range("A3").Interior.ColorIndex
D = Range("A4").Interior.ColorIndex
Sheets("Hoja1").Select
E = Range("A1").Interior.ColorIndex
F = Range("A2").Interior.ColorIndex
G = Range("A3").Interior.ColorIndex
H = Range("A4").Interior.ColorIndex
Sheets("Hoja3").Select
If A <> E Then
Range("A1").Interior.ColorIndex = A
End If
If B <> F Then
Range("A2").Interior.ColorIndex = B
End If
If C <> G Then
Range("A3").Interior.ColorIndex = C
End If
If D <> H Then
Range("A4").Interior.ColorIndex = D
End If
End Sub
Valoriza la respuesta para poder ayudarte con otra pregunta más adelante.
Chau.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas