Do you mean they want 15:21 to show as 15:00, and say 15:49 also to show as
15:00? If so, use a custom format of

hh":00"

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in message
...
I had been trying variations of that before and I couldn't get it to work.
I
could only get the hh like you suggested. This is for trading and they
need
to have hh:00. If I were the user I would just type in the correct
date...buy my boss wants it dummy proof. Any ideas???

"Bob Phillips" wrote:

Format the cell as just hh (FormatCellsCustom), rather than the hh:mm
it
is defaulting to.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in message
...
I've got one more question for you. If the user types in the time to
be
for
instance 15:21....how do I make it so the minutes don't show up?

"Bob Phillips" wrote:

No problem. Just fire with next question when you are ready.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in message
...
Thanks. Works great. I'm just learning this so bare with me.

"Bob Phillips" wrote:

Something like

With rng.Offset(0, 1)
.Value = InputBox("Enter start time 24-hour clock")
.Value = .Value + TimeSerail(1,0,0)
.Font.Bold = True
End With

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in message
...
how does that fit into the code? I keep getting errors.

"Bob Phillips" wrote:

add (1/24) or timeserial(1,0,0)



--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"srroduin" wrote in
message
...
How do I add an hour to what the user types into the input
box
of
the
("Enter
start time 24-hour clock")?

Private Sub Hourly_Click()
Dim rng As Range

Set rng = ActiveSheet.Cells(Rows.count,
"A").End(xlUp).Offset(1,
0)
rng.Value = InputBox("Enter start date mm/dd/yyyy")
rng.Offset(0, 1).Value = InputBox("Enter start time
24-hour
clock")
rng.Offset(0, 1).Font.Bold = True
rng.Offset(0, 2).Value = InputBox("Enter stop date
mm/dd/yyyy")
rng.Offset(0, 3).Value = InputBox("Enter stop time
24-hour
clock")
rng.Offset(0, 4).Value = InputBox("Enter TSN to
increase")
rng.Offset(0, 5).Value = InputBox("Enter TSN to
decrease")
rng.Offset(0, 6).Value = InputBox("Enter MW Amount")
Set rng = Nothing


End Sub