Excel Forum

Code: Select all

Sub ShowDatePickerForm()
    dp_core.gridDP_Click
        With datepickerform
            .StartUpPosition = 0
            .Left = Application.Left + (0.1 * Application.Width) - (0.1 * .Width)
            .Top = Application.Top + (0.68 * Application.Height) - (0.68 * .Height)
            .Show
        End With
End Sub

Code: Select all

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Range("G4"), Target) Is Nothing Then
    datepickerform.Show
        With datepickerform
            .StartUpPosition = 0
            .Left = Application.Left + (0.1 * Application.Width) - (0.1 * .Width)
            .Top = Application.Top + (0.68 * Application.Height) - (0.68 * .Height)
            .Show
    End With
  End If
End Sub