Excel VBA - - Msg Box quando la cella soddisfa i criteri

Problema
Soluzione
Nota

Problema

Ciao questo sarà probabilmente molto semplice per qualcuno però sto avendo un giorno da incubo, tutto quello che voglio è una formula VBA che farà apparire una finestra di messaggio quando una cella sta mostrando un criterio specifico.

Qualcuno può aiutare?

Soluzione

Questo codice presuppone che quello che stai cercando sia nella colonna 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 Se stai cercando determinati criteri in un intervallo di celle, prova qualcosa del genere. Sottotitoli privati Find_Criteria () Dim i As Variant Dim FindRange As Range Set FindRange = Intervallo ("A1: K50") Per ogni i In FindRange If i = "criteri" Then MsgBox "Found" & "" & i.Address End If Next i End Sub