SUMBYCOLOR sommare celle con lo stesso colore

[montevetrano]

cerco di sommare in un foglio celle con lo stesso colore usando SUMBYCOLOR.........
la macro è
FunctionSumByColor(InRange As Range, WhatColorIndex As Integer, _
Optional OfText As Boolean =False) As Double
'
' This function return the SUMof the values of cells in
' InRange with a backgroundcolor, or if OfText is True a
' font color, equal toWhatColorIndex.
'
Dim Rng As Range
Dim OK As Boolean

Application.Volatile True
For Each Rng In InRange.Cells
If OfText = True Then
OK = (Rng.Font.ColorIndex =WhatColorIndex)
Else
OK = (Rng.Interior.ColorIndex= WhatColorIndex)
End If
If OK And IsNumeric(Rng.Value)Then
SumByColor = SumByColor +Rng.Value
End If
Next Rng

End Function

purtroppo mi da errore nella formula

Allego file.....

[volatile56]

nella domanda dici che ti da errore nella formula ... pero' prima mostri il codice e una procedura .. e alleghi un file di word !!

Credo che per la formula uno degli ostacoli maggiori siano le celle unite ... credo.

Per il codice dovresti avere un'errore su qualche linea, prova a evidenziarla ..

Ivan

PS
rileggendo la procedura credo che per svista tu abbia omesso uno spazio tra Function e il nome della procedura, ma potrei sbagliare

[LS66]

Nella tua formula =SUMBYCOLOR(A1:H21,3,FALSO) hai usato come separatore di argomento la virgola.
Devi usare il punto e virgola =SUMBYCOLOR(A1:H21;3;FALSO)

Ciao.