cooper645
Well-known Member
- Joined
- Nov 16, 2013
- Messages
- 639
- Office Version
- 365
- Platform
- Windows
- MacOS
- Mobile
- Web
Hello again,
im working on a much larger macro, which runs into problems when it hits my latest bit of code.
I am am trying to delimit columns from Column G to LastColumn.
The target range of data to delimit is in Row 6 down to LastRow.
i already have the LastRow and LastCol calculated. I have tried many different approaches for this to work and all seem to fail.
Any help is appreciated.
im working on a much larger macro, which runs into problems when it hits my latest bit of code.
I am am trying to delimit columns from Column G to LastColumn.
The target range of data to delimit is in Row 6 down to LastRow.
i already have the LastRow and LastCol calculated. I have tried many different approaches for this to work and all seem to fail.
Any help is appreciated.
Code:
For i = 7 To LastCol
Columns(i).Select
[COLOR=#0000ff]Selection.TextToColumns , Destination:=[/COLOR][COLOR=#ff0000]Cells(6, i)[/COLOR][COLOR=#0000ff], DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False, Tab:=False, _
Semicolon:=False, Comma:=False, Space:=False, Other:=False, FieldInfo _
:=Array(1, 1), TrailingMinusNumbers:=True[/COLOR]
i = i + 1
Next
Last edited: