Excel VBA - - Msg Box cuando la celda cumple con los criterios

Problema
Solución
Nota

Problema

Hola, esto probablemente será muy simple para alguien; sin embargo, estoy teniendo un día de pesadilla, todo lo que quiero es una fórmula VBA que muestre un cuadro de mensaje cuando una celda muestre un criterio específico.

¿Alguien puede ayudar?

Solución

Este código asume que lo que está buscando está en la columna A.

 Private Sub Find_Criteria () Dim i Dim rr = Range ("A65536"). End (xlUp) .Row i = 1 For i = i To r If Range ("A" & i) = "criteria" Then MsgBox "Found" & "" & Range ("A" & i) .Address End If Next i End Sub Si está buscando ciertos criterios en un rango de celdas, intente algo como esto. Private Sub Find_Criteria () Dim i As Variant Dim FindRange As Range Set FindRange = Range ("A1: K50") Para cada i In FindRange If i = "criteria" Then MsgBox "Found" & "" & i.Address End If Next i End Sub