Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date via pop-up calendar
How can I provide the user with a 'calender pop-up' as in Outlook, where
(s)he can easily select and enter a valid date in a worksheet cell ? I assume I don't have to create this pop-up from scratch in Excel, as it is available in Outlook. Once defined, I would add this function/routine on right_click_mouse event |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date via pop-up calendar
Try this Olivier
http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Olivier" wrote in message ... How can I provide the user with a 'calender pop-up' as in Outlook, where (s)he can easily select and enter a valid date in a worksheet cell ? I assume I don't have to create this pop-up from scratch in Excel, as it is available in Outlook. Once defined, I would add this function/routine on right_click_mouse event |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date via pop-up calendar
This is superb. Having done it, how do I call the calendar from within a data
entry macro, select the date and then carry on with other data entry. "Ron de Bruin" wrote: Try this Olivier http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Olivier" wrote in message ... How can I provide the user with a 'calender pop-up' as in Outlook, where (s)he can easily select and enter a valid date in a worksheet cell ? I assume I don't have to create this pop-up from scratch in Excel, as it is available in Outlook. Once defined, I would add this function/routine on right_click_mouse event |
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date via pop-up calendar
I have followed Ron's directions, but I can't get a date other than today's
date to appear. I am not able to select any other date using the calendar. This is the code I am using: Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.Offset(0, 1).Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("J3"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width - Calendar1.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub Can someone tell me what I am missing? Thanks! Amanda "Ron de Bruin" wrote: Try this Olivier http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Olivier" wrote in message ... How can I provide the user with a 'calender pop-up' as in Outlook, where (s)he can easily select and enter a valid date in a worksheet cell ? I assume I don't have to create this pop-up from scratch in Excel, as it is available in Outlook. Once defined, I would add this function/routine on right_click_mouse event |
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
Enter date via pop-up calendar
I think you are still in Edit mode
Which excel version do you use ? -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Amanda" wrote in message ... I have followed Ron's directions, but I can't get a date other than today's date to appear. I am not able to select any other date using the calendar. This is the code I am using: Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.Offset(0, 1).Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("J3"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width - Calendar1.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub Can someone tell me what I am missing? Thanks! Amanda "Ron de Bruin" wrote: Try this Olivier http://www.rondebruin.nl/calendar.htm -- Regards Ron de Bruin http://www.rondebruin.nl "Olivier" wrote in message ... How can I provide the user with a 'calender pop-up' as in Outlook, where (s)he can easily select and enter a valid date in a worksheet cell ? I assume I don't have to create this pop-up from scratch in Excel, as it is available in Outlook. Once defined, I would add this function/routine on right_click_mouse event |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Enter date in userform using Calendar Control | Excel Discussion (Misc queries) | |||
Convert date from Gregorian Calendar to Hijri Calendar | Excel Discussion (Misc queries) | |||
ENTER A DATE USING CALENDAR CONTROL | Excel Discussion (Misc queries) | |||
Calendar control on cell enter? | Excel Worksheet Functions | |||
HOW DO I ENTER SAME DATA IN EACH CALENDAR DAY AT SAME TIME? | Excel Discussion (Misc queries) |