G
Gav123
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
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