| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| Make a calandar chart | Charts and Charting in Excel | |||
| Complex day of the month calandar | Excel Worksheet Functions | |||
| In excel, I want a drop down box to a calandar to choose dates | Excel Discussion (Misc queries) | |||
| use of calandar function | Excel Discussion (Misc queries) | |||
| how can i put birthdays into the calandar from an list? | Excel Discussion (Misc queries) | |||
Linear Mode
