Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.misc
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calendar List to Calendar format | Excel Worksheet Functions | |||
find free sharware to include calendar pop or use calendar in cell | Excel Discussion (Misc queries) | |||
how do i export excel calendar info to outlook calendar? | Excel Discussion (Misc queries) | |||
excel calendar - list of names displayed on calendar | Excel Worksheet Functions | |||
import calendar items from excel into outlook calendar | Excel Discussion (Misc queries) |