Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with calander
I am trying to get a calander to pop up in column (A) using the following code But I get an error called " Run Time Error "424". when I Debud it, the line: Calendar1.Left = Target.Left + Target.Width - Calendar1.Width is highlited yellow. I tried to figue it out but can't can anyone help? Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.NumberFormat = "mm/dd/yyyy" ActiveCell.Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width - Calendar1.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub -- parteegolfer ------------------------------------------------------------------------ parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951 View this thread: http://www.excelforum.com/showthread...hreadid=519219 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with calander
http://www.rondebruin.nl/calendar.htm
Use Insert-Object on the Worksheet Menu Bar to place a Calendar control on your sheet. It is possible you don't see it in the list, because it is installed with Access. So if you don't have that program installed you possible don't have the control. You can download it on the website on the bottom of this page if you don't have it. Note: If you protect your sheet in Excel 97-2000 then you must format the range first with the Date format you want and remove this line ActiveCell.NumberFormat = "mm/dd/yyyy" In Excel 2002 and 2003 you be able to protect your worksheet and allow Format cells. This code is not working if there are Merged cells in the range. You can use this : FormatCellsAlignment Tab ... Center Across Selection Copy this code in the Worksheet module: Right click on the sheet tab and choose view code. Paste the code in there and press Alt-Q to go back to Excel. -- Regards, Tom Ogilvy "parteegolfer" wrote in message news:parteegolfer.2487rm_1141611901.0418@excelforu m-nospam.com... I am trying to get a calander to pop up in column (A) using the following code But I get an error called " Run Time Error "424". when I Debud it, the line: Calendar1.Left = Target.Left + Target.Width - Calendar1.Width is highlited yellow. I tried to figue it out but can't can anyone help? Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.NumberFormat = "mm/dd/yyyy" ActiveCell.Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width - Calendar1.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub -- parteegolfer ------------------------------------------------------------------------ parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951 View this thread: http://www.excelforum.com/showthread...hreadid=519219 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Error with calander
Check the name of the control
Is the name Calendar1 ? -- Regards Ron de Bruin http://www.rondebruin.nl "parteegolfer" wrote in message news:parteegolfer.2487rm_1141611901.0418@excelforu m-nospam.com... I am trying to get a calander to pop up in column (A) using the following code But I get an error called " Run Time Error "424". when I Debud it, the line: Calendar1.Left = Target.Left + Target.Width - Calendar1.Width is highlited yellow. I tried to figue it out but can't can anyone help? Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.NumberFormat = "mm/dd/yyyy" ActiveCell.Select End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("A1:A20"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width - Calendar1.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub -- parteegolfer ------------------------------------------------------------------------ parteegolfer's Profile: http://www.excelforum.com/member.php...o&userid=31951 View this thread: http://www.excelforum.com/showthread...hreadid=519219 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calander Pop Up | Excel Discussion (Misc queries) | |||
calander help | Excel Discussion (Misc queries) | |||
Perpetual calander | Excel Worksheet Functions | |||
calander | Excel Discussion (Misc queries) | |||
Newbie Help on VBA Calander | Excel Programming |