Remove rows less than 10

gbaker · #15 07-18-2014, 08:42 AM

Hi Joli,
All sheets have to be able to delete any rows that have 10 in the Age column except extended Default and Failed Default Tabs.

I even tried to use conditional formatting Column D2 (cell value between =1 and =10 format fill in Yellow.

Then tried to come up with a syntax like:

Code:

Range("D2:D1076").Select 
Do Until ActiveCell = ""
If ActiveCell.Interior.Color = vbYellow Then
ActiveCell.Rows.Delete
Else
ActiveCell.Offset(1, 0).Select
End If
Loop

Couldn't get that to work either. Let me know if you can get your code to work for me or why the code above won't work.
Thanks in Advance
GBaker

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Grouping table rows to prevent individual rows from breaking across pages	dennist77	Word	1	10-29-2013 11:39 PM
Count rows and add blank rows accordingly	Hoochtheseal	Word VBA	1	01-29-2013 09:23 PM
rows in word?	j2b3	Word Tables	3	07-19-2012 03:59 PM
merging rows and creating sub-rows	gib65	Excel	2	12-09-2011 02:09 PM
How to remove blank rows from a specified range?	Learner7	Excel	1	04-19-2011 02:45 AM