Since you're new to macros, you may want to read David McRitchie's intro at:
http://www.mvps.org/dmcritchie/excel/getstarted.htm
babe_in_the_woods wrote:
i must say this looks like it will do the trick, but i don't know what to do
with these lines of code. how and where do i run them? sorry to be living up
to my "name" but i haven't a clue what to do with this.....
"squenson via OfficeKB.com" wrote:
Sub RemoveUnhighlightedRows()
' This routine will delete all the rows that have
' no highlighted cells
Dim iFirstRow As Long
Dim iLastRow As Long
Dim i As Long
Dim j As Long
Dim bColoredRow As Boolean
' CHANGE THE TWO LINES BELOW
' TO ADAPT TO YOUR NEEDS
iFirstRow = 1
iLastRow = 1000
Application.ScreenUpdating = False
For i = iLastRow To iFirstRow Step -1
For j = 1 To 256
bColoredRow = False
If Cells(i, j).Interior.Color < RGB(255, 255, 255) Then
bColoredRow = True
Exit For
End If
Next j
If Not (bColoredRow) Then
Rows(i).Delete
End If
Next i
Application.ScreenUpdating = True
End Sub
babe_in_the_woods wrote:
i have a large (for me) excel spread sheet. i have about 25 % of the rows
highlighted throughout the sheet. i want to remove all the unhighlighted
rows. how do i do this?
--
Message posted via OfficeKB.com
http://www.officekb.com/Uwe/Forums.a...excel/200708/1
--
Dave Peterson