Eu tenho esta macro para comparar duas colunas e me dizer quais são as duplicatas.
Este é o código:
Sub Compare_Designator()
Dim CompareRange As Variant, x As Variant, y As Variant
Para cada x em seleção
Para cada y em CompareRange
Se x = y então x.Offset (0, 1) = x
Próximo y
Próximo x
End Sub
Isso funciona muito bem, mas agora eu quero que as células resultantes tenham cor... se a célula tiver um valor, deve ter uma cor, se não, não deve ter cor...
Alguém pode me ajudar??
Obrigado.