Msg box na overschrijding datum

[Egon]

Goedemiddag helpmij'ers.,

ik zit met een probleempje,, ik wil graag een pop-up / msg box te voorschijn laten komen als een bepaalde cell (zie hieronder voorbeeld) verstreken is na een jaar

Cell C6 01-01-2006

nu zou er op 01-01-2007 een popup moeten verschijnen met klant moet gebeld worden,

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
If Target.Address = "$C$6" Then
If Target.Value > 01-01-2007 Then
MsgBox ("klant moet gebeld worden")
End If
End If
End Sub

alleen dit gaat uiteraard niet automatisch want het ingevoerde in cell 6 blijft op 2006 staan,
nu heb ik al wel in cell E29 op blad 2 de waarde =nu() staan, misschien dat het daar aan gekoppeld kan worden?

Wie kan mij daar mee helpen?

 

[koosl]

Egon,

Als je het Workbook_Open() event gebruikt kun je iedere dag, bij het openen van het werkboek, cel C6 op blad1 en cel E29 op blad 2 met elkaar laten vergelijken.

Private Sub Workbook_Open()
    Worksheets("blad1").Activate
    If Worksheets("blad2").Range("E29").Value - 365 >= Range("C6").Value Then
        MsgBox [B6] & " moet gebeld worden", vbExclamation
End If
End Sub

Koosl

 

[Wigi]

Het Workbook_Open event is een goed idee, qua code zou ik dit gebruiken:

Private Sub Workbook_Open()
If DateDiff("yyyy", Sheets("Blad1").Range("C6"), Date) Then MsgBox Sheets("Blad1").Range("B6") & " moet gebeld worden", vbExclamation
End Sub

Wigi

 

[Egon]

Koosl,

Je test bestand werkt perfect, alleen ik krijg het niet voor elkaar in mijn excel bestand,
ik heb een bestand toegevoegd waar het in zou moeten komen,,

zie tabblad herinnering, daar zou een msg box moeten komen, van tabblad klasse 3 wanneer cell c6 na datum verstrijkt,

(zou je ook in dezelfde script alle datums kunnen vastleggen? want na c6 komt c12 en dan c18) in tabblad klasse 3,

Alvast mijn dank,


Egon

 

[Wigi]

ik heb een bestand toegevoegd waar het in zou moeten komen,,

niet doorgekomen Egon.

 

[Egon]

niet doorgekomen Egon.

bestand staat in men eerste post ,

met vriendelijke groet

Egon

 

[Wigi]

zie bijlage Egon

Wigi