Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
Solved

Posted on 2011-09-14
Medium Priority
306 Views
Hi Experts,

I need Expert help. How add-in automatically data at Column A with “:” and “.” E.g 06451800 become 06:45:18.00. Hope Experts could help.

Time.xls
0
Question by:Cartillo
[X]
###### Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

• Help others & share knowledge
• Earn cash & points
• 3
• 3
• 3
• +1

LVL 17

Expert Comment

ID: 36534608
Do you want the result to be a real Excel time value, or just a string with the : and . added?
0

LVL 17

Expert Comment

ID: 36534848
If so, this formula in Column B will do it:

=TIME(MID(A4,LEN(A4)-7,2),MID(A4,LEN(A4)-5,2),MID(A4,LEN(A4)-3,4)/100)

It does not work with your first value, which you have converted to a number.
0

LVL 8

Assisted Solution

wchh earned 200 total points
ID: 36534891
Try the formula below:
=LEFT(A2,2) &":"&MID(A2,3,2)&":"&MID(A2,5,2)&"."&MID(A2,7,2)
0

LVL 8

Expert Comment

ID: 36534910
Or for A2, length = 7,
=IF(LEN(A2)=8,LEFT(A2,2) &":"&MID(A2,3,2)&":"&MID(A2,5,2)&"."&MID(A2,7,2),"0" &LEFT(A2,1) &":"&MID(A2,2,2)&":"&MID(A2,4,2)&"."&MID(A2,6,2))
0

Author Comment

ID: 36535008
Hi,

Is that possible to create a conditional formatting at column A?
0

LVL 50

Assisted Solution

barry houdini earned 400 total points
ID: 36535016
Thuis formula in B2 should do what you need

=TEXT(A2,"00\:00\:00\.00")+0

format B2 as hh:mm:ss.00 and copy down - see attached

What do you need conditional formatting to do?

regards, barry
Time-barry.xls
0

LVL 50

Assisted Solution

barry houdini earned 400 total points
ID: 36535040
....if you mean you want to input data as shown and for it to automatically convert to a time value - that isn't possible without VBA......unless you "cheat" and use a custom format like this

00":"00":"00"."00

With that if you enter 1234123 then that will display as

01:23:41:23

....but it won't be a valid time value that you can use in calculations

regards, barry
0

Author Comment

ID: 36535084

Hi Barry,

Sorry to complicate the whole think. Can you help to put this via VBA? When I import the actual data this column will be automatically added with “:” and ‘:”. Hope you will consider this.
0

LVL 50

Expert Comment

ID: 36535227
VBA isn't my area of expertise - I'll see if anybody else can help you out......

barry
0

LVL 17

Accepted Solution

andrewssd3 earned 1400 total points
ID: 36535317
For VBA, try this:

Public Sub FixTimes()

Dim c As Excel.Range
Dim rngLook As Excel.Range
Dim strTime As String

' get the used part of column A, excluding the first row
Set rngLook = Application.Intersect(Range("A:A"), ActiveSheet.UsedRange)
Set rngLook = rngLook.Offset(1, 0).Resize(rngLook.Rows.Count - 1, 1)

For Each c In rngLook.Cells
strTime = c.Value2
strTime = String(8 - Len(strTime), "0") & strTime
' only do eight character fields
strTime = Mid(strTime, 1, 2) & ":" & _
Mid(strTime, 3, 2) & ":" & _
Mid(strTime, 5, 2) & "." & _
Mid(strTime, 7, 2)
c.Value2 = strTime
Next c
rngLook.NumberFormat = "hh:mm:ss.00"

End Sub
0

Author Closing Comment

ID: 36536304
Hi andrewssd3,

Cool! thanks a lot for the help.
0

## Featured Post

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

A little background as to how I came to I design this code: Around 5 years ago I designed an add-in that formatted Excel files to a corporate standard, applying different cell colours and font type depending on whether the cells contained inputs,…
Some code to ensure data integrity when using macros within Excel. Also included code that helps secure your data within an Excel workbook.
This Micro Tutorial demonstrate the bugs in Microsoft Excel for Mac with Pivot Charts.
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
###### Suggested Courses
Course of the Month10 days, 5 hours left to enroll