vitorhsh,

Vamos lá...
1 - Você quer comparar quem com que?
2 - Que colunas, que abas e de qual arquivo deve-se pesquisar para comparar com que colunas, que abas e de qual arquivo?
3 -

a planilha traca de solicitações

Não entendi isso...
4 - O que deve ser marcado de vermelho? Que colunas, em qual aba, em qual arquivo?
5 - Deve-se destacar de vermelho a linha inteira ou somente as colunas?

cada linha e um pedido
Cada pedido e referente a um mês
Um CPF pode fazer vários pedido com valor iguais em meses diferente mas não pode te um valor igual no msm mês
Consolidade Sheet 309
passivos sheet passivos

quero sabe se um cpf fez duas vezes o mesmo pedido
e se a data do pedido e igual
Exp o CPF 177.744.745-38 fez um pedido Agosto/2017
quero sabe se ele fez o mesmo pedido no mesmo mes coluna B valor coluna K na plan passivos

Exp
Consilidada
B , F, K
data CPF RESSARCIMENTO (sem custeio)
Exp 07/2016 177.744.745-38 R$ 17.916,55

passaivas
B , F , K
data CPF RESSARCIMENTO (sem custeio)
Exp 07/2016 177.744.745-38 R$ 17.916,55

quero sabe se essas 3 colunas se repetem são iguais data igual cpf igual e valor igual se tive marca a linha de vermelho

https://www.youtube.com/results?search_query=vba+repetidos

Bom dia klarc
Obrigado pela ajuda dei uma olhada no link
Vi alguns vídeos eles procurá apenas um valor ou usa o próprio recurso do Excel pra Marca as duplicadas mas não resolve meu problema, porq um cpf pode fazer um pedido do msm valor so não pode pedi o valor duas vezes em um mês
Exp pelo CPF pediu 16 mil no mês 1 ele pode pedi novamente no mês 2 mas não pode pedir duas vezes em um mês

Bom Dia Familia,

To trabalhando em cima desse cod,
mas não ta funcionado perfeitamente alguém poderia da um help

Sub Comparacao()
  Dim Coluna As Long
  Dim Linha As Long
  Dim Celula As String
  Dim Nomes(260) As String
  Dim UltimaColuna As String
  Dim Ultima_Coluna As Long
  Dim UltimaLinha As Long
  Dim NomeArquivo As String
  Dim NomePlanilha As String
  Dim Pasta1 As Worksheet
  Dim Pasta2 As Worksheet
  Dim Celula1 As Variant
  Dim Celula2 As Variant
  Dim Compara(1 To 3090, 1 To 3090)


  Set Pasta2 = Workbooks("DPF Planilha Consolidada - Vinculação 309.xlsx").Sheets("309")
  Set Pasta1 = Workbooks("DPF Planilha Passivos- Vinculação 309.xlsx").Sheets("Passivos")
  
  UltimaColuna = "l"
  UltimaLinha = 3090
  
  'Interromper a exibição de mudanças de tela
  Application.ScreenUpdating = False
    
    'Transformação da última coluna de letra em número
    UltimaColuna = Format(UltimaColuna, ">")
    If Len(UltimaColuna) = 11 Then
    Ultima_Coluna = (Asc(Left(UltimaColuna, 1)) - 3000) * 26 + (Asc(Right(UltimaColuna, 1)) - 3000)
    Else
    Ultima_Coluna = Asc(Right(UltimaColuna, 1)) - 3000
    End If
  
  'Loop através das células do intervalo de comparação
        For Linha = 1 To UltimaLinha
            For Coluna = 1 To Ultima_Coluna
            
            Celula1 = Pasta1.Cells(Linha, Coluna)
            Celula2 = Pasta2.Cells(Linha, Coluna)
                
                'Comparação das células das duas pastas
                If Celula1 <> Celula2 Then
                Compara(Linha, Coluna) = "Diferente"
                Else
                Compara(Linha, Coluna) = "Igual"
                End If
            
            Next Coluna
        Next Linha
  
  Workbooks.Add
  
        For Linha = 1 To UltimaLinha
            For Coluna = 1 To Ultima_Coluna
            Cells(Linha, Coluna) = Compara(Linha, Coluna)
            Next Coluna
        Next Linha
  
  'Restaurar a exibição de mudanças de tela
  Application.ScreenUpdating = True
  
End Sub