I have an excel spreadsheet, with over 3000 rows. I have to review and
sort daily, then go back to the next blank row and start entering
data. I am looking for a quick macro I can asign to a button that will
take me to the next free row A?.

Tried this ham fisted code, but not working

'find next line for data entry
Dim CurrentRow As Integer 'this variable will be changed
according to the row being searched
CurrentRow = 13

Do
CurrentRow = CurrentRow + 1
Loop While Worksheets("Concern Log").Range("B" & CurrentRow) < ""

newrow=cells(rows.count,"B").end(xlup).row+1
--
Gary''s Student - gsnu2007b


"Decreenisi" wrote:

I have an excel spreadsheet, with over 3000 rows. I have to review and
sort daily, then go back to the next blank row and start entering
data. I am looking for a quick macro I can asign to a button that will
take me to the next free row A?.

Tried this ham fisted code, but not working

'find next line for data entry
Dim CurrentRow As Integer 'this variable will be changed
according to the row being searched
CurrentRow = 13

Do
CurrentRow = CurrentRow + 1
Loop While Worksheets("Concern Log").Range("B" & CurrentRow) < ""

On 3 Dec, 10:42, Gary''s Student
wrote:
newrow=cells(rows.count,"B").end(xlup).row+1
--
Gary''s Student - gsnu2007b


Thanks, have tried this but can't get it to work.... have found this
one on the web which seems OK

Range("B13").End(xlDown).Offset(1, 0).Select

Range("B13").End(xlDown).Offset(1, 0).Select

The code above will work if there are no blank cells in column B between top and
bottom.

If you truly want to get to the bottom of A try this.

Sub findbottom()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub


Gord Dibben MS Excel MVP

On Mon, 3 Dec 2007 05:34:36 -0800 (PST), Decreenisi
wrote:

On 3 Dec, 10:42, Gary''s Student
wrote:
newrow=cells(rows.count,"B").end(xlup).row+1
--
Gary''s Student - gsnu2007b


Thanks, have tried this but can't get it to work.... have found this
one on the web which seems OK

Range("B13").End(xlDown).Offset(1, 0).Select

"Bottom of A" should have read "bottom of B"

Change also to Rows.Count, 2 for column B


Gord

On Mon, 03 Dec 2007 09:39:43 -0800, Gord Dibben <gorddibbATshawDOTca wrote:

Range("B13").End(xlDown).Offset(1, 0).Select

The code above will work if there are no blank cells in column B between top and
bottom.

If you truly want to get to the bottom of A try this.

Sub findbottom()
ActiveSheet.Cells(Rows.Count, 1).End(xlUp) _
.Offset(1, 0).Select
End Sub


Gord Dibben MS Excel MVP

On Mon, 3 Dec 2007 05:34:36 -0800 (PST), Decreenisi
wrote:

On 3 Dec, 10:42, Gary''s Student
wrote:
newrow=cells(rows.count,"B").end(xlup).row+1
--
Gary''s Student - gsnu2007b


Thanks, have tried this but can't get it to work.... have found this
one on the web which seems OK

Range("B13").End(xlDown).Offset(1, 0).Select