Code to go to last row (next blank row)
 

Hi all,
I would like to create a command botton (macro) that would bring th
user to the last row (which is typically the next blank row) so the
can input data in that row.

I am stuck...thanks

--
Message posted from http://www.ExcelForum.com

Code to go to last row (next blank row)
 

Hi
maybe the shortcut CTRL+END is all you need (move the cursor to the
last row with data)

Frank
Hi all,
I would like to create a command botton (macro) that would bring the
user to the last row (which is typically the next blank row) so they
can input data in that row.

I am stuck...thanks!


---
Message posted from http://www.ExcelForum.com/

Code to go to last row (next blank row)
 

ActiveCell.SpecialCells(xlLastCell).Select

-----Original Message-----
Hi all,
I would like to create a command botton (macro) that
would bring the
user to the last row (which is typically the next blank
row) so they
can input data in that row.

I am stuck...thanks!


---
Message posted from http://www.ExcelForum.com/

.

Code to go to last row (next blank row)
 

miker

Sub findbottom()
Worksheets("Sheet1").Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Activate
End Sub

Will select first blank row below data in Column A.

Note: excludes any blank rows interspersed throughout above the last row with
data because it starts from the bottom of the column and checks upward.

Gord Dibben Excel MVP

On Sat, 7 Feb 2004 15:39:52 -0600, miker1999
wrote:

Hi all,
I would like to create a command botton (macro) that would bring the
user to the last row (which is typically the next blank row) so they
can input data in that row.

I am stuck...thanks!


---
Message posted from http://www.ExcelForum.com/

Code to go to last row (next blank row)
 

if the determination can be made on column A

cells(rows.count,1).end(xlup)(2).Select

--
Regards,
Tom Ogilvy


miker1999 wrote in message
...
Hi all,
I would like to create a command botton (macro) that would bring the
user to the last row (which is typically the next blank row) so they
can input data in that row.

I am stuck...thanks!


---
Message posted from http://www.ExcelForum.com/

Code to go to last row (next blank row)
 

Maybe one row after?, for the "next blank row":

ActiveCell.SpecialCells(xlLastCell).offset(1,0).Se lect

--
Rgds
Max
xl 97
----------------------------------
Use xdemechanik <atyahoo<dotcom for email
-----------------------------------------
"mern" wrote in message
...

ActiveCell.SpecialCells(xlLastCell).Select

-----Original Message-----
Hi all,
I would like to create a command botton (macro) that
would bring the
user to the last row (which is typically the next blank
row) so they
can input data in that row.

I am stuck...thanks!


---
Message posted from http://www.ExcelForum.com/

.

Code to go to last row (next blank row)
 

this can be quite unreliable.

--
Regards,
Tom Ogilvy


Max wrote in message
...
Maybe one row after?, for the "next blank row":

ActiveCell.SpecialCells(xlLastCell).offset(1,0).Se lect

--
Rgds
Max
xl 97
----------------------------------
Use xdemechanik <atyahoo<dotcom for email
-----------------------------------------
"mern" wrote in message
...

ActiveCell.SpecialCells(xlLastCell).Select

-----Original Message-----
Hi all,
I would like to create a command botton (macro) that
would bring the
user to the last row (which is typically the next blank
row) so they
can input data in that row.

I am stuck...thanks!


---
Message posted from http://www.ExcelForum.com/

.

Code to go to last row (next blank row)
 

Thank you all. I went with Tom's Suggestion since I had conditiona
formatting and formulas through the "empty" rows...

Thank you all for replying

--
Message posted from http://www.ExcelForum.com

Code to go to last row (next blank row)
 

Noted with thanks, Tom !

--
Rgds
Max
xl 97
----------------------------------
Use xdemechanik <atyahoo<dotcom for email
-----------------------------------------
"Tom Ogilvy" wrote in message
...
this can be quite unreliable.

--
Regards,
Tom Ogilvy


Max wrote in message
...
Maybe one row after?, for the "next blank row":

ActiveCell.SpecialCells(xlLastCell).offset(1,0).Se lect