Time AND Date picker on any cell

[mfong]

Hello,

Thank you for taking my question.

I've been looking on Google and on YouTube for a solution where it would allow the user to click on any cell to either pop up a calendar or a time picker. I have the calendar picker down, but not the time.

I followed this tutorial I found on YouTube for the date picker. Below, you will find what I copied and pasted from the video. I just set the cell to the special format and a calendar pops up.

Is there a way where I can have the user click on a cell and a time picker pops up? Or even both a date and time picker?

We keep logs at work and I wanted to help the user by helping them with stuff like this so they don't need to enter anything in. Just a popup and some mouse clicks.

Option ExplicitPrivate Sub Worksheet_SelectionChange(ByVal Target As Range)
'check cells for desired format to trigger the calendarfrm.show routine
'otherwise exit the sub
Dim DateFormats, DF
DateFormats = Array("m/d/yy;@", "mm/dd/yyyy")
For Each DF In DateFormats
If DF = Target.NumberFormat Then
If CalendarFrm.HelpLabel.Caption <> "" Then
CalendarFrm.Height = 191 + CalendarFrm.HelpLabel.Height
Else: CalendarFrm.Height = 191
CalendarFrm.Show
End If
End If
Next


End Sub

Thank you for your help.