+- Forum Pplware (http://forum.pplware.com)
+-- Fórum: Software (/forumdisplay.php?fid=4)
+--- Fórum: Aplicações (/forumdisplay.php?fid=12)
+--- Tópico: Excel - Somar celulas com a mesma cor (/showthread.php?tid=21293)
Excel - Somar celulas com a mesma cor - CChivarria - 30-06-2015 15:08
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????