Date picker

[DeepBlu24]

I'm teaching myself the very basics of VBA but im stuck. I have two date picker boxes- start and end dates which the user must select. I want to make sure though that the end date cannot be before or the same as the start date and neither box can be left blank. Please can someone help!

 

[mrshl9898]

Hi, what code do you have so far?

 

[mrshl9898]

Something like this?

Sub datepick()

Dim StartDate As Date
Dim EndDate As Date
 
StartDate = InputBox("Please enter the Start date")
EndDate = InputBox("Please enter the End date")
 
Do Until StartDate < EndDate
If StartDate >= EndDate Then


EndDate = InputBox("Start date is higher or equal to End date. Please enter a new End date")


End If
Loop


End Sub