Number to Time

  • Thread starter Thread starter hyyfte
  • Start date Start date
H

hyyfte

Here's what I have:


Code
-------------------
tih = Selection
ActiveCell.Offset(0, 1).Select
tih2 = Selection
ActiveCell.Offset(0, 2).Select
tim = Selection
ActiveCell.Offset(0, 1).Select
tim2 = Selection
TimeIn = tih & tih2 & tim & tim
-------------------



TimeIn = "0745"

How do I make the expression TimeIn have a value of 7:45 instead o
745
 
Try:


Code
-------------------
tih = Selection
ActiveCell.Offset(0, 1).Select
tih2 = Selection
ActiveCell.Offset(0, 2).Select
tim = Selection
ActiveCell.Offset(0, 1).Select
tim2 = Selection
TimeIn = TimeSerial(tih & tih2, tim & tim2, 0
 
With Selection
TimeIn = TimeSerial(.value& .Offset(0,1).value, .Offset(0,3).value&
..Offset(0,4).value, 0)
End With
 
You must log in or register to reply here.

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

Can Vba workout if a selection is part of a group? 0
Run-time error 1004 paste method of worksheet class failed 3
Runtime error 91: Object variable or With block variable not set 8
My macro doesn't work if sheet is protected but it works if not protected 2
Help me4 2
ActiveCell.Offset(i, 0) = Chr(ActiveCell.Row + 62) returns all A's 4
Entering data from a userform into multiple sheets 2
Data samples 3

Back
Top