Colorir Valor Duplicado Comparando outra Coluna
Página 1 de 1
Colorir Valor Duplicado Comparando outra Coluna
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
alexandrevba- Intermediário
- Mensagens : 222
Data de inscrição : 26/06/2012
Localização : Serra-ES
Tópicos semelhantes
» Procurar valor em coluna baseado em célula
» alterar o valor da célula ao ser digitado um valor numérico no excel
» Como colorir a guia baseada na cor da célula
» Devarias Colunas Para Uma Coluna
» Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro
» alterar o valor da célula ao ser digitado um valor numérico no excel
» Como colorir a guia baseada na cor da célula
» Devarias Colunas Para Uma Coluna
» Classifica baseado na coluna A de todas as guias usando um loop com AutoFiltro
Página 1 de 1
Permissões neste sub-fórum
Não podes responder a tópicos
|
|