Pessoal,
Encontrei no seguinte Link abaixo um código VBA que será muito útil pra mim :
http://usuariosdoexcel.forumeiros.com/t ... tra-coluna
Este código do Link citado é "quase" perfeito pra minha necessidade, Mas o problema é que este código descrito no Link "Compara" a Coluna A com a Coluna B da "mesma" planilha e então "Pinta" os repetidos na Coluna A .
O que eu preciso realmente no código é que ele "Compare" a Coluna A da Plan1 com a Coluna A da Plan2, e então "Pinte" os Repetidos na Coluna A da Plan1 (como já o faz comparando as colunas na mesma planilha).
Poderiam me ajudar nesta alteração do código do Link por favor .
desde já agradeço.
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Colorir Valor Duplicado Comparando com outra Coluna
Re: Colorir Valor Duplicado Comparando com outra Coluna
Amigo, veja se é isso que precisa.
Código: Selecionar todos
Sub ColorirValorEncontradoOutraColunaOutraAba()
'Como comparar a Coluna A, com a Coluna A de outra aba, colorir as células da coluna A
'Caso encontre o mesmo na coluna A de outra Aba.
Dim rFind As Range, Cel, sAddr As String, ws1 As Worksheet, ws2 As Worksheet, i&
Application.ScreenUpdating = 0
Set ws1 = Sheets("Plan1") '* ALTERE SE NECESS.
Set ws2 = Sheets("Plan2") '* ALTERE SE NECESS.
Set rFind = ws1.Range("A1:A" & ws1.Range("A" & Rows.Count).End(xlUp).Row)
rFind.Interior.Color = xlNone
Set rFind = Nothing
For Each Cel In ws1.Range("A1:A" & ws2.Range("A" & Rows.Count).End(xlUp).Row)
If Len(Cel) Then
With ws2.Columns(1)
Set rFind = .Find(Cel, .Cells(.Cells.Count), xlValues, xlPart)
If Not rFind Is Nothing Then
sAddr = rFind.Address
Do
Cel.Interior.Color = rgbYellow '633
Set rFind = .FindNext(rFind)
Loop While Not rFind Is Nothing And rFind.Address <> sAddr
sAddr = ""
End If
End With
End If
Next
Application.CutCopyMode = 0
Set ws1 = Nothing
Set ws2 = Nothing
Set rFind = Nothing
Application.ScreenUpdating = True
End Sub
CONCLUÍDO.. Colorir Valor Duplicado Comparando com outra Coluna
Tópico CONCLUÍDO ...
sr. Basole,
muito obrigado por sua contribuição.
seu código Funcionou perfeitamente !
sr. Basole,
muito obrigado por sua contribuição.
seu código Funcionou perfeitamente !