Home |
Search |
Today's Posts |
|
#1
![]()
Posted to microsoft.public.excel.programming
|
|||
|
|||
![]()
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 | |
|
|
![]() |
||||
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 |