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?

 

[Michael M]

You may need to use VBA for this, but have a look at Data Validation first. It may be a simpler way to do it !!

 

[dpaton05]

How would you write this as I can't code?

 

[Michael M]

Did you check out Data Validation ?
Data vailidation will allow you to create Input AND Error messages for incorrect data inputs !!....no coding required

https://www.contextures.com/xlDataVal01.html

 

[LFKim2018]

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

like what they are recommending:
see attached images -
hope this helps
thanks

https://www.dropbox.com/s/no5564zipxaqtz9/datavalid-date.PNG?dl=0
https://www.dropbox.com/s/6zrms5x4xffmv9h/datavalid-date1.PNG?dl=0

 

[dpaton05]

The data validation works but I need a message to be displayed if the date is before the current date, asking if you really want to post a date in the past and asking for confirmation.

 

[LFKim2018]

The data validation works but I need a message to be displayed if the date is before the current date, asking if you really want to post a date in the past and asking for confirmation.

pls see image - isn't that what you want?
you may change the wordings (say, You posted a late date....) at the Data validation...


https://www.dropbox.com/s/zqnze9oz4w5dmbo/datavalid-date2.PNG?dl=0

 

[Michael M]

Maybe this in the sheet module....modify range to suit

Sub worksheet_change(ByVal target As Range)
Dim cell As Range
Application.EnableEvents = False
        If Range("A1").Value < Date Then
            MsgBox "This input is older than today !....Are you sure that is what you want ???"
        End If
Application.EnableEvents = True
End Sub

 

[dpaton05]

The date is in the first column of a table called npss_quote. How would I reference that in the above code? The column is called date.

 

[dpaton05]

Maybe I should explain this a little better. This is for an invoice sheet with multiple lines on it so there are multiple dates. I thought I would need to know how to reference the date column using vba so I could reference the current cell that has the date entered. How would I do this?

Here is the code:
Sub worksheet_change(ByVal target As Range)
Dim cell As Range
Application.EnableEvents = False
If Range("A1").Value < Date Then
MsgBox "This input is older than today !....Are you sure that is what you want ???"
End If
Application.EnableEvents = True
End Sub