Identify Last Cell and autofill last column
 

Hi,
I have a spreadsheet for which I need to identify the last cell with data
[nos. or formula] and on the column to the right I need to autofill with row
nos. Row numbering should stop when the row with the last cell is reached. Eg
if data is to row 672 only then the row number should be "numbered" as 672.

Thanks,

Manir

Identify Last Cell and autofill last column
 

On Sep 21, 9:00 am, manfareed
wrote:
Hi,
I have a spreadsheet for which I need to identify the last cell with data
[nos. or formula] and on the column to the right I need to autofill with row
nos. Row numbering should stop when the row with the last cell is reached. Eg
if data is to row 672 only then the row number should be "numbered" as 672.

Thanks,

Manir

Hello Manir,

Not sure if this what you are looking. This code example finds the
last row in column "A" and then fills each cell in column "B" with the
row number.

Dim LastRow As Long
Dim R As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For R = 1 To LastRow
Cells(R, "B").Value = R
Next R

Sincerely,
Leith Ross

Identify Last Cell and autofill last column
 

Hi,

Thanks for your solution to my question.

What if you don't know what the last column is ?

Thanks,

Manir

"Leith Ross" wrote:

On Sep 21, 9:00 am, manfareed
wrote:
Hi,
I have a spreadsheet for which I need to identify the last cell with data
[nos. or formula] and on the column to the right I need to autofill with row
nos. Row numbering should stop when the row with the last cell is reached. Eg
if data is to row 672 only then the row number should be "numbered" as 672.

Thanks,

Manir

Hello Manir,

Not sure if this what you are looking. This code example finds the
last row in column "A" and then fills each cell in column "B" with the
row number.

Dim LastRow As Long
Dim R As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For R = 1 To LastRow
Cells(R, "B").Value = R
Next R

Sincerely,
Leith Ross

Identify Last Cell and autofill last column
 

Hello Leith,

Thanks for the code. It works !!!

What if I don't know what the last column is ? How would I amend your code ?

Thanks,

Manir

"Leith Ross" wrote:

On Sep 21, 9:00 am, manfareed
wrote:
Hi,
I have a spreadsheet for which I need to identify the last cell with data
[nos. or formula] and on the column to the right I need to autofill with row
nos. Row numbering should stop when the row with the last cell is reached. Eg
if data is to row 672 only then the row number should be "numbered" as 672.

Thanks,

Manir

Hello Manir,

Not sure if this what you are looking. This code example finds the
last row in column "A" and then fills each cell in column "B" with the
row number.

Dim LastRow As Long
Dim R As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For R = 1 To LastRow
Cells(R, "B").Value = R
Next R

Sincerely,
Leith Ross

Identify Last Cell and autofill last column
 

On Sep 23, 12:56 pm, manfareed
wrote:
Hello Leith,

Thanks for the code. It works !!!

What if I don't know what the last column is ? How would I amend your code ?

Thanks,

Manir



"Leith Ross" wrote:
On Sep 21, 9:00 am, manfareed
wrote:
Hi,
I have a spreadsheet for which I need to identify the last cell with data
[nos. or formula] and on the column to the right I need to autofill with row
nos. Row numbering should stop when the row with the last cell is reached. Eg
if data is to row 672 only then the row number should be "numbered" as 672.

Thanks,

Manir

Hello Manir,

Not sure if this what you are looking. This code example finds the
last row in column "A" and then fills each cell in column "B" with the
row number.

Dim LastRow As Long
Dim R As Long

LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For R = 1 To LastRow
Cells(R, "B").Value = R
Next R

Sincerely,
Leith Ross- Hide quoted text -

- Show quoted text -

On a similar note.
If I wanted to identify the last row and then add formulas in each of
some 32 fields/columns for the next 1 row would we do something
similar?

I have a Data sheet.
I have a Calc sheet that references the Data sheet using NamedRanges
which return the same row.
I'm trying to eliminate 1000's of If Then formulas that reference a
data sheet for it's calculations. The data sheet uses 32 RangeNamed
columns and holds client data as necessary. I currently copy such
formulas in the Calc sheet down 5,000 rows since I don't know how many
rows a client will use in the Data sheet. This makes the workbook
appear larger than it actually is but works fine unless the client
exceeds 5000 records in the Data sheet.

Dennis