Melding verval datum

[ameulenkamp]

Ik heb een Exelbestand met hierin o.a. een begin datum en een einddatum.

Nu zou ik graag een melding krijgen, een aantal maanden voor de einddatum.

Hoe moet dit?

 

('Hierin o.a.' toegevoegd want van een einddatum van een bestand had ik nog nooit gehoord )

15 maart 2018 aangepast door Passer

[Haije]

kun je (een voorbeeld van) je bestand posten als bijlage?

[ameulenkamp]

5 minuten geleden, Haije zei:

kun je (een voorbeeld van) je bestand posten als bijlage?

 

Voorbeeld exelbestand.xlsx

[alpha]

Ik zou het met voorw. opmaak doen, want als je met meldingen zou werken, dan vliegen de messageboxes je bij een groot bestand voortdurend om de oren. In de bijlage een voorbeeld waarbij een rij wordt rood gekleurd als het verschil tussen begin- en einddatum 365 dagen of minder bedraagt.

 

 

Vb exelbestand.xlsx

[ameulenkamp]

Bedankt voor je hulp, maar hoe moet ik dat dan aanpassen in exel?

[alpha]

In het menu bij de voorwaardelijke opmaak,

dat is in mijn voorbeeld toch duidelijk aangegeven?

16 maart 2018 aangepast door alpha

[bakerman]

Of dit in Thisworkbook module zodat je enkel een melding krijgt van alle data bij het openen v/h bestand.

Private Sub Workbook_Open()
    With Blad1
        sn = .Range("C2", .Range("C" & .Rows.Count).End(xlUp))
    End With
    
    For i = 1 To UBound(sn)
        If sn(i, 1) <> vbNullString And sn(i, 1) < Date Then msg = msg & "Cel $C$" & i & vbLf
    Next
    
    If msg <> vbNullString Then MsgBox "Volgende data vervallen binnen het jaar." & vbLf & vbLf & msg
End Sub

 

[bakerman]

If sn(i, 1) <> vbNullString And sn(i, 1) < Date Then msg = msg & "Cel $C$" & i & vbLf

moet zijn

If sn(i, 1) <> vbNullString And sn(i, 1) < Date Then msg = msg & "Cel $C$" & i + 1 & vbLf