Macro to blank row on bew sheet
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 |
Macro to blank row on bew sheet
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 -- Regards Roger Govier "Bigpond" wrote in message ... 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 |
Macro to blank row on bew sheet
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 "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... 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 -- Regards Roger Govier "Bigpond" wrote in message ... 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 |
Macro to blank row on bew sheet
See
http://www.rondebruin.nl/last.htm -- Regards Ron de Bruin http://www.rondebruin.nl/tips.htm "Bigpond" wrote in message ... 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 "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... 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 -- Regards Roger Govier "Bigpond" wrote in message ... 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 |
Macro to blank row on bew sheet
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 -- Regards Roger Govier "Bigpond" wrote in message ... 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 "Roger Govier" <roger@technology4unospamdotcodotuk wrote in message ... 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 -- Regards Roger Govier "Bigpond" wrote in message ... 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 |
All times are GMT +1. The time now is 02:26 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com