Popup Calendar in Excel 2010


  • Hi, I am using Excel 2010.  I would like to have a calendar pop up whenever I choose a cell within a given column  the calendar is invisible all other times.  I would like to choose a date via the calendar and have that date visible in the selected (active) cell.  If anyone can help with this it would be greatly appreciated.  Thank you!  :)
    Monday, October 15, 2012 5:10 PM


  • You can use two calendar object.

    DTPicker1 or MonthView1 in mscomct2.ocx control.

    you can use this code to paste date in cell:

    Private Sub UserForm_Initialize()
    MonthView1.value = Now
    DTPicker1.value = Now
    End Sub
    Private Sub DTPicker1_Change()
    ActiveCell.value = Format(DTPicker1.value, "Short Date")
    End Sub
    Private Sub MonthView1_DateClick(ByVal DateClicked As Date)
    ActiveCell.value = MonthView1.value
    End Sub

    Oskar Shon, Office System MVP

    Press if Helpful; Answer when a problem solved

    • Edited by VBAToolsMVP Monday, October 15, 2012 7:39 PM some code n picture
    • Marked as answer by Max MengModerator Wednesday, October 24, 2012 8:53 AM
    Monday, October 15, 2012 7:31 PM