Calendar default date
 

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.

Calendar default date
 

What about the Initialize event for the UserForm?

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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.

Calendar default date
 

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" wrote:

What about the Initialize event for the UserForm?

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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.

Calendar default date
 

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.

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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" wrote:

What about the Initialize event for the UserForm?

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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.

Calendar default date
 

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

"Rick Rothstein" wrote:

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.

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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" wrote:

What about the Initialize event for the UserForm?

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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.

Calendar default date
 

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


On Wed, 7 Jan 2009 09:09:02 -0800, callbr549
wrote:

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" wrote:

What about the Initialize event for the UserForm?

--
Rick (MVP - Excel)


"callbr549" wrote in message
...
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.