DatePicker Control to default to first day of year current year

bilbo85

New Member
Joined
Dec 8, 2015
Messages
19
Hi,

I have a datepicker control in my userform that currently defaults to today's date using the code below. Do you know how to modify this to always show the first day of the current year?

Me.DTPicker1.Value = Date

Thanks
 

Eric W

MrExcel MVP
Joined
Aug 18, 2015
Messages
8,993
Try:

Code:
Me.DTPicker1.Value = DateSerial(Year(Date), 1, 1)
 

rholdren

Board Regular
Joined
Aug 25, 2016
Messages
82
Try:

Code:
Me.DTPicker1.Value = DateSerial(Year(Date), 1, 1)
Is there a way to choose the default date to a specific date. For example I want DTPicker1 to show 12/31/9999 until a date has been chosen
 

Eric W

MrExcel MVP
Joined
Aug 18, 2015
Messages
8,993
I haven't tested this, but it should work:

Code:
Me.DTPicker1.Value = DateSerial(9999, 12, 31)
 

rholdren

Board Regular
Joined
Aug 25, 2016
Messages
82
sometimes I just laugh at myself. Don't know why I make things more difficult than they have to be. Eric you ROCK! Thanks
 

Eric W

MrExcel MVP
Joined
Aug 18, 2015
Messages
8,993
I know the feeling! I hate when I miss the obvious, but it happens all too often! Glad I could help. :cool:
 

Forum statistics

Threads
1,082,243
Messages
5,363,972
Members
400,772
Latest member
solbebe

Some videos you may like

This Week's Hot Topics

  • populate from drop list with multiple tables
    Hi All, i have a drop list that displays data, what i want is when i select one of those from the list to populate text from different tables on...
  • Find list of words from sheet2 in sheet1 before a comma and extract text vba
    Hi Friends, Trying to find the solution on my task. But did not find suitable one to the need. Here is my query and sample file with details...
  • Dynamic Formula entry - VBA code sought
    Hello, really hope one of you experts can help with this - i've spent hours on this and getting no-where. .I have a set of data (more rows than...
  • Listbox Header
    Have a named range called "AccidentsHeader" Within my code I have: [CODE]Private Sub CommandButton1_Click() ListBox1.RowSource =...
  • Complex Heat Map using conditional formatting
    Good day excel world. I have a concern. Below link have a list of countries that carries each country unique data. [URL...
  • Conditional formatting
    Hi good morning, hope you can help me please, I have cells P4:P54 and if this cell is equal to 1 then i want row O to say "Fully Utilised" and to...
Top