find 100% by column and color cells
Sub Tester1()
Dim cell As Range For Each cell In Range("A1:A500") If Application.CountIf( _ cell.Offset(0, 9).Resize(1, 247), _ "100%") 0 Then cell.Resize(1, 10).Interior _ .ColorIndex = 3 Else cell.Resize(1, 10).Interior _ .ColorIndex = xlNone End If Next End Sub worked for me. -- Regards, Tom Ogilvy "Duncan_J" wrote in message ... Ok, here is a tough one... which I could do if a filtered 200+ columns one at a time, and which would be a huge macro. I want to filter each column from J all the way to the end, which is IV... I'm filtering for "100%" When filtered and if 100% is in that column. I want to color the cells of a row A though I with color code 35 Thanks for any ideas. It could be done but it would take about a half day to do it manually. DJ |
All times are GMT +1. The time now is 06:24 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com