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

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

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

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

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