How do I display an message box if the date is in the past?

[dpaton05]

When entering a date, how do I display a message box that asks for confirmation to continue if the date is in the past?

 

[dpaton05]

Run this script to fix the problem:
[/CODE]

How do you run this script. I added the script to the on change event of the worksheet and that did nothing.

 

[My Aswer Is This]

So your saying you do not know how to install this script into a button and then click the button?
This is not a sheet activate script.
You put this type script in a button

 

[My Aswer Is This]

You said the script worked then you said it did not work.
So I suggest this:
Close the workbook do not save changes.
Open new workbook.
Put script in new workbook and try again.

If you want to use sheet change event scripts and you have other scripts in you sheet you may have errors.

We would need to see all the scripts you have in this sheet.

 

[Michael M]

When you open the Visual basic window(usually ALT + F11)...
Press CTRL + G to open the immediates window.
copy this

Application.EnableEvents = True

into that window and press Enter.
Save and Close.....now see if the worksheet code runs !

 

[dpaton05]

I originally put the code into some event on the spreadsheet, thinking it will always be resetting and that didn't seem to work but I just put it into a button and tried it and it worked!! Yay!! Thanks!!

 

[dpaton05]

When I put a date in that is before the current date, and say i want to keep it, it formats the date as 1-01-2018 but I have my other date cells formatted as 01-01-18. How do I make them look the same?

This is the code I have:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A:A")) Is Nothing Then
Application.EnableEvents = False
If Target.Cells.CountLarge > 1 Or IsEmpty(Target) Then Exit Sub
If Target.Value < Date Then
ans = MsgBox("This input is older than today !....Are you sure that is what you want ???", vbYesNo)
If ans = vbNo Then Target.Value = ""
End If
End If
Application.EnableEvents = True
End Sub

Thanks.

 

[dpaton05]

What is stopping me adding the code to the add line button, so it is reset with every line that is added? Does that sound like a good idea?