Excel VBA - - Skrzynka pocztowa, gdy komórka spełnia kryteria

Kwestia
Rozwiązanie
Uwaga

Kwestia

Cześć, to będzie prawdopodobnie bardzo proste dla kogoś, ale mam koszmarny dzień, wszystko czego chcę to formuła VBA, która wywoła okno komunikatu, gdy komórka pokazuje określone kryteria.

Czy ktoś może pomóc?

Rozwiązanie

Ten kod zakłada, że to, czego szukasz, znajduje się w kolumnie A.

 Private Sub Find_Criteria () Dim i Dim rr = Range („A65536”). End (xlUp) .Row i = 1 For i = i To r Jeśli Range („A” i i) = „kryteria” Następnie MsgBox „Znaleziono” & „” & Zakres („A” i i). Koniec adresu, jeśli następny Koniec pod Jeśli szukasz pewnych kryteriów w zakresie komórek, spróbuj czegoś takiego. Private Sub Find_Criteria () Dim i As Variant Dim FindRange As Range Set FindRange = Range („A1: K50”) Dla każdego i W FindRange Jeśli i = „kryteria” Następnie MsgBox „Znaleziono” & „” & i.Address End If Next i End Sub