pop calendar
 

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

pop calendar
 

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

pop calendar
 

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

pop calendar
 

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