I cannot replicate your problem.
Private Sub UserForm_Initialize()
should give you current date if no date is in the cell.
Gord
On Mon, 20 Oct 2008 01:30:08 -0700, Stuart WJG
wrote:
Gord
I have checked the code.It was slightly different. I have amended it to
match your. However every time i try and insert a date from the pop up
calendar it defaults to the 14th October when todays date is 20th
Stuart
"Gord Dibben" wrote:
Stuart
Right-click on the Calendar Form and make sure you have this code under
"View Code"
Option Explicit
' ================================================== =
' Code by Martin Green eMail
' Visit my Office Tips web site at www.fontstuff.com
' ================================================== =
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 Fri, 17 Oct 2008 01:59:01 -0700, Stuart WJG
wrote:
I have used the pop calendar as suggested from ronebruin.nl using the scpipt
from www.fontstuff.com
Is it possible when using it for the calendar to default to "todays"date
Stuart