Excel VBA - - Msg Box när cellen uppfyller kriterierna
- Problem
- Lösning
- Notera
Problem
Hej det här kommer förmodligen vara väldigt enkelt för någon men jag har en mardrömdag, allt jag vill ha är en VBA-formel som kommer att ta upp en meddelandebox när en cell visar ett specifikt kriterium.
Kan någon hjälpa till?
Lösning
Denna kod förutsätter att det du söker är i kolumn A.
Private Sub Find_Criteria () Dim i Dim rr = Område ("A65536"). Slut (xlUp) .Row i = 1 För i = I Till I Om räckvidd ("A" & I) = "kriterier" Då MsgBox "Found" & "" & Räckvidd ("A" & i) .Adressera om nästa avslutar del Om du letar efter vissa kriterier i ett antal celler, försök så något som detta. Private Sub Find_Criteria () Dim I Som Variant Dim FindRange Som Range Set FindRange = Räckvidd ("A1: K50") För varje I I FindRange Om jag = "kriterier" Då MsgBox "Found" & "" & I.Address sluta om nästa jag avslutar sub
Notera
Tack till hjälpen för detta tips på forumet.