VBA melding als een datum bereikt wordt

Stel hier je vraag over een Excel probleem
Plaats reactie
Nickk
Berichten: 6
Lid geworden op: 27 mei 2021 08:24

VBA melding als een datum bereikt wordt

Bericht door Nickk » 24 sep 2021 09:40

Goedemorgen,
Ik heb een lijst met datums met verschillende klant namen. Zodra de datum die er staat binnen 7 dagen is komt er in cel AJ10:Aj508 een melding te staan dat het tijd is.
Vervolgens wil ik met een VBA code het zo maken dat er een pop menu komt dat het voor de klant naam(cel A10:A508) tijd is. Zie(bijlage)

Maar hierbij heb ik twee problemen:
- De code werkt alleen als je de waarde handmatig invoerd, en niet als de waarde met een formule bepaald
- Deze code geeft de kolom waarin de waarde staat aan, maar ik zou graag dat de waarde van cel a10( en voor de volgende regel a11 etc) oftewel de klant naam weergegeven wordt.

Kan iemand mij hier bij helpen?

Code: Selecteer alles

Private Sub Worksheet_Change(ByVal Target As Range)
Set oRange = Range("Al10:Am508")
If Intersect(Target, oRange) Is Nothing Then Exit Sub
If Target.Value = "Aanbieding maken" Then
MsgBox "het is tijd voor de klant " & Target.Address & "", vb, "Let op! "
End If
End Sub
Bijlagen
Knipsel.JPG
Knipsel.JPG (11.76 KiB) 265 keer bekeken

Gebruikersavatar
haije
Berichten: 178
Lid geworden op: 29 okt 2019 09:45

Re: VBA melding als een datum bereikt wordt

Bericht door haije » 24 sep 2021 12:39

Al geprobeerd om Target.Address te vervangen door Target.Value?
|-|aije

jkpieterse
Site Admin
Berichten: 1172
Lid geworden op: 30 jan 2017 14:32

Re: VBA melding als een datum bereikt wordt

Bericht door jkpieterse » 24 sep 2021 13:43

Of als volgt:

Code: Selecteer alles

MsgBox "het is tijd voor de klant " & Intersect(Range("A:A"), Target.EntireRow).Value & "", vb, "Let op! "
Groetjes,
Jan Karel Pieterse
jkp-ads.com

Plaats reactie