Excel VBA - - Caixa Msg quando a célula atende aos critérios

Questão
Solução
Nota

Questão

Oi isso provavelmente será muito simples para alguém no entanto eu estou tendo um dia de pesadelo, tudo que eu quero é uma fórmula de VBA que trará uma caixa de mensagem quando uma célula está mostrando um critério específico.

Alguém pode ajudar?

Solução

Este código pressupõe que o que você está procurando está na coluna a.

 Private Sub Find_Criteria () Dim Dim Dim rr = Range ("A65536"). End (xlUp) .Row i = 1 Para i = i Para r Se Range ("A" & i) = "critérios" Então MsgBox "Encontrado" & "" & Range ("A" & i). End End End If Next i End Sub Se você estiver procurando por determinados critérios em um intervalo de células, tente algo como isto. Private Sub Find_Criteria () Dim i Como Variante Dim FindRange Como Range Set FindRange = Range ("A1: K50") Para Cada i Em FindRange Se i = "criteria" Então MsgBox "Found" & "" & i.Address End If Next i End Sub