none
Popup Calendar in Excel 2010

    Question

  • 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

Answers

  • 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


    Monday, October 15, 2012 7:31 PM