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 |
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 |
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 |
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 |
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 |
All times are GMT +1. The time now is 05:57 PM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com