Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar Pop up issue
Hi,
I'm using excel 2003. I have created a calendar pop up by using the code from Ron de Bruin's site http://www.rondebruin.nl/calendar.htm The pop was working fine but now when I click on the cell's where the control is located the calendar doesn't appear. Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.NumberFormat = "dd/mm/yyyy" ActiveCell.Select If Calendar1.Value Then Calendar1.Visible = False End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("J19:J21,J23:J29"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub I have swapped PC's and had to install the Calendar Control as described on http://www.fontstuff.com/vba/vbatut07.htm. I created the user form from scratch on the new machine but the control still isn't working. Any ideas on what the issue might be would be appreciated. Thanks in advance, Gav123 |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar Pop up issue
Hi Gav123,
The code works for me without any problem. Are you sure that Events have not been disabled? To eliminate this possibility, try first: '============= Public Sub Tester() Application.EnableEvents = True End Sub '<<============= Otherwise, are you sure that the code has been placed in the Worksheet's code module rather than in a standard module? I note, however, your comment: I created the user form from scratch on the new machine but the control still isn't working. What is the relevance of the Userform to this problem? --- Regards, Norman "Gav123" wrote in message ... Hi, I'm using excel 2003. I have created a calendar pop up by using the code from Ron de Bruin's site http://www.rondebruin.nl/calendar.htm The pop was working fine but now when I click on the cell's where the control is located the calendar doesn't appear. Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.NumberFormat = "dd/mm/yyyy" ActiveCell.Select If Calendar1.Value Then Calendar1.Visible = False End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("J19:J21,J23:J29"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub I have swapped PC's and had to install the Calendar Control as described on http://www.fontstuff.com/vba/vbatut07.htm. I created the user form from scratch on the new machine but the control still isn't working. Any ideas on what the issue might be would be appreciated. Thanks in advance, Gav123 |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Calendar Pop up issue
Hi Norman,
That was it.. my brain must have switched off.. I just thought I would do the userform from scratch in case I was missing something..it's just the way my mind works... Anyhow thanks for your help. Gav "Norman Jones" wrote: Hi Gav123, The code works for me without any problem. Are you sure that Events have not been disabled? To eliminate this possibility, try first: '============= Public Sub Tester() Application.EnableEvents = True End Sub '<<============= Otherwise, are you sure that the code has been placed in the Worksheet's code module rather than in a standard module? I note, however, your comment: I created the user form from scratch on the new machine but the control still isn't working. What is the relevance of the Userform to this problem? --- Regards, Norman "Gav123" wrote in message ... Hi, I'm using excel 2003. I have created a calendar pop up by using the code from Ron de Bruin's site http://www.rondebruin.nl/calendar.htm The pop was working fine but now when I click on the cell's where the control is located the calendar doesn't appear. Private Sub Calendar1_Click() ActiveCell.Value = CDbl(Calendar1.Value) ActiveCell.NumberFormat = "dd/mm/yyyy" ActiveCell.Select If Calendar1.Value Then Calendar1.Visible = False End If End Sub Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("J19:J21,J23:J29"), Target) Is Nothing Then Calendar1.Left = Target.Left + Target.Width Calendar1.Top = Target.Top + Target.Height Calendar1.Visible = True Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If End Sub I have swapped PC's and had to install the Calendar Control as described on http://www.fontstuff.com/vba/vbatut07.htm. I created the user form from scratch on the new machine but the control still isn't working. Any ideas on what the issue might be would be appreciated. Thanks in advance, Gav123 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Calendar Tool issue | Excel Discussion (Misc queries) | |||
Calendar issue | Excel Discussion (Misc queries) | |||
Calendar conrtol issue | Excel Programming | |||
Calendar conrtol issue | Excel Programming | |||
Calendar conrtol issue | Excel Programming |