Thanks -- Here's my FINAL Code (partial) - thanks to you..
' Data starts on Row 7
If Target.Row = 6 Then
Select Case Target.Column
Case 2 'applies to Column B
Calendar1.Left = Target.Left + Target.Width -
Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
Case 3 'applies to Column C
Calendar1.Left = Target.Left + Target.Width -
Calendar1.Width
Calendar1.Top = Target.Top + Target.Height
Calendar1.Visible = True
"Ron de Bruin" wrote in message
:
Hi JMay
Does this impact my PC's memory or Filesize?
No you only use one control
Or this, you not want the control to popup when you select a header I think
If Not Application.Intersect(Range("B2:C1000"), Target) Is Nothing Then
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"JMay" wrote in message ...
Also Ron:
If I end up with 1,000 entries in my Col B (using the calendar control)
Does this impact my PC's memory or Filesize? If not I also have dates
In Column C where I'd like to engage the same control -- all I'd have
To do (I think) is change the Select Case statement to test for either
2 OR 3
Select Case Target.Column <<
Right?
Jim
"Ron de Bruin" wrote in message
:
Hi Jim
I think that you changed it to 85 after you insert the control
Delete the control
Set zoom to 85 if it is different
insert object to add the control
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"JMay" wrote in message ...
Ron:
As a matter of fact, YES -- I need 85% to see all my stuff (10 columns)
at one glance. Is this a problem? I found your code on google --it's
great,,
Jim
"Ron de Bruin" wrote in message
:
Hi JMay
Do you change the zoom of the worksheet ?
--
Regards Ron de Bruin
http://www.rondebruin.nl/tips.htm
"JMay" wrote in message ...
The below code (supplied by Ron de Bruin) is working fine, except for
the following:
When in Design Mode I see the Full month Calendar (Sunday - Saturday),
but
When I exit out of Design mode and click on cell B10 say, I only see
Sunday thru Friday (Saturday is truncated). I've tried back in Design
mode
Increasing the width, but without success. How can I modify to be able
To view the fully needed width?
TIA,
Jim May
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
' Data starts on Row 7
If Target.Row = 6 Then
Select Case Target.Column
Case 2 'applies to Column B
Calendar7.Left = Target.Left + Target.Width -
Calendar7.Width
Calendar7.Top = Target.Top + Target.Height
Calendar7.Visible = True
Case Else: If Calendar7.Visible Then Calendar7.Visible = False
End Select
Else: If Calendar7.Visible Then Calendar7.Visible = False
End If
End Sub