Colorir Valor Duplicado Comparando outra Coluna

por alexandrevba 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