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.

Tidigare Artikel Nästa Artikel

Bästa Tipsen