Anyone,
I have a macro for counting colors that works on a normal worksheet.
Problem: Clever created Pivot table with colors(Green, Red, Black..etc) that have numbers and text when you hover over the color
Example: When cursor is over the Green value = 5(RED = 3) with text for the source data column and description
Problem #2: I was attempting to use the Color Macro for 2 days w/ no luck while placing the colors in other blocks outside of the pivot. It worked outside of the pivot table.
Any ideas on why the Color Macro is not working. The Macro is down below:
Thanks,
Ty
Here is the Macro:
Function CountByColor(CellColor As Range, CountRange As Range)
Application.Volatile
Dim ICol As Integer
Dim TCell As Range
ICol = CellColor.Interior.ColorIndex
For Each TCell In CountRange
If ICol = TCell.Interior.ColorIndex Then
CountByColor = CountByColor + 1
End If
Next TCell
End Function
Posted by: tyrone_bak@yahoo.com
| Reply via web post | • | Reply to sender | • | Reply to group | • | Start a New Topic | • | Messages in this topic (1) |
Be sure to check out TechTrax Ezine for many, free Excel VBA articles! Go here: http://www.mousetrax.com/techtrax to enter the ezine, then search the ARCHIVES for EXCEL VBA.
----------------------------------
Visit our ExcelVBA group home page for more info and support files:
http://groups.yahoo.com/group/ExcelVBA
----------------------------------
More free tutorials and resources available at:
http://www.mousetrax.com
----------------------------------
Tidak ada komentar:
Posting Komentar