Macro Needed to Manipulate Numbers

[mkuethe]

I've been struggling with this for a while and desperately need someone's help. I need a macro that will take a 13 digit number, add a zero at the front, change the place of the 9th and 10th digit and then add two more zeros at the end.

For instance:

Take 08347004003486 in Column A and change it to 00834700434008600 in Column B.

Steps:

Add a zero at the front: 008347004003486.

Move the 9th and 10th digits in Column A to the 12th and 13th spots in Column B: 08347004003486 becomes 008347004340086.

Add two zeros at the end: 00834700430048600.

Finally, move to the next row (A2) and repeat these steps - so on an so forth until the end of the numbers in Column A.
________________

If anyone can help me with this, it would be greatly appreciated!!!

 

[PHV]

What have you tried so far and where in your code are you stuck ?
Hint: take a look in the VBA help to the Mid function.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[mkuethe]

Thanks for attempting to help, but I have it figured out...

="0"&LEFT("0"&TEXT(A1,0),8)&MID("0"&A1,11,2)&MID("0"&A1,9,2)&RIGHT("0"&TEXT(A1,0),2)&"00

 

[SkipVought]

"but I have it figured out"

Really? Another Tek-Tips member figured it out for you in Forum68.

Skip,

_{Just traded in my old subtlety...
for a NUANCE!}