Calandar
 

I have a popup calandar that all of a sudden doesn't show any dates. I can
click on a blank date block (knowing what date it is by its location on the
calandar) and it will put the correct date in the selected cell

I have not done any revisions to the workbook.

oldjay

Calandar
 

More explaination - This is the code I am using

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("form!C47:C48"), 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



"Oldjay" wrote:

I have a popup calandar that all of a sudden doesn't show any dates. I can
click on a blank date block (knowing what date it is by its location on the
calandar) and it will put the correct date in the selected cell

I have not done any revisions to the workbook.

oldjay

Calandar
 

Try to delete the object and insert a new one
(be sure that the name is also Calendar1)

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Oldjay" wrote in message ...
More explaination - This is the code I am using

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("form!C47:C48"), 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



"Oldjay" wrote:

I have a popup calandar that all of a sudden doesn't show any dates. I can
click on a blank date block (knowing what date it is by its location on the
calandar) and it will put the correct date in the selected cell

I have not done any revisions to the workbook.

oldjay

Calandar
 

I dont know how to delete an object

"Ron de Bruin" wrote:

Try to delete the object and insert a new one
(be sure that the name is also Calendar1)

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Oldjay" wrote in message ...
More explaination - This is the code I am using

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("form!C47:C48"), 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



"Oldjay" wrote:

I have a popup calandar that all of a sudden doesn't show any dates. I can
click on a blank date block (knowing what date it is by its location on the
calandar) and it will put the correct date in the selected cell

I have not done any revisions to the workbook.

oldjay

Calandar
 

When you are in Edit mode (open the control toolbox toolbar and press the first button)
Select the control and press delete

Then insert a new one and see if this help


--
Regards Ron de Bruin
http://www.rondebruin.nl


"Oldjay" wrote in message ...
I dont know how to delete an object

"Ron de Bruin" wrote:

Try to delete the object and insert a new one
(be sure that the name is also Calendar1)

--
Regards Ron de Bruin
http://www.rondebruin.nl


"Oldjay" wrote in message ...
More explaination - This is the code I am using

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("form!C47:C48"), 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



"Oldjay" wrote:

I have a popup calandar that all of a sudden doesn't show any dates. I can
click on a blank date block (knowing what date it is by its location on the
calandar) and it will put the correct date in the selected cell

I have not done any revisions to the workbook.

oldjay