Text to Columns (60 columns)

[luckycharm1668]

Hi, I am trying to text to column 60 columns, sometimes more. Could someone please help? Is there a code that I can write? I tried to record, but it's not working correctly. I also need to Unprotect the sheet and workbook, and insert 4 lines. Your assistance will be greatly appreciated.

Thank you.

 

[erik.van.geit]

try the code on each single column
there should at least work something!?

if it works for me ...

 

[luckycharm1668]

Hi Erik, I deepy appreciate your great help on the VBA code that you created for me. But for some reason, I am getting stuck and have to debug at the line arr(r, 1) = --arr(r, 1). And if I enable the 'On Error Resume Next, seems like the code doesn't do anything.
Since I'm such a newbie at this VBA stuff , I'll need to go through each line of the code by using F1 VBA help and see if I can understand what each line is doing. It's going to take me a bit of time to disect each line. I'll probably need to take a course the have better understanding of Excel VBA.

Thanks again for all your assistance.
Wishing you a wonderful weekend.

 

[erik.van.geit]

you should really take more care of being clear
you have sent me a file, but what code are you runnning on it?
did you take my advice and run some code on a single column?

how can we check errors if we do not know what you used and what data you are running the code on?

So please display your code & one column of data.
have a nice weekend,
Erik

 

[erik.van.geit]

you have sent me another file

I see the code is still

'EDIT
'put all columns in the array
ColArr = Array(2, 4, 7)
FormatArr = Array("General", "0.00", "0.00%")
'define first row
Const FR = 2
'END EDIT

I told you at least once that you need to update the code

in this case the code will replace columns 2, 4 and 7
the format will be general for the 2nd, etcetera

what is the first row, not 2 I guess!