Introducir fecha y ocultar calendario

Puedes insertar en la hoja un control "Calendar" desde Insertar->Objeto, y pegar lo siguiente en el módulo de la hoja (click derecho sobre su etiqueta->Ver código):

Private Sub Calendar1_Click()
ActiveCell = Calendar1
End Sub

Private Sub Calendar1_GotFocus()
If IsDate(ActiveCell) Then Calendar1 = ActiveCell
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Calendar1.Visible = Target.Column = 1
If Target.Column = 1 And IsDate(Format(ActiveCell, "dd-mm-yy")) Then Calendar1 = ActiveCell
End Sub


El calendario aparecerá al seleccionar cualquier celda de la columna A, y desaparecerá al seleccionar cualquier otra.
Un saludo.


Fernando Arroyo
MS MVP - Excel



"Sofía" escribió en el mensaje news:0d3701c425ed$c1dfe810$
Me gustaría poder realizar lo siguiente:

En las celdas que deba introducir una fecha que aparezca
un calendario del cual elegir día, mes y año, pero una
vez introducida la fecha que se vuelva a ocultar el
calendario.

Muchas gracias por anticipado