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 *