Need Simple Macro

I need a macro to examine column A for alpha-numeric value, leave the data in column A as is, and copy the numeric data into column B.

The data is in only 1 of 2 formats:


xxxxx1234567
xxx1234567


Thanks in advance.


--Joe

No macro needed......In B1 put this formula and copy down..........

=RIGHT(a1,7)

Vaya con Dios,
Chuck, CABGx3



"jreinert" wrote:

>
> I need a macro to examine column A for alpha-numeric value, leave the
> data in column A as is, and copy the numeric data into column B.
>
> The data is in only 1 of 2 formats:
>
>
> xxxxx1234567
> xxx1234567
>
>
> Thanks in advance.
>
>
> --Joe
>
>
> --
> jreinert
> ------------------------------------------------------------------------
> jreinert's Profile: http://www.excelforum.com/member.php...o&userid=35448
> View this thread: http://www.excelforum.com/showthread...hreadid=552248
>
>

In C1 add

=MID(A1,MIN(SEARCH({0,1,2,3,4,5,6,7,8,9},A1&"0123456789")),99)

In B1,

=SUBSTITUTE(A1,C1,"")

--

HTH

Bob Phillips

(replace xxxx in the email address with gmail if mailing direct)

"jreinert" <[email protected]> wrote in
message news:[email protected]...
>
> I need a macro to examine column A for alpha-numeric value, leave the
> data in column A as is, and copy the numeric data into column B.
>
> The data is in only 1 of 2 formats:
>
>
> xxxxx1234567
> xxx1234567
>
>
> Thanks in advance.
>
>
> --Joe
>
>
> --
> jreinert
> ------------------------------------------------------------------------
> jreinert's Profile:
http://www.excelforum.com/member.php...o&userid=35448
> View this thread: http://www.excelforum.com/showthread...hreadid=552248
>