Macro

  • Thread starter Thread starter Richard Toller
  • Start date Start date
R

Richard Toller

I'm trying to write a macro that automatically takes me to the nex
available row to enter data in my "Orders" worksheet in Column A
Sounds simple, but I'm doing something wrong. Thanks for any help!
Ric
 
have you tried x = range("A65536").end(xlup).row +1
this should assign x to the first blank row looking from
the bottom of the sheet.

Hope this helps
Jase
 
Rich,

Try this simple macro out. I use this frequently and
usually assign it to a button I've placed in my header
row. If you have your header row in a freeze pane, the
button will always be available and each time you click on
it, the macro will take you to the next "available" or
empty row found in the active cell's column. Let me know
if you have any questions or problems with it.

Sub Next_Open_Row()
Dim iRow As Long
For iRow = ActiveCell.Row + 1 To 65530
If IsEmpty(Cells(iRow, ActiveCell.Column)) Then
Cells(iRow, ActiveCell.Column).Select
Exit Sub
End If
Next iRow
End Sub
 
Back
Top