Ga naar inhoud

Melding verval datum


ameulenkamp

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

×
×
  • Nieuwe aanmaken...

Belangrijke informatie

We hebben cookies geplaatst op je toestel om deze website voor jou beter te kunnen maken. Je kunt de cookie instellingen aanpassen, anders gaan we er van uit dat het goed is om verder te gaan.