Manage projects of all sizes how you want. Great for personal to-do lists, project milestones, team priorities and launch plans.
- Combine task lists, docs, spreadsheets, and chat in one
- View and edit from mobile/offline
- Cut down on emails
Sub decrementrows() Application.DisplayAlerts = False lastrow = Range("A" & Rows.Count).End(xlUp).Row For I = lastrow To lastrow - 158 Step -1 Cells(I, 1).EntireRow.Delete fname = "C:\Users\Bill\Desktop\Sony Analysis\n-1AttrSelOneR\StartingFile -" & lastrow - I + 1 & ".csv" ActiveWorkbook.SaveAs Filename:=fname, FileFormat:=xlCSV Next I Application.DisplayAlerts = True End Sub
|How to check and batch replace text within a formula in an Excel spreadsheet possibly hundreds of files||6||41|
|When a VBA code will not work in Excel 64bit?||2||17|
|Splitting out Data||14||27|
|Add macros on Open||5||21|
Join the community of 500,000 technology professionals and ask your questions.
Connect with top rated Experts
12 Experts available now in Live!