VBA convert d.hh:mm:ss to hh:mm:ss

[adryy_yy]

Hello,

I'm new here and I need your help because I understand something Excel but VBA I don't understand anything.
So, if you can help me I say thanks so much.

And then, I have a sheet Excel with values in next format: "dd.hh:mm:ss". I would need to convert to "hh:mm:ss", but on VBA. Could you help me?

Thanks

 

[FormR]

These code is just applicable to d.hh:mm:ss but in column there are d.hh:mm:ss and hh:mm:ss and I need apply in all cells of the column.

Try this addition to also convert those time values without a day element to Excel times.

Sub MyReplace()
With Sheets("Sheet1").Range("D2:D629")
  .Replace What:=".", Replacement:="Jan 1900 ", LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
  .TextToColumns DataType:=xlDelimited, TextQualifier:=xlNone, FieldInfo:=Array(1, 1)
  .NumberFormat = "[hh]:mm:ss"
End With
End Sub

 

[adryy_yy]

Try this addition to also convert those time values without a day element to Excel times.

Sub MyReplace()
With Sheets("Sheet1").Range("D2:D629")
  .Replace What:=".", Replacement:="Jan 1900 ", LookAt:=xlPart, SearchFormat:=False, ReplaceFormat:=False
  .TextToColumns DataType:=xlDelimited, TextQualifier:=xlNone, FieldInfo:=Array(1, 1)
  .NumberFormat = "[hh]:mm:ss"
End With
End Sub

Perfect FormR... :D

hhhhmmmmm... I guess I say you "hello" again... :D