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

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

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
 
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
 
Back
Top