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

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" wrote in message
oups.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

Hi Sheeba,

See Chip Pearsons colour functions page at:

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


---
Regards,
Norman


"sheeba" wrote in message
oups.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

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

--

HTH

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


"Norman Jones" wrote in message
...
Hi Sheeba,

See Chip Pearsons colour functions page at:

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


---
Regards,
Norman


"sheeba" wrote in message
oups.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