Ga naar inhoud

Melding verval datum


ameulenkamp
 Delen

Aanbevolen berichten

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 :) )

aangepast door Passer
Link naar reactie
Delen op andere sites




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

 

Link naar reactie
Delen op andere sites

 Delen

×
×
  • Nieuwe aanmaken...