Setting Default Date in Date Picker

[Guard913]

I have tried the Me.Date_Picker.Value = Value in both worksheet start, userform.intialize tried the Now() with no luck. I have googled this and tried everyway but i keep getting errors....

 

[VBA Geek]

I am not sure what it could be without looking at the code. But you can try this better version of the date picker

 

[Fluff]

How about

Private Sub UserForm_Initialize()
Me.[COLOR=#ff0000]DTPicker1 [/COLOR]= Date
End Sub

change value in red to match the name of your DtPicker

 

[Guard913]

I have been trying that for the past 24 hours.... it does not work. Date_Picker is the name of my form. Do I change the name of my form? And where would be best to put this code???? In the form or on the button the starts the form, or on the worksheet itself.....
Private Sub UserForm_Initialize()
Me.Date_Picker= Date
End Sub

 

[Fluff]

What is the name of the Date Picker control on your form?

 

[Guard913]

Date_Picker

 

[Guard913]

its actually lol MonthView1......... never saw that.... :D can you verify the code off of that.....

 

[Guard913]

When i click on the actual calendar its MonthView1 the name of the form is Date_Picker..... never named the calendar....

 

[Fluff]

In that case replace the value in red from post#3 with MonthView1

 

[Guard913]

In that case replace the value in red from post#3 with MonthView1

That worked. Thank you Very Much.