virtualmaniac
New Member
- Joined
- Jun 11, 2015
- Messages
- 2
Hey ladies and gents,
Completely forgot all of my old profile details and no longer have access to my old email so have had to create a new account so I'm not a complete newbie here.
Anyway, I've been creating a system to import dates from an external program. The program exports the dates that are not immediately readable by Excel. I have got the macro to complete the Text to Column function one column at a time (as I know it needs to be completed one column at a time) and I need this to repeat 16 times.
However due to my client's errors occasionally not every column has a date in. When this is the case I need the macro to essentially say, on error, resume to next column, but I cannot get this to work. Any help would be appreciated.
Thank you!
Completely forgot all of my old profile details and no longer have access to my old email so have had to create a new account so I'm not a complete newbie here.
Anyway, I've been creating a system to import dates from an external program. The program exports the dates that are not immediately readable by Excel. I have got the macro to complete the Text to Column function one column at a time (as I know it needs to be completed one column at a time) and I need this to repeat 16 times.
However due to my client's errors occasionally not every column has a date in. When this is the case I need the macro to essentially say, on error, resume to next column, but I cannot get this to work. Any help would be appreciated.
Code:
Sub Data_Fix()
Selection.TextToColumns Destination:=Range("E5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
4), TrailingMinusNumbers:=True
Selection.TextToColumns Destination:=Range("F5"), DataType:=xlDelimited, _
TextQualifier:=xlNone, ConsecutiveDelimiter:=False, Tab:=True, Semicolon _
:=False, Comma:=False, Space:=False, Other:=False, FieldInfo:=Array(1, _
4), TrailingMinusNumbers:=True
End Sub
Thank you!
Last edited: