VBA: Hvis bestemt ord skrives i sidste række, så pop-up boks
Hej,Jeg er stødt ind i et problem med VBA i excel.
Jeg har et ark med en tabel bestående af 1900 rækker og 11 kolonner. I kolonne D har jeg forskellige emner stående. Jeg har brug for, at der, HVER gang der bliver skrevet "referencer" i kolonne D, kommer en tekstboks frem med en reminder, hvori der står noget ala "Husk at tjekke referenceark".
Brugerne af arket må altså GERNE skrive "referencer", men de skal bare mindes om, at hvis de skriver "referencer", skal de ind i et referenceark også.
Pt. har jeg programkoden:
_______
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Range("D4:D8000").Find(what:="Referencer", LookIn:=xlValues, Lookat:=xlWhole, MatchCase:=True) Is Nothing Then
MsgBox "Tjek referenceark"
End If
End Sub
______
MEN! Problemet er, at hver gang man skriver noget i kolonne D, vil pop-up boksen komme frem idet der i tidligere rækker er skrevet "referencer". Jeg har brug for, at det kun er den sidste række, som trigger denne pop-up boks.
Er der mon et klogt hoved, som kan hjælpe mig?
Håber ovenstående giver mening.
Mvh
Malene