Home |
Search |
Today's Posts |
#1
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to count formated Cells in Excel Macro
I used a Macro to format cells based on given criteria. But now I need
a Macro to count those formatted cells and print them in a seperate cell. I want to to use the count feature but I can't figure out how to just count the formatted cells. This is the Macro I used to format the cells based on the criteria: Sub P2() Dim LastRow As Long Dim iRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row For iRow = 3 To LastRow If .Range("C" & iRow).Value < .Range("H" & iRow).Value Then .Range("H" & iRow).Interior.Color = RGB(200, 160, 35) End If Next iRow End With End Sub Anybody got any ideas???????????? |
#2
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to count formated Cells in Excel Macro
See http://www.xldynamic.com/source/xld.ColourCounter.html for a working
solution -- HTH Bob Phillips (remove nothere from email address if mailing direct) wrote in message oups.com... I used a Macro to format cells based on given criteria. But now I need a Macro to count those formatted cells and print them in a seperate cell. I want to to use the count feature but I can't figure out how to just count the formatted cells. This is the Macro I used to format the cells based on the criteria: Sub P2() Dim LastRow As Long Dim iRow As Long With ActiveSheet LastRow = .Cells(.Rows.Count, "C").End(xlUp).Row For iRow = 3 To LastRow If .Range("C" & iRow).Value < .Range("H" & iRow).Value Then .Range("H" & iRow).Interior.Color = RGB(200, 160, 35) End If Next iRow End With End Sub Anybody got any ideas???????????? |
#3
Posted to microsoft.public.excel.programming
|
|||
|
|||
Need to count formated Cells in Excel Macro
I came up with this and it works fine. Thanks.
Sub P3() Dim c As Range Dim i As Long For Each c In ActiveSheet.UsedRange If c.Interior.ColorIndex = 45 Then i = i + 1 End If Next Range("H945").Value = i End Sub |
Reply |
Thread Tools | Search this Thread |
Display Modes | |
|
|
Similar Threads | ||||
Thread | Forum | |||
if condition on currency formated cells | Excel Discussion (Misc queries) | |||
I'm looking to add cells (that are formated in %) in them. | Excel Worksheet Functions | |||
Don't Want to Print Formated Blanked Out Cells | Excel Discussion (Misc queries) | |||
CONCATENATE Cells Formated as fractions | Excel Worksheet Functions | |||
Counting Formated Cells | Excel Programming |