Macro to append text to cell

**mcp21x** · 07-10-2009, 04:22 AM

Hi,

I am looking for a macro to convert a 6 digital serial number into an 8 digit serial number by adding "00" to the front. ie. The cell may say 123456, but I need to change it to display 00123456.

Is there a simple way to do this?

Thanks.

**Phil_V** · 07-10-2009, 04:31 AM

If you can place the value in the following column you can do the following:

6 digit number in cell A1

In cell B1 enter

Please Login or Register  to view this content.

You can then copy this down if needed

**DonkeyOte** · 07-10-2009, 05:09 AM

Would a Custom Format suffice ?

Highlight cells to which the 8 digit serial is to be applied and use a Format of : 00000000

The underlying value remains 6 digits but will "appear" and be printed as an 8 digit value (populated with appropriate number of leading zeroes).

**mcp21x** · 07-10-2009, 06:01 AM

Thanks for your help, but I need the value to be absolute and in the same column. Since posting, I have managed to come up with a solution. I've written it like this:

Please Login or Register  to view this content.

**mudraker** · 07-10-2009, 06:04 AM

mcp21x

Please take a couple of minutes and read ALL theForum Rules then wrap your VBA code (Rule 3)

**Phil_V** · 07-10-2009, 06:41 AM

Originally Posted by mcp21x

Thanks for your help, but I need the value to be absolute and in the same column. Since posting, I have managed to come up with a solution. I've written it like this:

Please Login or Register  to view this content.

Ok, didn't realise you were looking for a VBA solution and you wanted your value in the same column.

Your code could be condensed to this:

Please Login or Register  to view this content.

Do you require it to cycle through all the cells in column A or just apply it to your currently active cell?

**mcp21x** · 07-10-2009, 07:11 AM

Your method is much better. I've only been fiddling with VBA for a couple of days so still have a lot to learn.

This routine is a small component of a larger VBA script I am writing to convert an excel file generated from one program into another excel file with different format/column data requirements by another program. As a result I already have a loop procedure.

Thanks again for your assistance.