Excel VBA - - Msg Box når celle opfylder kriterier

Problem
Opløsning
Bemærk

Problem

Hej dette vil nok være meget simpelt for nogen, men jeg har en mareridtdag, alt jeg vil have er en VBA-formel, der vil medbringe en beskedboks, når en celle viser bestemte kriterier.

Kan nogen hjælpe?

Opløsning

Denne kode forudsætter, at hvad du leder efter, er i kolonne A.

 Private Sub Find_Criteria () Dim i Dim rr = Range ("A65536"). Slut (xlUp) .Row i = 1 For i = I Til r Hvis rækkevidde ("A" & i) = "kriterier" Så MsgBox "Found" & "" & Range ("A" & i) .Address slut Hvis næste jeg slutter sub Hvis du leder efter bestemte kriterier i en række celler, så prøv noget som dette. Private Sub Find_Criteria () Dim I Som Variant Dim FindRange Som Range Set FindRange = Range ("A1: K50") For hver I I FindRange Hvis jeg = "kriterier" Så MsgBox "Found" & "" & I.Address End hvis næste jeg slutter sub