Morning all,
I've got the below section of code which doesn't seem to want to convert the time element of column A into 24hr. The data is in original format dd/mm/yyyy hh:mm:ss. Every time after midday is being displayed in 12hr format i.e. 14:12 is shown as 02:12
(the deleting of rows and columns doesn't relate to the text to columns process but is included in the segment below)
With ActiveSheet
.Rows("1:5").delete Shift:=xlUp
.Range("F:F,N:N,O:O,P:P,S:S,U:U,V:V").delete Shift:=xlToLeft
.Columns("A").NumberFormat = "m/d/yyyy"
.Columns("B").Insert Shift:=xlToRight
.Columns("B").NumberFormat = "HH:mm:ss"
.Columns("A").TextToColumns Destination:=Range("A1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=True, Other:=False, FieldInfo _
:=Array(Array(1, 1), Array(2, 1), Array(3, 9)), TrailingMinusNumbers:=True
End With
I've got the third array segment to not display AM/PM in a third column.
EDIT: above code includes @PeterT suggestion of formatting newly inserted column B to HH:mm:ss - Unfortunately any time between 13:00:00 and 23:59:59 are still being converted to 01:00:00 and 11:59:59 , respectively.
EDIT: I've included better examples of what I'm struggling with.
This is how the workbook starts out:
And this is how the Text To Columns process in the VBA code changes the time format (it's showing as 01:17:52 when it should be 13:17:52):
I've had some really useful advice from members on another unrelated code question, I'm hoping for the same again :) I have searched and found similar questions but none resulted in the answer to fix this unfortunately.
A bit more "manual" but this worked fine for me: