Celda con control de Calendario

"SALA" escribió en el mensaje news:

Buenos días a Todos,

Necesitaría saber como puedo hacer para cuando haga click en una celda
se habra un calendario y pueda seleccionar una fecha determinada, la cual
quede impresa en la celda.

Un saludo
Gracias.

Yo escribí código que posiblemente te sirva:

http://www.excelsp.com/eventos01.htm#eventos01_7

Si sólo necesitas que aparezca al activar una celda, habría que modificarlo. Si nos dices la celda, podremos hacerlo.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Hola Fernando,

Me limito a copiar y pegar el código y me da error, ¿tengo que
insertar un algun valor?


"Fernando Arroyo" escribió:

"SALA" escribió en el mensaje news:
> Buenos días a Todos,
>
> Necesitaría saber como puedo hacer para cuando haga click en una celda
> se habra un calendario y pueda seleccionar una fecha determinada, la cual
> quede impresa en la celda.
>
> Un saludo
> Gracias.


Yo escribí código que posiblemente te sirva:

http://www.excelsp.com/eventos01.htm#eventos01_7

Si sólo necesitas que aparezca al activar una celda, habría que modificarlo. Si nos dices la celda, podremos hacerlo.
Un saludo.


Fernando Arroyo
MS MVP - Excel

Si estas intentándolo con el primer código, acabo de ver que le faltan un par de instrucciones. Prueba con:

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)
With Calendar1
.Visible = Target.Column = 1
If Target.Column = 1 And IsDate(Format(ActiveCell, "yyyy-mm-dd")) Then Calendar1 = ActiveCell Else .Value = Int(Now())
End With
End Sub


Si lo estás intentando con el segundo, debería funcionar sin problemas.
Un saludo.


Fernando Arroyo
MS MVP - Excel


"SALA" escribió en el mensaje news:

Hola Fernando,

Me limito a copiar y pegar el código y me da error, ¿tengo que
insertar un algun valor?


"Fernando Arroyo" escribió: