De vuelta con la fecha Para e Fernando

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)
If Target.Address = "$A$1" Or Target.Address = "$B$54" Or Target.Address = "$C$45" Then
With Calendar1
.Top = Target.Top
.Visible = True
If IsDate(Format(ActiveCell, "dd-mm-yy")) Then .Value = ActiveCell
End With
Else
Calendar1.Visible = False
End If
End Sub


Un saludo.


Fernando Arroyo
MS MVP - Excel


"sofía" escribió en el mensaje news:122f01c42637$7fa7b2d0$
Hola Fernando

Muchisimás gracías por tu ayuda, y me funciona
correctamente, el tema de que aparezca y desaparezca el
calendario, ahora y si no es abusar de tus conocimientos,
me gustaría saber si lo puedo hacer con una serie de
celdas (o una sólo), Ejemplo que aparezca y desaparezca
si estoy introudciendo datos en las celdas A1, b54 y c45.

De antemano muchas gracias de nuevo

Recibe un cordial saludo

Sofía