Boa noite!!

Seria interessante postar seu arquivo modelo COMPACTADO!!

Att

Veja tb no seguinte tópico http://www.planilhando.com.br/forum/viewtopic.php?f=20&t=5388

Não. Este tutorial eu já havia visto. Ele compara 1 item com outra coluna, tabela inteira. No meu caso, eu gostaria que comparasse vários itens de uma tabela com outros de outra tabela.

Por exemplo, de A1:F25 com A28:F52. Se neste período houver repetição que frizasse, ficasse de outra cor, qualquer coisa para sinalizar dados coincidentes.
De preferência que não tivesse que criar outra tabela para itens coincidentes. Porque neste caso, eu teria que formatar tudo.

Não me deixa editar a mensagem postada...

Desculpe minha ignorância, vou tentar editar o macro que você indicou e ver se tem como adaptar aqui depois volto com um parecer hehe

Olhei melhor lá e acho que talvez dê para adaptar para o que quero fazer.

Obrigada.

Aonde no script está especificando aonde colocar os resultados repetidos (coincidentes), por favor?

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("C1:C5")
    ' NOTE: If the compare range is located on another workbook
    ' or worksheet, use the following syntax.
    ' Set CompareRange = Workbooks("Book2"). _
    '   Worksheets("Sheet2").Range("C1:C5")
    '
    ' Loop through each cell in the selection and compare it to
    ' each cell in CompareRange.
    For Each x In Selection
        For Each y In CompareRange
            If x = y Then x.Offset(0, 1) = x
        Next y
    Next x
End Sub

A rotina faz =/- o seguinte:
em Set CompareRange (Set CompareRange = Range("C1:C5")
, vc determina qual o local em que os dados a serem comparado estão.
Depois vc seleciona todos os dados que servirão de base para comparação, para cd vlr repetido
e "gravado" na celula correspondente mas na coluna ao lado (por isso não deve ter dados na coluna ao lado) o vlr em duplicata (If x = y Then x.Offset(0, 1) = x)
Se puder disponha um exemplo de sua(s) planilha(s) indicando manualmente como está e o que espera de resposta, ficará mais simples obter uma resposta

Boa tarde, obrigada pela resposta e atenção.

Veja, minha macro está assim agora:

Sub Find_Matches()

    Dim CompareRange As Variant, x As Variant, y As Variant

    Dim k, j As Integer

    k = 3

    j = 4

    'j = row number

    'k = column number

    Range("N9:R13").ClearContents

    ' Set CompareRange equal to the range to which you will

    ' compare the selection.

    Set CompareRange = Range("J6:X7")

    For Each x In Range("J24:S28")

    For Each y In CompareRange

            If x = y Then y.Offset(k, j) = x

        Next y

        j = j + 1

        If j = 8 Then

        j = 4

        k = k + 1

        End If

    Next x

MsgBox "Tudo Verificado!"

End Sub

Ele está checando tudo certo nos ranges que especifiquei, porém está colocando o resultado da verificação no range errado. (coloca em qualquer canto da planilha)

Gostaria que ela colocasse o resultado no range do intervalo de N9:R13.

Alguma sugestão?

Muchas gracias!

Não sei se entendi direito, mas experimente:

Sub Find_Matches()
Dim CompareRange As Variant, x As Variant, y As Variant
Dim k As Integer, j As Integer

k = 9 'Linha Inicial
j = 14 'coluna inicial

Range("N9:R13").ClearContents
Set CompareRange = Range("J6:X7")
    For Each x In Range("J24:S28")
        For Each y In CompareRange
            If x = y Then Cells(k, j) = x
        Next y
    j = j + 1
        If j = 19 Then
            j = 14
            k = k + 1
        End If
    Next x
MsgBox "Tudo Verificado!"
End Sub

Oi Reinaldo, mais uma vez obrigada pela atenção.

Então, com esse que você postou ele estava colocando os resultados no range de N9 até R18...

Aqui deu certo assim:

Sub Find_Matches()
    Dim CompareRange As Variant, x As Variant, y As Variant
    Dim k, j As Integer
    c = 4
    r = 3
    'c = row number
    'r = column number
    Range("N9:R13").ClearContents
    ' Set CompareRange equal to the range to which you will
    ' compare the selection.
    Set CompareRange = Range("J6:X7")
    For Each x In Range("J24:S28")
    For Each y In CompareRange
    
     
            If y = x Then Range("J6").Offset(r, c) = y
        Next y
        If ActiveSheet.Range("J6").Offset(r, c).Value = "" Then c = c Else: c = c + 1
        If c = 9 Then
        c = 4
        r = r + 1
        End If
    Next x

MsgBox "Resultados checados!"

End Sub

Grata!