Formula dependent of cell colour

[Kiwi den]

Looking for assistance
I have a spreadsheet with column H from cells 1 - 750 populated by numbers.
I would like to total the cells in this column into cell (H:751) that have a cell colour "Green"

Can someone please point me for info on how I could do this please

 

[Fluff]

How are the cells being coloured?

 

[Kiwi den]

How are the cells being coloured?

The cells are manually coloured when that row is entered

 

[Fluff]

In that case you will need VBA, a formula cannot see cell formats.

 

[Kiwi den]

In that case you will need VBA, a formula cannot see cell formats.

ok sounds good, can you point me to an example or where I can get this

 

[Fluff]

How about

Function SumByColor(SumRange As Range, ColourCell As Range) As Double
   Dim Cl As Range
   Dim Colr As Long
   Application.Volatile
   
   Colr = ColourCell.Interior.Color
   For Each Cl In SumRange
      If Cl.Interior.Color = Colr Then
         SumByColor = SumByColor + Cl.Value
      End If
   Next TCell
End Function

Used like

=SumByColor(H1:H170,G1)

where H1:H170 is the range to sum & G1 has the colour you're interested in.
However this will only recalculate when the sheet recalcs & not when you change the colour of a cell.

 

[Kiwi den]

How about

Function SumByColor(SumRange As Range, ColourCell As Range) As Double
   Dim Cl As Range
   Dim Colr As Long
   Application.Volatile
  
   Colr = ColourCell.Interior.Color
   For Each Cl In SumRange
      If Cl.Interior.Color = Colr Then
         SumByColor = SumByColor + Cl.Value
      End If
   Next TCell
End Function

Used like

=SumByColor(H1:H170,G1)

where H1:H170 is the range to sum & G1 has the colour you're interested in.
However this will only recalculate when the sheet recalcs & not when you change the colour of a cell.

Thanks I will give this a try

 

[Fluff]

Ok,