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

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

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