Created automatically sequence numbers
 

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

Created automatically sequence numbers
 

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

Created automatically sequence numbers
 

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

Created automatically sequence numbers
 

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

Created automatically sequence numbers
 

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
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

Created automatically sequence numbers
 

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
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

Created automatically sequence numbers
 

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

Created automatically sequence numbers
 

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
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