Re: Non-activex Datepicker Calendar Control
Thanks for the help Baodad
The attached file is like the others - complete with instructions - with the following update:
When you click on a cell that is formatted with d-mmm-yy, the Pop-Up-Calendar will show (as before) but the year/month that is displayed will depend on what is already in the cell clicked on
- if the cell is empty, just like now, the current month is displayed with Today's date highlighted
- if the cell has a date already entered into it, the month/year of that date will be displayed
with the date already entered into the cell highlighted.
This was done by changing the Code in the FormPicker
Private Sub UserForm_Initialize() Dim ExistDate As Date Set clsCal.BoundForm = Me If ActiveCell.Value = 0 Then clsCal.LoadView Else ExistDate = ActiveCell.Value clsCal.LoadView (ExistDate) End If End Sub
and changing the (numerous) if statements in the ClsCalendar LoadView Sub
Thanks again Baodad for all your initial work and subsequent help!