Colocar Resposta 
 
Avaliação do Tópico:
  • 0 votos - 0 Média
  • 1
  • 2
  • 3
  • 4
  • 5
Excel - Somar celulas com a mesma cor
30-06-2015, 15:08 (Esta mensagem foi modificada pela última vez a: 30-06-2015 15:09 por CChivarria.)
Mensagem: #1
Windows Excel - Somar celulas com a mesma cor
Boa tarde,

Estou com dificuldades em gravar uma função que faz o calculo de celulas com a mesma cor. quando adiciono o procedimento ele funciona mas se sair do excel e voltar a entrar perco o procedimento e não estou a conseguir guardar.

Procedimento:
Public Function SomaCor(scor As Range, somaintervalo As Range)

        Dim mCelula As Range
        Dim dCol As Integer
        Dim nTotal

    dCol = scor.Interior.ColorIndex 'corde destino
    For Each mCelula In somaintervalo

    If mCelula.Interior.ColorIndex = dCol Then
    nTotal = WorksheetFunction.Sum(mCelula) + nTotal
    End If

    Next mCelula
    SomaCor = nTotal

End Function

Será que me podem ajudar????

Cristiano Chivarria,

Qosmio x70, windows 8.1
Nexus 7
HTC one
Procurar todas as mensagens deste utilizador
Citar esta mensagem numa resposta
Colocar Resposta 


Saltar Fórum:


Utilizadores a ver este tópico: 1 Visitante(s)