Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.setup
|
|||
|
|||
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 |
#2
Posted to microsoft.public.excel.setup
|
|||
|
|||
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 |
#3
Posted to microsoft.public.excel.setup
|
|||
|
|||
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 |
#4
Posted to microsoft.public.excel.setup
|
|||
|
|||
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 |
#5
Posted to microsoft.public.excel.setup
|
|||
|
|||
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 |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro ?-moving info from 1 sheet to first blank section on another | Excel Discussion (Misc queries) | |||
macro to: Add new sheet, then rename new sheet with todays date | Excel Worksheet Functions | |||
blank sheet | Excel Discussion (Misc queries) | |||
Macro not recognizing blank lines as blank | Excel Discussion (Misc queries) | |||
2 questions, copying data from sheet to sheet and assigning macro | Excel Worksheet Functions |