sumif with color

[reza]

Hi all,

In 1 colom i have many numbers with many colors in cells. Can we sum with
specific color.
example.
1 ----(Yellow)
2 ----(Green)
3 ----(Yellow)
1 ----(Blue)
2 ----(Red)
with data above, can excel sum with only yellow cells???

thanks

reza

 

[L. Howard Kittle]

Try this, where your range of cells has been named DataY.

Sub SumColorCountYellow()
Dim Yellow6 As Integer
Dim Cell As Range

For Each Cell In Range("DataY")
If Cell.Interior.ColorIndex = 6 Then
Yellow6 = Yellow6 + Cell.Value
End If
Next

Range("F1").Value = "Yellow = " & Yellow6

MsgBox " Yellow adds to " & Yellow6, _
vbOKOnly, "CountColor"

Range("F1").Value = ""

End Sub

HTH
Regards,
Howard

 

[reza]

Howard...

thanks for your response... but can you give step by step how to do it...
where should i put this source...after that how to use it?

thanks

 

[L. Howard Kittle]

Right click on your sheet tab and select View Code.
Copy and paste the code in the VB Editor... the large white space.
Back on your worksheet, install a button and assign the macro to the button
when asked, from the Assign Macro prompt by selecting the macro name and
then OK. Click anywhere on the worksheet to bring the button out of edit
mode. (Gets rid of the fuzzy border on the button)

To run the macro just click on the button.

Don't forget to name the range that will contain the yellow cells to DataY.
Or name it whatever may seem appropriate to you. Be sure to change DataY to
the new name in the code.

Post back if you are having trouble.

Regards,
Howard