Text-to-Columns in Macro

[andrew75]

Hi everyone,

I'm trying to convert some data in a column (eg 05/23/2011 US Date format) into 23/05/2011 AU format. I'm using the text to column function in excel 2010.

Whilst recording the macro, it converts everything perfectly, including the date requirement.

However, when I run the macro on a fresh set of text, it converts the text to columns, but some - not all. Please see below:

Why does the text to column conversion work when done manually but won't work as a macro?

 

[texasalynn]

post the code you have for this

 

[andrew75]

Sorry I should have posted that, here is the macro that I recorded:

*************************************
Sub Date_Convert()
'
' Date_Convert Macro
'

'
Columns("F:F").Select
Selection.TextToColumns Destination:=Range("F1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True
Columns("G:G").Select
Selection.TextToColumns Destination:=Range("G1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 3), TrailingMinusNumbers:=True
Columns("H:H").Select
ActiveWorkbook.Worksheets("SHEET1").Sort.SortFields.Clear
ActiveWorkbook.Worksheets("SHEET1").Sort.SortFields.Add Key:=Range( _
"H2:H35902"), SortOn:=xlSortOnValues, Order:=xlAscending, DataOption:= _
xlSortNormal
With ActiveWorkbook.Worksheets("SHEET1").Sort
.SetRange Range("A1:H35902")
.Header = xlYes
.MatchCase = False
.Orientation = xlTopToBottom
.SortMethod = xlPinYin
.Apply
End With
Range("E4").Select
End Sub
*************************************

Regards ... Andrew