Na bepaalde datum melding in excel userform en dan afsluiten

[Schipperjte]

Hoi,

Ben bezig met een excel sheet met userform

zou graag willen dat je een datum kan aangeven en na die datum een waarschuwing en dan afsluiten

had dit gevonden en in thisworkbook gezet ,maar hij doet het niet ?

Private Sub Workbook_Open()
VT.Show
End Sub

Sub Auto_Open()


  Dim exdate As Date
exdate = "11/09/10"
If Date > exdate Then
 MsgBox ("Programma is verlopen ")
 ActiveWorkbook.Close
 End If
 MsgBox ("Workbook Valid Until" & exdate - Date & "Days left")
 End Sub

 

[Schipperjte]

Melding op userform

ben al wat verder ,had niet goed gekeken

Private Sub Workbook_Open()
VT.Show
 
  Dim exdate As Date
exdate = "19/09/10"
If Date > exdate Then
 MsgBox ("Programma is verlopen ")
 ActiveWorkbook.Close
 End If
 MsgBox ("Programma verloopt over" & exdate - Date & "dagen,neem contact op met ....")
 End Sub

deze melding komt na invullen van het userform,daarna ga ik excel om de gegevens uit te printen.

Het werkt wel ook afsluiten als datum is verlopen , maar kan ik deze melding ook krijgen op het userform
Dus gelijk als het userform geladen is

 

[HSV]

Bedoel je zoiets?

Private Sub Workbook_Open()
  VT.Show
End Sub

Met een label op de Userform.

Private Sub UserForm_Initialize()
 Dim exdate As Date
      exdate = "19/09/10"
        If Date > exdate Then
       Label1.Caption = "Programma is verlopen "
     ActiveWorkbook.Close
   End If
  Label1.Caption = "Programma verloopt over " & exdate - Date & " dagen, neem contact op met ...."
End Sub

 

[Schipperjte]

Het werkt ,

Bedankt

 

[Schipperjte]

Ja toch nog een vraagje over de code

Private Sub UserForm_Initialize()
With Me
.Height = Application.Height
.Width = Application.Width
.Left = Application.Left
.Top = Application.Top
End With
 Dim exdate As Date
exdate = "28/09/10"
If Date > exdate Then
 MsgBox ("Programma is verlopen. ")
 ActiveWorkbook.Close
 End If
 MsgBox ("Programma verloopt over " & exdate - Date & " dagen,neem contact op met .....")

Hij werkt goed maar als ik de datum over een maand in stel geeft hij elke dag een waarschuwing.

Kan ik dit aanpassen dat hij 1 week van te voren pas een waarschuwing

iets van exdate - 7 days maar dat werkt niet ?

 

[zapatr]

Kan ik dit aanpassen dat hij 1 week van te voren pas een waarschuwing geeft

Dat kan bv. op deze manier:

Private Sub UserForm_Initialize()
With Me
.Height = Application.Height
.Width = Application.Width
.Left = Application.Left
.Top = Application.Top
End With
Dim exdate As Date
exdate = "27/09/10"
If Date > exdate Then
MsgBox ("Programma is verlopen. ")
ActiveWorkbook.Close
Else
If Int(exdate) - Int(Date) < 8 Then
MsgBox ("Programma verloopt over " & exdate - Date & " dagen, neem contact op met .....")
End If
End If
End Sub

 

[Schipperjte]

Het werkt, :thumb:


ga deze ook weer bewaren .