Inserting time via DTpicker but per 15 min i/o per min

Thread view:

Enable EMail Alerts

Start New Thread

Thread rating:

RMF - 22 Mar 2006 22:56 GMT

Dear users,

I have made a userform with a DTpicker that I use to insert time into a
cell. If I run the macro and open the userform I can enter the time but
besides hours I have to scroll through the minutes to set the time on hh:15,
hh:30, hh:45 and hh:59. I only need to use these 4 options. I dont have to be
able to select hh:34 or hh:07. I just need 15 min. intervals.

Any ideas on how to do this? I am not such a code expert, so all help is
appreciated!

R

Reply to this Message

Doug Glancy - 23 Mar 2006 00:47 GMT

RMF,

I can't figure how to make DTPicker work that way. Instead you could try
creating a listbox and inserting this code in your form:

Private Sub UserForm_Initialize()
Dim i As Long
For i = 0 To 1439
Me.ListBox1.AddItem (Format(i * 15 / 1440, "HH:MM AM/PM"))
Next i
End Sub

Private Sub CommandButton1_Click()
ActiveSheet.Range("A1") = Format(CDate(Me.ListBox1), "HH:MM AM/PM")
End Sub

hth

Doug

> Dear users,
>
[quoted text clipped - 8 lines]
>
> R

Reply to this Message