using a macro to change the date of a Datepicker

[rholdren]

I have a worksheet that when a user completes they click on a button and the data is copied, pasted, and all the fields reset to blank except the DatePicker
is there something I can do to call the DatePicker to reset itself back to 1/1/2019?
I've been looking all over and I have found examples of using a ComboBox to call a sub but I can't find anything that flows the other way.
I would just like to be able to set the DatePicker back to 1/1/2019 once the macro has completed.
Thanks.

 

[silentwolf]

Hi,
I am not sure if I uderstood you correctly.. but why don't you use the Userform_Initialize Event

Private Sub UserForm_Initialize()
    Me.DTPicker1.Value = #1/1/2019#
End Sub

so when the code to copy is complete then close the form and load it again.

 

[rholdren]

it didn't work. It's just part of a worksheet not an actual user form

 

[DataBlake]

I have a worksheet that when a user completes they click on a button and the data is copied, pasted, and all the fields reset to blank except the DatePicker
is there something I can do to call the DatePicker to reset itself back to 1/1/2019?
I've been looking all over and I have found examples of using a ComboBox to call a sub but I can't find anything that flows the other way.
I would just like to be able to set the DatePicker back to 1/1/2019 once the macro has completed.
Thanks.

can you please post the datepicker/macro using the code tags so whoever can help you can see what they're working with?
as well as any sheet names, object names, etc that would be useful

are you using the activex datepicker?

perhaps this article can help you?
https://www.ablebits.com/office-addins-blog/2016/10/12/insert-calendar-excel-datepicker-template/

 

[rholdren]

sheet name is Form
DatePicker7 (ActiveX)
We re not permitted to use ablebits

I don't have a macro yet that is what I was hoping to get

I have no problem using the DatePicker or coding it to do what i need.

Is there a way I can Call the DatePicker to Change from the macro below?

I want to reset it to date 01/01/2019

Sub Field_Resets()
' Reset form values to staring points
Range("B2").Value = ""
Range("B8.B11").Value = ""
Range("B14").Value = "Start Here - Use Dropdown to make selection"
Range("B17").Value = "Start Here - Use Dropdown to make selection"
Range("B23").Value = ""
Range("B24").Value = "Start Here - Use Dropdown to make selection"
Range("B26").Value = "Start Here - Use Dropdown to make selection"
Range("B27.B28").Value = ""
Range("B30.B31").Value = "N/A"
Range("B33").Value = ""
Range("B34").Value = "N/A"
Range("C6.E6").Value = ""
Range("C9").Value = "Make Selection"
Range("D9").Value = "Make Selection"


End Sub