Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Colorir Valor Duplicado Comparando com outra Coluna

Fórum para dúvidas sobre os fundamentos da linguagem de programação Visual Basic no contexto do VBA
Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

Colorir Valor Duplicado Comparando com outra Coluna

Mensagem por Mathmatic »

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.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Basole
Colaborador
Colaborador
Mensagens: 67
Registrado em: Qua Mar 20, 2013 6:31 pm

Re: Colorir Valor Duplicado Comparando com outra Coluna

Mensagem por Basole »

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


Mathmatic
Manda bem
Manda bem
Mensagens: 184
Registrado em: Seg Out 24, 2011 1:50 pm

CONCLUÍDO.. Colorir Valor Duplicado Comparando com outra Coluna

Mensagem por Mathmatic »

Tópico CONCLUÍDO ...

sr. Basole,

muito obrigado por sua contribuição.

seu código Funcionou perfeitamente !


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder