Células coloridas

[Limburguer]

Bom dia.

Antes de mais, parabens pelo site que me parece muito completo.

Para somar valores de uma determinada tabela em excel, uso esta função vb que soma os valores contidos em celulas de uma cor pre-determinada (neste caso a celula "A1"):

Function Somarcor(somarange As Range) As Double
Dim r As Range
Application.Volatile True
For Each r In somarange.Cells
If r.Interior.ColorIndex = Range("A1").Interior.ColorIndex Then Somarcor = Somarcor + r.Value
Next
End Function

A função funciona. No entanto se tiver um outro livro de excel aberto, ou se interligar o resultado da formula para outra celula, a função já não soma correctamente, dando erro ou valores absurdos. Qual poderá ser o erro aqui?

Como não dá para anexar, deixo um link com a explicação (duas ultimas imagens):

http://caldeiraodebolsa.jornaldenego...ic.php?t=69250

Obrigado.

[kuroi]

acho q o q ta faltando é sempre apontar a qual planilha pertence o range.

exemplo, em vez de fazer:

Range("A1").Interior

faca:

Worksheets("Nome_Da_Sua_Planilha").Range("A1").Interior

inclusive, na hora de passar o parametro pra funcao, tem q fazer isso tb.

[Limburguer]

Bom dia.

Antes de mais obrigado Kuroi. Segui a tua indicação e as fórmulas já funcionam correctamente.

No entanto neste momento estou a usar esta formula para fazer imensos calculos no mesmo livro de excel, o que o torna extramamente lento, por estar sempre a recalcular automaticamente sempre que o uso.

Será possivel alterar a formula de modo a que o excel só recalcule de forma manual, por exemplo pressionando o F9?

Obrigado.