Row by Row
I have a spreadsheet with several columns(A thru H) and a couple of thousand rows, and certain rows have one or more cells with a background color of red.
What I'd like to do is to do a for each in every cell in every row, check its background color, if its red, then copy the ENTIRE row into another worksheet, not necessarily the same row number (ie, if it was row 799, and there are currently 3 rows in the new table, then copy row 799 from the old to row 4 in the new).
Another slight problem is that the cells both contain forumalas and static values (the formulas being vlookups).
I'm guessing I'd do..
For Each myCell in mySheet.Range("A:H").SpecialCells(xlCellTypeAllFor matConditions)
If any 1 cell in row has bgcolor = red Then
' copy this row from ActiveSheet to NewSheet
' go to next row
End If
Next
Any takers?
__________________
Many shoes,
Jamez/SiliconFuRy
|
