Josy, o que acontece referente a cor que uma celula está preenchida por Formatação Condicional, em uma explicação mais simples, é que ela é aplicada tipo em segundo plano, diferente de quando definimos o Interior.Color de uma celula, e na Formatação Condicional ainda podemos ter variações de cores e tambem imagens, nestes casos o que conseguimos atraves de rotina é identificar o estado da celula, se alteração foi por fomatação condicional ou não, de uma olhada no link abaixo, tem algumas Functions:
Conditional Formatting Colors - http://www.cpearson.com/excel/CFColors.htm
Eu não utilizaria este recurso se podemos fazer de forma simples, somente pelos valores repetidos, copie a rotina abaixo e coloque em seu exemplo e veja se é isto, é verificado na aba "Cadastro" coluna "B" os repetidos e copiados para a "Plan3", se alterar os nomes das abas está bem fácil ajustar na rotina.
Option Explicit
Sub CopiaDuplicados()
Dim wstSource As Worksheet, wstOutput As Worksheet
Dim rngCell As Range, rngMyData As Range
Dim lngMyRow As Long
Set wstSource = Worksheets("Cadastro")
Set wstOutput = Worksheets("Plan3")
Set rngMyData = wstSource.Range("B2:B" & Range("B" & Rows.Count).End(xlUp).Row)
Application.ScreenUpdating = False
For Each rngCell In rngMyData
If Evaluate("COUNTIF(" & rngMyData.Address & "," & rngCell.Address & ")") > 1 Then
lngMyRow = wstOutput.Cells(Rows.Count, "A").End(xlUp).Row + 1
wstSource.Range("A" & rngCell.Row & ":B" & rngCell.Row).Copy _
Destination:=wstOutput.Range("A" & lngMyRow & ":B" & lngMyRow)
End If
Next rngCell
Application.ScreenUpdating = True
End Sub
Qualquer duvida retorne.
[]s
Postado : 27/08/2015 10:55 am