VBA Text to column code clean up

[Donai]

Hi, could someone please help me clean this code up, i am using delimiter to change Date Text to number

Sub Macro1()
'
' Macro1 Macro
'

'
    Range("G6").Select
    Range(Selection, Selection.End(xlDown)).Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("G6"), DataType:=xlDelimited, _
        TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
        Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
        :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

 

[VoG]

Hi. I don't think it can be cleaned up much beyond

Sub Macro1()
'
' Macro1 Macro
'

'
Dim LR As Long
LR = Range("G" & Rows.Count).End(xlUp).Row
Range("G6:G" & LR).TextToColumns Destination:=Range("G6"), DataType:=xlDelimited, _
    TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=True, _
    Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
    :=Array(1, 1), TrailingMinusNumbers:=True
End Sub

 

[Donai]

Vog when i ran the code the highlighed dates moved to the left and the remaining to the right, does not look right?

Excel Workbook
	G
5	Start Date
6	29/04/2009
7	4/06/2009
8	9/08/2010
9	22/03/2011
10	22/03/2011
11	3/04/2011
12	7/07/2011
13	3/08/2011
14	3/08/2011
15	22/03/2011
Office_Address_List

 

[VoG]

Did your original code work as expected?

 

[Donai]

Did your original code work as expected?

Orignal code produced the same result, this was a recorded macro all i did was select the cells which house the dates and then did Text to columns-Delimiter, Enter, Enter, Finish, works when i do it manually, so why doesnt recorded macro not work?

 

[VoG]

Sorry, I don't know.

 

[Donai]

Sorry, I don't know.

Text to columns never works when i record macro and then playback

 

[GTO]

Vog when i ran the code the highlighed dates moved to the left and the remaining to the right, does not look right?

Hi Donai,

Could you show us the original data before its split? Does it come from a textfile or ???

Mark

 

[Donai]

Hi Donai,

Could you show us the original data before its split? Does it come from a textfile or ???

Mark

Hi Mark, this is the original data, this data came from MS Access

Excel Workbook
	G
5	Start Date
6	29/04/2009
7	06/04/2009
8	08/09/2010
9	22/03/2011
10	22/03/2011
11	04/03/2011
12	07/07/2011
13	08/03/2011
14	08/03/2011
15	22/03/2011
Office_Address_List

 

[VoG]

Why do you need to convert those? They look like UK-style dates (dd/mm/yyyy) to me.