Date Picker in UserForm will not add value to specified cell

Hi all,

Having a problem with the DatePicker button in my UserForm. I am trying to have the date selected in the DatePicker button fill a specified cell. I basically want to be able to add projects and assign dates to these projects. I then want to build a program that uses the due dates for the projects and compares them to the system date. If they are within a given range from the system date the cells will be formatted (using conditional formatting). I will then have another application to take all date cells with this formatting and add them to a calendar, email alert or Gantt Chart.

For now I need to set up the DatePicker or determine if there is a better way to enter dates in my userform.


When I press the 'OK' button the following code executes. My DatePicker is called 'DatePickerCreated'.

RowCount = Worksheets("Project Information - Master").Range("A2").CurrentRegion.Rows.Count 'Outlines the data that will populate into the Master Worksheet when form is completed
With Worksheets("Project Information - Master").Range("A2")
 .Offset(RowCount, 0).Value = Me.txtProjectID.Value
 .Offset(RowCount, 1).Value = Me.cmboProvince.Value
 .Offset(RowCount, 2).Value = Me.txtRegion.Value
 .Offset(RowCount, 3).Value = Me.txtMile.Value
 .Offset(RowCount, 4).Value = Me.cmboSubdivision.Value
 .Offset(RowCount, 5).Value = Me.cmboProjectTitle.Value
 .Offset(RowCount, 6).Value = Me.cmboProjectType.Value
 .Offset(RowCount, 7).Value = Me.cmboStatus.Value
 .Offset(RowCount, 8).Value = Me.DatePickerCreated.Value
 .Offset(RowCount, 9).Value = Me.txtEAConsultant.Value
 .Offset(RowCount, 10).Value = Me.txtEngineeringArchaeology.Value
 .Offset(RowCount, 11).Value = Me.cmboMonitoring.Value
 End With
Unload Me
End Sub

The error I am getting is "Object doesn't support this property or method"


Any help with this would be greatly appreciated!

Originally Posted by Norie

Where do you get the error?

This line is where the error occurs

.Offset(RowCount, 8).Value = Me.DatePickerCreated.Value

Originally Posted by Leith Ross

Hello clapforthewolfman,

Welcome to the Forum!
If your operating system is 64 bit Windows then there is no Date Picker control available. You can check by pressing the Windows key and then Pause/Break key. This will display information about your system.

There are workarounds. I have a UserForm that will work as a Date Picker. I can install the it for you if you post your workbook.

To Post Your Workbook

1. At the bottom right of the Reply window, Click the button Go Advanced
2. At the top of the Your Message Window, in the first row of icons, Click the Paperclip icon.
3. Click the Add Files button at the top right in the dialog box. This displays the File Manager dialog.
4. Click the Select Files button at the bottom middle of the dialog.
5. In the new window Find the file you want to upload, select it, and Click Open.
6. You will now be back in the File Manager dialog. Click the bottom Middle button Upload File.
7. Wait until the file has completely uploaded before you exit the File Manager dialog.

File Manger Picture

Appears to be a 32-Bit system. It's not one that I normally work on as I generally use Excel for Mac.

I guess my real question is will I be able to make programs that compare a cells date to the system date (current date) and execute actions.

Before trying the DatePicker I was using a simple text box with the following code:

If Not IsDate(Me.txtDateCreated.Value) Then
MsgBox "The Date box must contain a date.", vbExclamation, "Project Form"
Me.txtDateCreated.SetFocus
Exit Sub
End If
'RowCount = Worksheets("Project Information - Master").Range("A2").CurrentRegion.Rows.Count 'Outlines the data that will populate into the Master Worksheet when form is completed
With Worksheets("Project Information - Master").Range("A2")
 .Offset(RowCount, 0).Value = Me.txtProjectID.Value
 .Offset(RowCount, 1).Value = Me.cmboProvince.Value
 .Offset(RowCount, 2).Value = Me.txtRegion.Value
 .Offset(RowCount, 3).Value = Me.txtMile.Value
 .Offset(RowCount, 4).Value = Me.cmboSubdivision.Value
 .Offset(RowCount, 5).Value = Me.cmboProjectTitle.Value
 .Offset(RowCount, 6).Value = Me.cmboProjectType.Value
 .Offset(RowCount, 7).Value = Me.cmboStatus.Value
 .Offset(RowCount, 8).Value = Me.DateCreated.Value
 .Offset(RowCount, 9).Value = Me.txtEAConsultant.Value
 .Offset(RowCount, 10).Value = Me.txtEngineeringArchaeology.Value
 .Offset(RowCount, 11).Value = Me.cmboMonitoring.Value
End With
Unload Me
End Sub

Thanks!

Thanks Leith,

I imagine it would be the latter. I am probably just going to go ahead and use the second code posted and just format the columns where that data is generated to 'Short Date'.

Thanks Norie for the help!