 |
 | Home | Contact Us | FAQ | Search & Site Map | Link to Us |
 | Sign In | Join | Other 45 Sites in Network |
| HomeDiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWordDirectoryUser Groups Related Topics Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ... |
MS Office Forum / Excel / Programming / January 2008Delete Last 10 Rows in Worksheet
I need a macro that can delete the last ten rows in the worksheet. Column A will always contain information on the last row, but has a lot of gaps in the rest of the column. Maybe Sub substance() lastrow = Range("A65536").End(xlUp).Row For x = lastrow To (lastrow - 9) Step -1 Rows(x).EntireRow.Delete Next End Sub Mike > I need a macro that can delete the last ten rows in the worksheet. Column A > will always contain information on the last row, but has a lot of gaps in the > rest of the column. 65536 assumes that Sloth is not on XL2007 which has a lot more rows than that. You might consider using rows.count to define the end of the sheet.  SignatureHTH... Jim Thomlinson > Maybe > [quoted text clipped - 10 lines] > > will always contain information on the last row, but has a lot of gaps in the > > rest of the column. Jim, Thanks for the tip, I must get into th habit of doing that with the advent of 2007 but in this case and from the OP's other thread I knew 65536 was appropriate http://www.microsoft.com/office/community/en-us/default.mspx?dg=microsoft.public .excel.misc&mid=d8044b0d-14a6-48d8-99b4-6b4496d0ac15&sloc=en-us Mike > 65536 assumes that Sloth is not on XL2007 which has a lot more rows than > that. You might consider using rows.count to define the end of the sheet. [quoted text clipped - 13 lines] > > > will always contain information on the last row, but has a lot of gaps in the > > > rest of the column. Until he upgrades... SignatureHTH... Jim Thomlinson > Jim, > [quoted text clipped - 23 lines] > > > > will always contain information on the last row, but has a lot of gaps in the > > > > rest of the column. LOL, that'l be the day. I have to fight tooth and nail for every scrap I get. I've been requesting a hard-drive upgrade for a while with no luck (I am 70GB full of an 80GB drive). I went ahead and used rows.count anyways, just in case ;). Thanks again. > Until he upgrades... > [quoted text clipped - 25 lines] > > > > > will always contain information on the last row, but has a lot of gaps in the > > > > > rest of the column. Sub hfdksjf() n = Cells(Rows.Count, "A").End(xlUp).Row Range("A" & n - 9 & ":A" & n).EntireRow.Delete End Sub SignatureGary''s Student - gsnu200766 > I need a macro that can delete the last ten rows in the worksheet. Column A > will always contain information on the last row, but has a lot of gaps in the > rest of the column. You can do it with this line of code... Sheets("Sheet1").Cells(Rows.Count, _ "A").End(xlUp).Offset(-9).Resize(10).EntireRow.Delete SignatureHTH... Jim Thomlinson > I need a macro that can delete the last ten rows in the worksheet. Column A > will always contain information on the last row, but has a lot of gaps in the > rest of the column. Thank You All. > You can do it with this line of code... > [quoted text clipped - 4 lines] > > will always contain information on the last row, but has a lot of gaps in the > > rest of the column. |
Reply to this Message |
 Sign In
 Join
 My Latest Posts My Monitored Threads My Blog My Photo Gallery My Profile My Homepage Start New Thread Enable EMail Alerts Rate this Thread
|
©2008 Advenet LLC Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.