How do I shorten a 17 digit field to a 6 digit field?
 

I am using Microsoft Exce 2002. I am trying to shorten a few hundred 17
digit alphanumeric fields to just the last 6 digits of the 17 digit fields.
Any ideas would be helpful.

How do I shorten a 17 digit field to a 6 digit field?
 

One approach can be with the worksheet formula RIGHT. If you have you data
in column A, something like this in column B will do what you want:
=RIGHT(A1,6)

Hope this helps,
Miguel.

"Paul Bass" wrote:

I am using Microsoft Exce 2002. I am trying to shorten a few hundred 17
digit alphanumeric fields to just the last 6 digits of the 17 digit fields.
Any ideas would be helpful.

How do I shorten a 17 digit field to a 6 digit field?
 

Sub shorten()
For i = 1 To Cells(Rows.Count, "e").End(xlUp).Row
Cells(i, "e").Value = Right(Cells(i, "e"), 6)
Next i
End Sub

--
Don Guillett
SalesAid Software

"Paul Bass" <Paul wrote in message
...
I am using Microsoft Exce 2002. I am trying to shorten a few hundred 17
digit alphanumeric fields to just the last 6 digits of the 17 digit
fields.
Any ideas would be helpful.