Colorir Valor Duplicado Comparando outra Coluna

Ir em baixo

Colorir Valor Duplicado Comparando outra Coluna

Mensagem por alexandrevba em Qua Out 30, 2013 8:16 am

Bom dia!!

Código:
Option Explicit

Sub ColorirValorEncontradoOutraColuna()
'Como comparar a Coluna B, com a Coluna A, colorir as células da coluna A
'Caso encontre o mesmo na coluna B.
Dim rFind As Range, Cel, sAddr As String, ws As Worksheet, i&
Application.ScreenUpdating = 0
Set ws = Sheets("Sheet1")

For Each Cel In ws.Range("A1:A" & Range("B" & Rows.Count).End(xlUp).Row)
    If Len(Cel) Then
        With ws.Columns(2)
            Set rFind = .Find(Cel, .Cells(.Cells.Count), xlValues, xlPart)
            If Not rFind Is Nothing Then
                sAddr = rFind.Address
                Do
                  Cel.Interior.Color = 633
                Loop While rFind.Address <> sAddr
                sAddr = ""
            End If
        End With
  End If
Next

        Application.CutCopyMode = 0
Set ws = Nothing
Set rFind = Nothing
Application.ScreenUpdating = True
End Sub
avatar
alexandrevba
Intermediário
Intermediário

Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES

Ver perfil do usuário

Voltar ao Topo Ir em baixo

Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum