How can I create an automatically sequernce numbers?.
The program I have create an automatically database from the column "B" to
column "N". However, everytime I have the data written I have to type the
serial number on the correspond column "A". I wonder if I can add a statement
to write automatically the serial number in the column "A". This number will
start from 7047.001 so next one will be 7048.001, 7049.001 and so on.

Thanks in advance.
Maperalia

This page is considered to be the best on the subject
http://www.mcgimpsey.com/excel/udfs/sequentialnums.html

Mike

"maperalia" wrote:

> How can I create an automatically sequernce numbers?.
> The program I have create an automatically database from the column "B" to
> column "N". However, everytime I have the data written I have to type the
> serial number on the correspond column "A". I wonder if I can add a statement
> to write automatically the serial number in the column "A". This number will
> start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
>
> Thanks in advance.
> Maperalia

Sub AddNumbers()
Dim i as Long, j as long
i = 2
j = 7047
do while cells(i,2) <> ""
cells(i,1) = j + .001
j = j + 1
i = i + 1
Loop
End Sub

--
Regards,
Tom Ogilvy


"maperalia" wrote:

> How can I create an automatically sequernce numbers?.
> The program I have create an automatically database from the column "B" to
> column "N". However, everytime I have the data written I have to type the
> serial number on the correspond column "A". I wonder if I can add a statement
> to write automatically the serial number in the column "A". This number will
> start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
>
> Thanks in advance.
> Maperalia

Tom;
Thnaks for your quick response.
I typed the 7047.001 in the cell "A1" and run the macro and it is doing
nothing. Do I missing something?

Maperalia

"Tom Ogilvy" wrote:

> Sub AddNumbers()
> Dim i as Long, j as long
> i = 2
> j = 7047
> do while cells(i,2) <> ""
> cells(i,1) = j + .001
> j = j + 1
> i = i + 1
> Loop
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "maperalia" wrote:
>
> > How can I create an automatically sequernce numbers?.
> > The program I have create an automatically database from the column "B" to
> > column "N". However, everytime I have the data written I have to type the
> > serial number on the correspond column "A". I wonder if I can add a statement
> > to write automatically the serial number in the column "A". This number will
> > start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
> >
> > Thanks in advance.
> > Maperalia

Tom explained in an earlier post that i = 2 means A2

If you want A1 to be included change the 2 to 1


Gord Dibben MS Excel MVP

On Thu, 14 Jun 2007 14:15:00 -0700, maperalia
<(E-Mail Removed)> wrote:

>Tom;
>Thnaks for your quick response.
>I typed the 7047.001 in the cell "A1" and run the macro and it is doing
>nothing. Do I missing something?
>
>Maperalia
>
>"Tom Ogilvy" wrote:
>
>> Sub AddNumbers()
>> Dim i as Long, j as long
>> i = 2
>> j = 7047
>> do while cells(i,2) <> ""
>> cells(i,1) = j + .001
>> j = j + 1
>> i = i + 1
>> Loop
>> End Sub
>>
>> --
>> Regards,
>> Tom Ogilvy
>>
>>
>> "maperalia" wrote:
>>
>> > How can I create an automatically sequernce numbers?.
>> > The program I have create an automatically database from the column "B" to
>> > column "N". However, everytime I have the data written I have to type the
>> > serial number on the correspond column "A". I wonder if I can add a statement
>> > to write automatically the serial number in the column "A". This number will
>> > start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
>> >
>> > Thanks in advance.
>> > Maperalia

In addition, you don't have to type any number in column A

The line j = 7047 takes care of that.

But you do need data in column B


Gord

On Thu, 14 Jun 2007 14:43:58 -0700, Gord Dibben <gorddibbATshawDOTca> wrote:

>Tom explained in an earlier post that i = 2 means A2
>
>If you want A1 to be included change the 2 to 1
>
>
>Gord Dibben MS Excel MVP
>
>On Thu, 14 Jun 2007 14:15:00 -0700, maperalia
><(E-Mail Removed)> wrote:
>
>>Tom;
>>Thnaks for your quick response.
>>I typed the 7047.001 in the cell "A1" and run the macro and it is doing
>>nothing. Do I missing something?
>>
>>Maperalia
>>
>>"Tom Ogilvy" wrote:
>>
>>> Sub AddNumbers()
>>> Dim i as Long, j as long
>>> i = 2
>>> j = 7047
>>> do while cells(i,2) <> ""
>>> cells(i,1) = j + .001
>>> j = j + 1
>>> i = i + 1
>>> Loop
>>> End Sub
>>>
>>> --
>>> Regards,
>>> Tom Ogilvy
>>>
>>>
>>> "maperalia" wrote:
>>>
>>> > How can I create an automatically sequernce numbers?.
>>> > The program I have create an automatically database from the column "B" to
>>> > column "N". However, everytime I have the data written I have to type the
>>> > serial number on the correspond column "A". I wonder if I can add a statement
>>> > to write automatically the serial number in the column "A". This number will
>>> > start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
>>> >
>>> > Thanks in advance.
>>> > Maperalia

Tom;
Thanks very much. It is working PERFECTLY!!!

"Tom Ogilvy" wrote:

> Sub AddNumbers()
> Dim i as Long, j as long
> i = 2
> j = 7047
> do while cells(i,2) <> ""
> cells(i,1) = j + .001
> j = j + 1
> i = i + 1
> Loop
> End Sub
>
> --
> Regards,
> Tom Ogilvy
>
>
> "maperalia" wrote:
>
> > How can I create an automatically sequernce numbers?.
> > The program I have create an automatically database from the column "B" to
> > column "N". However, everytime I have the data written I have to type the
> > serial number on the correspond column "A". I wonder if I can add a statement
> > to write automatically the serial number in the column "A". This number will
> > start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
> >
> > Thanks in advance.
> > Maperalia

Gord;
Thanks very much. It is working PERFECTLY!!!

Maperalia



"Gord Dibben" wrote:

> In addition, you don't have to type any number in column A
>
> The line j = 7047 takes care of that.
>
> But you do need data in column B
>
>
> Gord
>
> On Thu, 14 Jun 2007 14:43:58 -0700, Gord Dibben <gorddibbATshawDOTca> wrote:
>
> >Tom explained in an earlier post that i = 2 means A2
> >
> >If you want A1 to be included change the 2 to 1
> >
> >
> >Gord Dibben MS Excel MVP
> >
> >On Thu, 14 Jun 2007 14:15:00 -0700, maperalia
> ><(E-Mail Removed)> wrote:
> >
> >>Tom;
> >>Thnaks for your quick response.
> >>I typed the 7047.001 in the cell "A1" and run the macro and it is doing
> >>nothing. Do I missing something?
> >>
> >>Maperalia
> >>
> >>"Tom Ogilvy" wrote:
> >>
> >>> Sub AddNumbers()
> >>> Dim i as Long, j as long
> >>> i = 2
> >>> j = 7047
> >>> do while cells(i,2) <> ""
> >>> cells(i,1) = j + .001
> >>> j = j + 1
> >>> i = i + 1
> >>> Loop
> >>> End Sub
> >>>
> >>> --
> >>> Regards,
> >>> Tom Ogilvy
> >>>
> >>>
> >>> "maperalia" wrote:
> >>>
> >>> > How can I create an automatically sequernce numbers?.
> >>> > The program I have create an automatically database from the column "B" to
> >>> > column "N". However, everytime I have the data written I have to type the
> >>> > serial number on the correspond column "A". I wonder if I can add a statement
> >>> > to write automatically the serial number in the column "A". This number will
> >>> > start from 7047.001 so next one will be 7048.001, 7049.001 and so on.
> >>> >
> >>> > Thanks in advance.
> >>> > Maperalia
>
>