Repeat the same script on 48 rows, counting CF cell colors

The following script works like a champ counting conditionally formatted colored cells (2 buttons/scripts) but I need it to repeat on 24 different rows and hopefully not 24 different buttons/scripts. I could do it repeating the script 24 times and manually adjusting coding for each row and then call each script with one button but it seems there would be a better way to maybe loop to the end? Also, not all rows need to be counted. If there is a name in cells B12 through B35 then the script would need to stop when it reaches an empty cell, there wouldn't be anything to count.

Thanks in advance.
Andy

Please Login or Register  to view this content.

How about:

Please Login or Register  to view this content.

Went to test your code and the following variable "ws" wasn't defined. Not sure what to declare it as.

If ws.Cells(i, 2) <> "" Then

Proton,

That worked pretty nicely except it put all the counts in column "A". Probably because my commented code stated the results to go into cell A12 where it should have been in "Z12". So, I corrected the offset from -3 to 22 and it puts the results in the Z column accordingly per row.

But, I should have also mentioned that this section is for the "Gross Skins" section and stops at row 35. The code as-is went way down the column into the next section which is the "Net Skins" section and those cells, which will need the same script procedure, are rows 52-75, with the same columns as the "Gross Skins". The "Net Skins" pulls entered data from the "Gross Skins" section but the number of skins won by player will obviously be different resulting in running the script there too.

I'm just not sure where or how to make it stop at row 35 and, if possible, have it do the same in the "Net Skins" section without pressing another button. But I am fine if that's the simplest way.

Andy

Hey Ben,

Initial test works great but I forgot one other detail...the Net Skins is a different RGB color so it didn't count. It is orange (255,192,0).

I sent you a PM with a link to our website to give you a visual on the skins sheet.

Andy

I added another IF statement for the RGB and it seems to be working great. I'd like to eliminate the 0's when it doesn't count a color but not a big deal at all.

I apologize about missing a couple of details and appreciate you quick response as well as the Thomglea's suggested coding. I tried both and your seems to be working best.

Please Login or Register  to view this content.

Originally Posted by Andy C.

Went to test your code and the following variable "ws" wasn't defined. Not sure what to declare it as.

If ws.Cells(i, 2) <> "" Then

Sorry, that should be skins.cells. Out of habit, I use ws in my own scripts.