something like
for i = 2 to cells(rows.count,"L").end(xlup).row
cells(i,"o").value= "200" & left(cells(i,"L")
cells(i,"m").value=mid(cells(i,"l"),2,2)
'etc
next i

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"Studebaker" wrote in message
...
I just got news that I need to add more info to a huge spreadsheet and I
really need a macro to do this for me to save time.

I have invoice #s in column L that are formatted like this:
701025467 means that
7 = 2007
01 = 1st month (January)
02 = 2nd period of January (16th thru the 31st)

612017766 means that
6 - 2006
12 - 12th month (December)
01 - 1st period of December (1st thru the 15th)

I need a visual basic code that will identify:

1) if the invoice # in column L starts with a '7' then the year "2007"
needs
to be added to the same row in column O. If starts with a '6' then the
year
"2006" needs to be added to the same row in column O.

2) if the invoice #'s next 2 #s in column L are '01' then the month "01"
needs to be added to the same row in the column M. If the next 2 #s are
'02'
instead then the month "02" needs to added to the same row in the column
M,
etc., etc. up to '12' for the 12th month.

3) if the invoice #'s 4th and 5th #s in column L are '02' then the period
"2nd" needs to added to the same row in the column N. Ff the invoice #'s
4th
and 5th #s in column L are '01' instead then the period "1st" needs to
added
to the same row in the column N.

Thank you very much!