| Home |
| Search |
| Today's Posts |
|
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Keeping calendar in one place
How do I keep the calendar in one place. As it is now when I click on one of
the intersect cells the calendar moves just under the cell covering other information Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), 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 |
|
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Keeping calendar in one place
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), Target) Is Nothing Then Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If -- Regards, Tom Ogilvy "Oldjay" wrote: How do I keep the calendar in one place. As it is now when I click on one of the intersect cells the calendar moves just under the cell covering other information Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), 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 |
|
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Keeping calendar in one place
Thanks
"Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), Target) Is Nothing Then Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If -- Regards, Tom Ogilvy "Oldjay" wrote: How do I keep the calendar in one place. As it is now when I click on one of the intersect cells the calendar moves just under the cell covering other information Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), 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 |
|
#4
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Keeping calendar in one place
Opps I spoke too soon. After I saved it and reopened it the calendar no
longer has the dates displayed all though when you click on a blank date it displays the right date in the date cell. "Oldjay" wrote: Thanks "Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), Target) Is Nothing Then Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If -- Regards, Tom Ogilvy "Oldjay" wrote: How do I keep the calendar in one place. As it is now when I click on one of the intersect cells the calendar moves just under the cell covering other information Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), 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 |
|
#5
Posted to microsoft.public.excel.programming
|
|||
|
|||
|
Keeping calendar in one place
I didn't remove any code except the code that repositioned the calendar - per
your request. -- Regards, Tom Ogilvy "Oldjay" wrote: Opps I spoke too soon. After I saved it and reopened it the calendar no longer has the dates displayed all though when you click on a blank date it displays the right date in the date cell. "Oldjay" wrote: Thanks "Tom Ogilvy" wrote: Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), Target) Is Nothing Then Calendar1.Visible = True ' select Today's date in the Calendar Calendar1.Value = Date ElseIf Calendar1.Visible Then Calendar1.Visible = False End If -- Regards, Tom Ogilvy "Oldjay" wrote: How do I keep the calendar in one place. As it is now when I click on one of the intersect cells the calendar moves just under the cell covering other information Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Target.Cells.Count 1 Then Exit Sub If Not Application.Intersect(Range("C44:C45"), 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 |
| Reply |
| Thread Tools | Search this Thread |
| Display Modes | |
|
|
Similar Threads
|
||||
| Thread | Forum | |||
| I want to place a calendar template on my desktop. | Excel Worksheet Functions | |||
| Help with keeping formulas in place! | Excel Discussion (Misc queries) | |||
| Keeping cursor in same place on all worksheets in a workbook | Excel Worksheet Functions | |||
| How do place a column of date/time information into a calendar for | Excel Discussion (Misc queries) | |||
| Keeping cells in place | Excel Worksheet Functions | |||
Linear Mode
