find last row in a sheet

[Janis]

EndRow = Cells(Rows.Count, 1).End(xlUp)

I need the last used row count. This statement seems to count the last row
but not the used range. How do I find the last used row?


thanks,

 

[carlo]

EndRow = Cells(Rows.Count, 1).End(xlUp)

I need the last used row count. This statement seems to count the last row
but not the used range. How do I find the last used row?

thanks,

EndRow = Cells(65536,1).End(xlup).row

hth

Carlo

 

[David McRitchie]

EndRow = Cells(65536,1).End(xlup).row

The same but one that would work in all versions of Excel

Sub GotoBottomOfCurrentColumn()
'based on a posting by Tom Ogilvy 2000-06-26
Cells(Rows.Count, ActiveCell.Column).End(xlUp).Select
End Sub

Additional similar macros and toolbar buttons to go with them in
http://www.mvps.org/dmcritchie/excel/toolbars.htm

 

[David McRitchie]

[email protected]...
Sorry didn't read the question properly, ignore my previous answer
modify Carlo's to read -- based on column 1 (Column A), it is
not based on what Excel considers to be the last cell.

EndRow = Cells(Rows.Count,1).End(xlup).row

You can read about lastcell at
http://www.mvps.org/dmcritchie/excel/lastcell.htm