Excel VBA - - Msg Box, když buňka splňuje kritéria

Problém
Řešení
Poznámka

Problém

Ahoj to bude pravděpodobně velmi jednoduché pro někoho, ale já jsem s noční můrou den, vše, co chci, je VBA vzorec, který bude vychovávat zprávu, když buňka ukazuje konkrétní kritéria.

Může někdo pomoci?

Řešení

Tento kód předpokládá, že to, co hledáte, je ve sloupci A.

 Private Sub Find_Criteria () Dim i Dim rr = Range ("A65536") Konec (xlUp) .Row i = 1 Pro i = i To r Pokud Rozsah ("A" & i) = "kritéria" Pak MsgBox "Nalezeno" & "" & Rozsah ("A" a i). Adresa Konec Pokud Další i Konec Sub Pokud hledáte určitá kritéria v rozsahu buněk, zkuste něco takového. Private Sub Find_Criteria () Dim i jako varianta Dim FindRange Jako rozsah Set FindRange = Range ("A1: K50") Pro každý i In FindRange Pokud i = "criteria" Pak MsgBox "Found" & "" & i.Address End If Next Next i End Sub