text to columns

G

Gabriel

Hi,

I want to write a vba macro that formats all the UsedColumns in an
activesheet. The output will be two columns for each initial
UsedColumn. There is an empty column between each initial UsedColumn.


###
For Each usedrange In ActiveSheet

UsedRange.TextToColumns Destination:=???,
DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=False,
Tab:=False, Semicolon:=False, Comma:=False, Space:=False,
Other:=True, OtherChar :="=", FieldInfo:=Array(Array(1, 1), Array(2,
1)), TrailingMinusNumbers:=True
'1st Columns("???).EntireColumn.AutoFit
'2nd Columns("???").EntireColumn.AutoFit
'2nd Columns("???").NumberFormat = "#,##0.00"
Next usedrange

###

Are there any suggestions?
Thank you - Gabriel
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Similar Threads

sub TextToColumns 1
macro error when formatting columns 6
Open Text Method Fails 7
Text To Columns On A Different Sheet 12
Date Format 4
Copy part of text file 4
Forcing xl2K7 Column Count back to xl2K3 size 3
Text to Columns formatting 4

Top