Input Box Exit Sub If Not Date or When Cancel is Selected.

[ajlcpa]

Hi Folks:

I can handle this if I Dim the variable as a string, but I really need to Dim it as a Date. I want to exit the sub if a date is not entered or if Cancel is selected.

Thank you for reading and your help.

 Dim DateEntry As Date
    
   
   DateEntry = InputBox("Please enter the oldest start date using this format MM/DD/YY", "Date Selection")

 

[Joe4]

How about using a Date Picker instead, which only allows them to pick a date (and not enter anything else)?

Insert a date picker - Microsoft Support

support.microsoft.com

 

[Akuini]

Maybe this:

 Dim DateEntry As Date, v As String
    v = Application.InputBox("Please enter the oldest start date using this format MM/DD/YY", "Date Selection", Type:=2)
    If v Like "##-##-##" Then
        DateEntry = CDate(v)
    Else
        Exit Sub
    End If

 

[ajlcpa]

How about using a Date Picker instead, which only allows them to pick a date (and not enter anything else)?

Insert a date picker - Microsoft Support

support.microsoft.com

Thank you. I would love to try date picker. I need to research how to access. Thank you.

 

[ajlcpa]

Maybe this:

 Dim DateEntry As Date, v As String
    v = Application.InputBox("Please enter the oldest start date using this format MM/DD/YY", "Date Selection", Type:=2)
    If v Like "##-##-##" Then
        DateEntry = CDate(v)
    Else
        Exit Sub
    End If

Thank you for the quick response. I will try, and let you know. Very much appreciated.

 

[Joe4]

Thank you. I would love to try date picker. I need to research how to access. Thank you.

You are welcome. I think that link I provided should have the details you need for that.

 

[Akuini]

Sorry, the pattern is wrong, it should be:
If v Like "##/##/##" Then

 

[ajlcpa]

Sorry, the pattern is wrong, it should be:
If v Like "##/##/##" Then

Thank you. I am very eager to try this I will let you know shortly.

 

[ajlcpa]

Thank you. I am very eager to try this I will let you know shortly.

Hello: After server attempts, I couldn't get it work. It exited the sub nicely, but didn't execute the code if entered a correctly formatted date. I am sure it is me. Thank you very much though.

 

[Akuini]

1. Can you show us your code?
2. What would you do after you assign the date to DateEntry ?

I tried it like this:
run the code below > type 12/04/21 > OK
a message box show up, showing: 12/04/2021

see that 21 become 2021, so DateEntry is a date
note: my regional setting use "day-month-year" not "month-day-year"

Sub tryDate()
 Dim DateEntry As Date, v As String
    v = Application.InputBox("Please enter the oldest start date using this format MM/DD/YY", "Date Selection", Type:=2)
    If v Like "##/##/##" Then
        DateEntry = CDate(v)
    Else
        Exit Sub
    End If
    MsgBox DateEntry
End Sub