Macro to blank row on bew sheet

  • Thread starter Thread starter Bigpond
  • Start date Start date
B

Bigpond

Can you help please
I am writing a data base in excel for our school, to track the resources, I
need to have a macro that will take person from the Index Spread Sheet to a
Spreadsheet called "Loan Area" and then take them to the next available
(empty) row on that sheet so that they can fill in their details,
I just cant get it to take them to the first blank cell in column A

Thanks
 
Hi

Dim Lr as long
lr = Cells(Rows.Count, "A").End(xlUp).Row + 1

lr will give the row number of the first empty row in column A
 
Thanks Roger but it is not working, I want it to go to the first vacant
empty row in column B
My Macro looks like this
Sub NEWOUT()
'
' NEWOUT Macro
'

'
Sheets("Loan Area").Select
Dim Lr As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row + 1

End Sub

It still takes me to B2 each time vacant or full

Any suggestions for an old amature

thanks
 
Hi Peter
Lr gives the last row number.
You need to activate the cell in column A for this row number.
Sub NEWOUT()
' NEWOUT Macro
Sheets("Loan Area").Select
Dim Lr As Long
Lr = Cells(Rows.Count, "A").End(xlUp).Row + 1
Cells(lr,”A”).Activate
End Sub
 
Back
Top