Calendar in Excel

  • Thread starter Thread starter Tom
  • Start date Start date
T

Tom

I want to be able to pick a cell and have a caledar
appear that would let me pick a month,day,year and then
insert that date into the cell. Is this possible? if so
how do I go about doing it? Thanks
 
Tom

Using a combination of a UserForm, the MS Calendar 8.0 control and the
worksheet_beforedouble click event, you can do something approaching what
you want (Double-click obviously shows the calendar. Clicking a date
dismisses it entering the date in the activecell and moving the selection
down one row)

Userform (carrying calendar control) code

Private Sub Calendar1_Click()
ActiveCell.Value = Me.Calendar1.Value
Unload Me
ActiveCell.Offset(1, 0).Select
End Sub

Worksheet_BeforeDoubleClick code


Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As
Boolean)
frmCalendar.Show
End Sub

If you want to see the workbook set up email me privately. (remove the
necessary)

--
HTH
Nick Hodge
Microsoft MVP - Excel
Southampton, England
(e-mail address removed)
 
Back
Top