Thread: Date Picker Control will not display Current Date

I am using a couple of Microsoft Date and Time Picker 6.0 (SP4) controls within my Excel workbook. I would like for these controls to automatically fetch the current date. How can I do this?

Sorry if this is within the wrong subforum.

Where are the controls? On a userform or a worksheet?

I thought the default was the current date, try

Code:

Private Sub Worksheet_Activate()
Me.DTPicker1.Value = Date
End Sub

Date() does indeed return the current system date.
The Worksheet_Activate event fires whenever you activate the worksheet containing the code.

The code works; however, upon opening the .xlsx file the worksheet opened is the one containing the date picker, so the control is only updated with the current date after I enabled ActiveX/Macros and switch to a different sheet then back to the sheet containing the control.

Is there a way that I can make this take effect upon the user enabling the ActiveX/Macros?

Yes - you need to use the Workbook_OPen event. This code needs to go into the ThisWorkbook module:

Code:

Private Sub Workbook_Open()
Sheets("Sheet name").DTPicker1.Value = Date
End Sub

If you are satisfied with the solution(s) provided, please mark your thread as Solved.

How to mark a thread Solved
Go to the first post
Click edit
Click Go Advanced
Just below the word Title you will see a dropdown with the word No prefix.
Change to Solved
Click Save