Antes de mais, parabens pelo site que me parece muito completo.
Para somar valores de uma determinada tabela em excel, uso esta função vba 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):
Pergunta
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 vba 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.
Link para o comentário
Compartilhar em outros sites
0 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.