Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting minimized Rows in a group
' Is there an easy way to modify the following macro to delete the minimized rows in groups of rows (grouped together through excel grouping feature) Sub DeleteHiddenRows() ' ' Remove hidden rows from all sheets ' For i = 1 To Worksheets.Count If Worksheets(i).Visible Then Worksheets(i).Select ActiveCell.SpecialCells(xlLastCell).Select k = ActiveCell.Row For j = 1 To k If Rows(j).Hidden Then Rows(j).Hidden = False Rows(j).Delete End If Next j End If Next i If Worksheets(1).Visible Then Worksheets(1).Select End Sub Adam *** Sent via Devdex http://www.devdex.com *** Don't just participate in USENET...get rewarded for it! |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Deleting minimized Rows in a group
Sub DeleteHiddenRows()
' ' Remove hidden rows from all sheets ' For i = 1 To Worksheets.Count If Worksheets(i).Visible Then Worksheets(i).Select ActiveCell.SpecialCells(xlLastCell).Select k = ActiveCell.Row For j = K To 1 step -1 If Rows(j).Hidden Then Rows(j).Hidden = False Rows(j).Delete End If Next j End If Next i End Sub Should work I would think. -- Regards, Tom Ogilvy "Adam G" wrote in message ... ' Is there an easy way to modify the following macro to delete the minimized rows in groups of rows (grouped together through excel grouping feature) Sub DeleteHiddenRows() ' ' Remove hidden rows from all sheets ' For i = 1 To Worksheets.Count If Worksheets(i).Visible Then Worksheets(i).Select ActiveCell.SpecialCells(xlLastCell).Select k = ActiveCell.Row For j = 1 To k If Rows(j).Hidden Then Rows(j).Hidden = False Rows(j).Delete End If Next j End If Next i If Worksheets(1).Visible Then Worksheets(1).Select End Sub Adam *** Sent via Devdex http://www.devdex.com *** Don't just participate in USENET...get rewarded for it! |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
Macro for deleting rows and serialising the remaing rows | Setting up and Configuration of Excel | |||
Macro for deleting rows and serialising the remaing rows | Excel Worksheet Functions | |||
Deleting a space between a group of Numbers & Letters in a cell | New Users to Excel | |||
Help!! I have problem deleting 2500 rows of filtered rows!!!! | Excel Discussion (Misc queries) | |||
deleting hidden rows so i can print only the rows showing?????? | Excel Worksheet Functions |