Calendar default date

[callbr549]

I have a userform with several objects on it including a calendar. I can't
figure out how to have the calendar default to the current date when the
userform is opened. Something I read somewhere said you have to do something
like Calendar1.value=Date, but I can't figure out where to put that line of
code. On another forum it described putting it in the Initialize event for
the calendar, but I can't find an Initialize for the calendar.

 

[Rick Rothstein]

What about the Initialize event for the UserForm?

 

[callbr549]

I feel pretty stupid asking this, but I can't seem to find the Initialize
event for the UserForm. I have the form opening with a Command Button that
has UserForm1.Open in its Click event. I've tried putting the Calendar1.value
= Date code there, but get errors. Looking for the Initialize event -- I
select the UserForm in the Project pane, then View|Code, then look for
UserForm1 in the top left pulldown menu on the right hand side pane. I don't
see UserForm1 there. It lists Calendar1 there, but when I select it it
doesn't list an Initialize event in the right hand side pulldown menu. (I
hope this makes some sense).

Thanks,
Rob Samples

 

[Rick Rothstein]

Click on UserForm in the list... it has the Initialize event. UserForm1 is
your name for that module in case you need to reference it in code, but the
module itself is UserForm (look at the event procedures for the UserForm...
none of them use the name you gave it, they all say UserForm.

 

[callbr549]

Excellent answer. Your explanation made things very clear. Calendar now does
exactly what I wanted it to do. Thank you very much.

 

[Gord Dibben]

Rob

Sample code.

Private Sub cmdClose_Click()
' Close the UserForm
Unload Me
End Sub

Private Sub UserForm_Initialize()
' Check if active cell contains a date. If 'yes' show
' same date on calendar. If 'no' show today's date.
If IsDate(ActiveCell.Value) Then
Calendar1.Value = DateValue(ActiveCell.Value)
Else
Calendar1.Value = Format(Date, "dd-mmm-yy")
End If
End Sub

Private Sub Calendar1_Click()
' Transfer date selected on calendar to active cell
' and close UserForm.
ActiveCell.Value = Format(Calendar1.Value, "dd-mmm-yy")
Unload Me
End Sub


Gord Dibben MS Excel MVP