To create a Drop down calendar in excel, first you have to create a new user form and then in that add a calendar from tools after that add a command button and code for the command are as follows:
Code:
Private Sub cmdClose_Click()
Unload Me
End Sub
Code:
Private Sub Calender1_Click()
ActiveCell.Value = Calender1.Value
Unload Me
End Sub
Code:
Private Sub UserForm_Initialize()
If IsDate (ActiveCell.Value) Then
Calender1.Value = DateValue (ActiveCell.Value)
Else
Calender1.Value = Date
End If
Code:
Sub OpenCalender()
frmCalender.Show
End Sub
Bookmarks