Veja se atende:
utizei: SEERRO(CORRESP(A1;T2:T16;0);"")

Que bruxaria é essa?

Genial o que você fez, não tinha pensado nisso.

O estranho é que eu fiz isso que tava tentando em um calendário e dava certo, e dessa vez só deu certo com sua fórmula. haha

Muito obrigado mesmo, Reinaldo.

Valeu.

Reinado, tem como fazer igual ao do CORRESP pelo VBA? Porque eu preciso pintar a célula quando tiver selecionada, e com a formatação condicional eu não consigo.

Não entendi, fazer o que? Aformula !!

Que pinte os valores das células igual a antes, só que sem ser por formatação condicional. Porque com formatação condicional não posso "pintá-la" por cima.

Não sei se e a melhor opção mas experimente:

Sub xCol()
Dim Rng As Range, Y As Long, X As Long
Y = Cells(Cells.Rows.Count, "Q").End(xlUp).Row

Set Rng = Plan1.Range("A1:O15")
For X = 2 To Y
    For Each cel In Rng
        If cel.Value = Cells(X, "T") Then
        cel.Interior.Color = 65535
        cel.Font.Color = Black
        Else
        'cel.Interior.Color = 65535
        cel.Font.Color = 49407
    With cel.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .ThemeColor = xlThemeColorLight2
        .TintAndShade = -0.499984740745262
        .PatternTintAndShade = 0
    End With
    
    End If
    Next
Next
End Sub

Obrigado, Reinaldo.

O código fica verificando em várias células, demora muito pra verificar todas e no final só pinta a última verificada. Eu testei nessa planilha que postei, porém a minha nova plan tem muito mais dados, deve travar. :/

Entãoexperimenta assim:

Sub procurando()
Dim nLin As Long, Dl As Range, myRng As Range
Dim nMat As String, i As Long

Set myRng = Plan1.Range("A1:O15")
nLin = Cells(Cells.Rows.Count, "Q").End(xlUp).Row

        For i = 2 To nLin
            nMat = Sheets("Plan1").Range("T" & i).Value
            With myRng
                Set Dl = .Find(nMat, LookIn:=xlValues)
                If Not Dl Is Nothing Then
                    Range(Dl.Address).Select
                        With Selection
                            .Interior.Color = 65535
                            .Font.Color = Black
                        End With
                End If
            End With
        Next
    

 End Sub

Agora funcionou! Muitooo obrigado!

Bom dia!!

Olá Sparcools, para manter o fórum organizado, lembre se de marcar o tópico como resolvido quando for o caso !!

Att

Pensei que já estava como resolvido. o.o hehe