Count no of rows with interior color

[sheeba]

Hello!


Is it possible to count the nuber of rows in a range with interior
color (any)

for eg. on range "B1:F20" if any cell in B1:F1 got interior color count
it and check next row B2:F2 ... like wise and count the number of rows
in the range having atleast one cell with interior color.

thanks

[Gary Keramidas]

here's one way. it will count the number filled with blue (37) in column a

Option Explicit
Dim cell As Range
Dim lastrow As Long
Dim wks1 As Worksheet
Dim i As Integer
Sub count_colors()
lastrow = Worksheets("sheet1").Cells(Rows.Count, "A").End(xlUp).Row
Set wks1 = Worksheets("Sheet1")

Dim counter As Integer
For i = lastrow To 1 Step -1
Debug.Print lastrow
If Cells(i, 1).Interior.ColorIndex = 37 Then
counter = counter + 1
End If
Next i
MsgBox counter
Debug.Print i
End Sub

--


Gary


"sheeba" <sheeba.abdulsalam@gmail.com> wrote in message
news:1134195638.321431.175650@g47g2000cwa.googlegroups.com...
> Hello!
>
>
> Is it possible to count the nuber of rows in a range with interior
> color (any)
>
> for eg. on range "B1:F20" if any cell in B1:F1 got interior color count
> it and check next row B2:F2 ... like wise and count the number of rows
> in the range having atleast one cell with interior color.
>
> thanks
>

[Norman Jones]

Hi Sheeba,

See Chip Pearsons colour functions page at:

http://www.cpearson.com/excel/colors.htm


---
Regards,
Norman


"sheeba" <sheeba.abdulsalam@gmail.com> wrote in message
news:1134195638.321431.175650@g47g2000cwa.googlegroups.com...
> Hello!
>
>
> Is it possible to count the nuber of rows in a range with interior
> color (any)
>
> for eg. on range "B1:F20" if any cell in B1:F1 got interior color count
> it and check next row B2:F2 ... like wise and count the number of rows
> in the range having atleast one cell with interior color.
>
> thanks
>

[Bob Phillips]

or http://www.xldynamic.com/source/xld.ColourCounter.html

--

HTH

RP
(remove nothere from the email address if mailing direct)


"Norman Jones" <normanjones@whereforartthou.com> wrote in message
news:e5tR5fW$FHA.328@TK2MSFTNGP14.phx.gbl...
> Hi Sheeba,
>
> See Chip Pearsons colour functions page at:
>
> http://www.cpearson.com/excel/colors.htm
>
>
> ---
> Regards,
> Norman
>
>
> "sheeba" <sheeba.abdulsalam@gmail.com> wrote in message
> news:1134195638.321431.175650@g47g2000cwa.googlegroups.com...
> > Hello!
> >
> >
> > Is it possible to count the nuber of rows in a range with interior
> > color (any)
> >
> > for eg. on range "B1:F20" if any cell in B1:F1 got interior color count
> > it and check next row B2:F2 ... like wise and count the number of rows
> > in the range having atleast one cell with interior color.
> >
> > thanks
> >
>
>