Sum all cells with interior color...

[Ctech]

Hi

I'm trying to make a macro which will sum all the cells which have a
special interior color.

However I don't know how to sum these cells. I will also need to check
if the Cell contains a number (ISNUMBER).

Do anyone know how I can do this,

As always thanks.


For Each Cell In Selection
On Error Resume Next
If Cell.Interior.ColorIndex = 36 Then
If Cell = ISNUMBER then
End if


End If

Next Cell

 

[Norman Jones]

Hi Ctech,

Try:

'=============>>
Public Sub Tester091()
Dim rng As Range
Dim rCell As Range
Dim myVal As Double

Set rng = Selection

For Each rCell In rng.Cells
If rCell.Interior.ColorIndex = 36 Then
If Application.IsNumber(rCell.Value) Then
myVal = myVal + rCell.Value
End If
End If
Next rCell

MsgBox myVal

End Sub
'<<=============

 

[Bob Phillips]

See http://www.xldynamic.com/source/xld.ColourCounter.html for a complete
solution.

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

 

[Niek Otten]

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

 

[Yngve]

Hi Ctect

this should work
Sub b()

Dim p As Double
p = 0
For Each cell In Selection
On Error Resume Next
If cell.Interior.ColorIndex = 36 Then
If IsNumeric(cell) Then
p = p + cell.Value
End If


End If


Next cell

end sub

Regards Yngve