Insertar Calendario en Excel – DatePicker Complemento

Una de las herramientas mas útiles es usar un date picker
para insertar en Excel; sirve por ejemplo colocar comentarios
en cada fecha.

Aquí; uno desarrollado por un tercero

[Descargar Complemento]

ESTA ES LA MACRO PARA LLAMAR EL CONTROL

Sub CallDatePickerFromOtherWorkbooks()
Dim TestWkbk As Workbook
Dim obj As Object

If Val(Application.Version) >= 12 Then
Set TestWkbk = Nothing
On Error Resume Next
Set TestWkbk = Workbooks(“WinDatePicker.xlam”)
On Error GoTo 0
If TestWkbk Is Nothing Then
MsgBox “Sorry the Date Picker add-in is not open.”
Else
Application.Run “‘” & TestWkbk.Name & “‘!OpenDatePicker”, obj
End If
End If
End Sub

Nota: Debe estar abierto el complemento

Deja un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *