Get to a new row to add new data
 

Hi,

I have a list. I'd like to have a button that you click on that finds the
next available new row so I can start typing new data.

I want this to work on several sheets that each have lists so I can use this
button on sheet 1, 2, or 3 it doesn't matter it will go to the end of the
list. There is only one list per sheet.

I can't figure out how to do it. Any help would be greatly appreciated.

Thanks in Advance
Janet

Get to a new row to add new data
 

maybe something like this and assign it to a button on each sheet. this will
take youi to the bottom of column A

Option Explicit
Sub goto_last()
Dim lastrow As Long
Dim CurSheet As String

CurSheet = ActiveSheet.Name
lastrow = Worksheets(CurSheet).Cells(Rows.Count, "A").End(xlUp).Row

Range("A" & lastrow + 1).Select

End Sub

--


Gary


"Grd" wrote in message
...
Hi,

I have a list. I'd like to have a button that you click on that finds the
next available new row so I can start typing new data.

I want this to work on several sheets that each have lists so I can use
this
button on sheet 1, 2, or 3 it doesn't matter it will go to the end of the
list. There is only one list per sheet.

I can't figure out how to do it. Any help would be greatly appreciated.

Thanks in Advance
Janet

Get to a new row to add new data
 

this would pronanly be better

Option Explicit
Sub goto_last()
Dim lastrow As Long
Dim CurSheet As String

CurSheet = ActiveSheet.Name
lastrow = Worksheets(CurSheet).Cells(Rows.Count, "A").End(xlUp).Row

Worksheets(CurSheet).Range("A" & lastrow + 1).Select

End Sub


--


Gary


"Grd" wrote in message
...
Hi,

I have a list. I'd like to have a button that you click on that finds the
next available new row so I can start typing new data.

I want this to work on several sheets that each have lists so I can use
this
button on sheet 1, 2, or 3 it doesn't matter it will go to the end of the
list. There is only one list per sheet.

I can't figure out how to do it. Any help would be greatly appreciated.

Thanks in Advance
Janet

Get to a new row to add new data
 

pronanly should be probably, one key off<g

--


Gary


"Gary Keramidas" <GKeramidasATmsn.com wrote in message
...
this would pronanly be better

Option Explicit
Sub goto_last()
Dim lastrow As Long
Dim CurSheet As String

CurSheet = ActiveSheet.Name
lastrow = Worksheets(CurSheet).Cells(Rows.Count, "A").End(xlUp).Row

Worksheets(CurSheet).Range("A" & lastrow + 1).Select

End Sub


--


Gary


"Grd" wrote in message
...
Hi,

I have a list. I'd like to have a button that you click on that finds the
next available new row so I can start typing new data.

I want this to work on several sheets that each have lists so I can use
this
button on sheet 1, 2, or 3 it doesn't matter it will go to the end of the
list. There is only one list per sheet.

I can't figure out how to do it. Any help would be greatly appreciated.

Thanks in Advance
Janet

Get to a new row to add new data
 

Works
Thanks very much


"Gary Keramidas" wrote:

this would pronanly be better

Option Explicit
Sub goto_last()
Dim lastrow As Long
Dim CurSheet As String

CurSheet = ActiveSheet.Name
lastrow = Worksheets(CurSheet).Cells(Rows.Count, "A").End(xlUp).Row

Worksheets(CurSheet).Range("A" & lastrow + 1).Select

End Sub


--


Gary


"Grd" wrote in message
...
Hi,

I have a list. I'd like to have a button that you click on that finds the
next available new row so I can start typing new data.

I want this to work on several sheets that each have lists so I can use
this
button on sheet 1, 2, or 3 it doesn't matter it will go to the end of the
list. There is only one list per sheet.

I can't figure out how to do it. Any help would be greatly appreciated.

Thanks in Advance
Janet