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

MUCHAS GRACIAS FERNANDO, FUNCIONAAAAAAAA

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
.

Esta espectacular!!!!!!
Una pregunta queme surge
Como ubicar el calendar al lado de la celda que quiero poner la fecha?
Si mi lista tiene 200 filas???
Va la pregunta

Saludos

Amadeo

Otra vez

Con respecto al calendar

Si selecciono una celda que tiene una fecha por ejemplo 12/3/04
vomo hacer para que la acuse el ccalendar

Antes que nada gracias

Saludos

Amadeo

Estimado Fernando
Para que me pueda andar a mí
tuvo que poner


en vez de calendar1..
Sheets(1).calendar1 =..

Saludos

Amadeo