Inserting time via DTpicker but per 15 min i/o per min
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" wrote in message
...
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
|