Calendar Control

[colmcg]

Is it possible to have a calendar show when a cell is 'selected'. For example if cell A1 is selected, either by a mouse click or using the arrow keys, the calendar control shows. When a date is then selected from the calendar it is placed in cell A1 and the calendar control closes.

I have read several other threads on this but they activate the calendar control from a button or a toolbar shortcut. If possible I would like the calendar to show when a cell is selected.

Thanks in advance.

 

[Greg Truby]

Colin,

Similar setup as before, but no linked cell on the calendar control then; the following code in the worksheet module.

<font face=Courier New><SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Calendar1_Click()
    ActiveCell = Calendar1
    Calendar1.Visible = <SPAN style="color:#00007F">False</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>

<SPAN style="color:#00007F">Private</SPAN> <SPAN style="color:#00007F">Sub</SPAN> Worksheet_SelectionChange(<SPAN style="color:#00007F">ByVal</SPAN> Target <SPAN style="color:#00007F">As</SPAN> Range)
    <SPAN style="color:#00007F">If</SPAN> Target.Column = 1 <SPAN style="color:#00007F">Then</SPAN>
        <SPAN style="color:#00007F">With</SPAN> Calendar1
            .Value = <SPAN style="color:#00007F">Date</SPAN>
            .Visible = <SPAN style="color:#00007F">True</SPAN>
        <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">With</SPAN>
    <SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">If</SPAN>
<SPAN style="color:#00007F">End</SPAN> <SPAN style="color:#00007F">Sub</SPAN>
</FONT>

And FWIW -- with the previous setup the calendar control was not reflecting the value on its last use. It was reflecting the value in the linked cell. Try changing the value in the linked cell by typing it in instead of using the calendar control and then click back on the cell and you'll see that the value in the calendar control changes to match the value that was typed in the cell.

Edited to correct synching calendar to today's date when not necessary.

 

[colmcg]

Greg,

It's now working perfectly. Thanks very much for all your assistance.

Colin