Creating a Sequential No

[Eurekaonide]

Hi

I have a form which a user can complete for a new item and then what the user puts in the text boxes gets relayed back into the correct cells of a hidden worksheet.

What I would like is that one of the columns AI creates a sequential number each time a new entry is created in the same row as the new entry, e.g. row 5 column AI I would read 100 and row 6 column AI would then read 101 etc etc. How do i get my code to basically look up one row see what the last number entered was and enter the next number in sequence in the new row?

I have some code which determines what the next row is as;

NextRow = Application.WorksheetFunction. _
        CountA(Range("E:E")) + 1

and I ahve been using code as per below to determine what the next row is in order to populate the data from the user form into the correct cell as;

Cells(NextRow, 6) = ComboBox5.Value

 

[JamesW]

Hi,

Try:

Cells(NextRow, 35).Value = Cells(NextRow-1,35).Value + 1

 

[Eurekaonide]

Brilliant You Guru's are fabulous