calendar
On sheet1 insert a calendar control - from the menu choose Insert-Object
and from the list 'Calendar Control 8.0' the actual version number may vary.
In design mode you can format this and set defaults etc., using the
properties, Right Click, choose Calendar Object-Properties.
Behind sheet1 place the following code
Private Sub Calendar1_Click()
ActiveCell.Value = Calendar1.Value
Calendar1.Visible = False
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Target.Column = 1 Then
Calendar1.Visible = True
End If
End Sub
The above code will hide the control until a cell in column 1 ("A") is
clicked, the calendar will becoem visible allow you to change year and
month, when you click on the actual day the value will be placed in the cell
in colum 1 you clicked.
Hope this provides a template.
Cheers
Nigel
"dyowell" wrote in message
...
I have a worksheet that has a date column. I would like
to be able to click in the column and bring up a calendar
view to choose the date. I have no idea how to do this,
but thought that maybe someone could help lead me in the
right direction. Thanks in advance for the help.
|