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

[RMF]

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

[Doug Glancy]

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

"RMF" <RMF@discussions.microsoft.com> wrote in message
news:043B62B7-8F27-4927-94A8-72159043AD3F@microsoft.com...
> 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