Macro for Text to Columns over a set range

[virtualmaniac]

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.

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!

 

[Joe4]

Maybe try putting:

On Error Resume Next

at the beginning of your code and then

On Error Goto 0

at the end of it.

 

[virtualmaniac]

Thanks Joe, I was close!