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'.
The error I am getting is "Object doesn't support this property or method"
Any help with this would be greatly appreciated!
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'.
Code:
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 SubThe error I am getting is "Object doesn't support this property or method"
Any help with this would be greatly appreciated!