Date picker Add

[don42]

Hallo specialisten,

Ik ben hier op het forum getipt om de date picker te gebruiken in mijn excel sheets
Na wat testen ben ik van mening dat deze add voldoet aan mijn wensen
Echter ik zou het graag zien dat de kalender geactiveerd werd door DUBBEL KLIK kan iemand daar mee helpen?

Met onderstaande code lukt het natuurlijk wel via een button

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

    If Val(Application.Version) = 15 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
    Else
        Set TestWkbk = Nothing
        On Error Resume Next
        Set TestWkbk = Workbooks("WinDatePicker.xla")
        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"
        End If
    End If
End Sub

Bvd
Don

 

[VenA]

http://www.helpmij.nl/forum/showthread.php/818805-kalender

 

[Roncancio]

Buttons van ActiveX hebben de dubbelklik event.
Maw deze kunnen code uitvoeren als men dubbelklikt op de betreffende knop.

Private Sub CommandButton1_DblClick(ByVal Cancel As MSForms.ReturnBoolean)
'je code
End Sub

Met vriendelijke groet,


Roncancio