Mostrar Control de Calendario Al Elegir Una Celda en Excel
Mostrar Control de Calendario Al Elegir Una Celda en Excel
Mostrar Control de Calendario Al Elegir Una Celda en Excel
End Sub
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'Si la celda elegida es B2, se muestra el Picker
If Not Intersect(Target, Range("B2")) Is Nothing Then
With DTPicker1
.Visible = True
.Top = 15.75
.Left = 86.25
.Width = 145
.Height = 17.25
End With
'En todo caso se oculta
Else
DTPicker1.Visible = False
End If
End Sub