Este fórum está sendo desativado

[Deciog]

Senhores, gostaria de saber se é possível somar fazendo restrições de cor, ex.: somar só com cor vermelha, existe isso ou outra forma de somar por cor da célula.

Desde já agradeço fico no aguardo de uma respoosta

[Henrique]

Caro Deciog,

Existem duas formas de fazer. Uma com uso do VBA e outra sem.

A forma sem uso de macros é simples:

1) Faça a especificação das células que deseja somar colorindo-as;
2) Insira uma fórmula de soma na última célula da coluna onde você coloriu SUBTOTAL(9;REGIÃO) ;
3) Utilize o filtro de cor para selecionar a cor que deseja somar.

Espero ter ajudado.

[Henrique]

Se deseja fazer por VBA então:

Código: Selecionar todos

'Soma pela cor do texto
Function SomaCorTexto(eu As Range, zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Font.ColorIndex
         For Each celula In zona
             If celula.Font.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         SomaCorTexto = soma
End Function

ou então...

Código: Selecionar todos

'Soma pela cor do fundo
Function SomaCorFundo(eu As Range, Zona As Range)
         Dim soma
         Dim celula As Range
         Dim cor As Integer
         Application.Volatile
         cor = eu.Interior.ColorIndex
         For Each celula In zona
             If celula.Interior.ColorIndex = cor Then
                soma = soma + celula.Value
             End If
         Next
         SomaCorFundo = soma
End Function

Espero ter ajudado.

[Deciog]

Ajudo, porem ainda não sei VBA, mas estou apredendo.

Na minha planilha tenho varias linha e esta com célula formata em moeda e se for negativo em vermelho, são muitas gostaria de soma os positivos separadas dos negativos, é possível, ai vei a pergunta somar conforme a cor

desde ja agradeço

[Henrique]

Deciog,

Para somar os positivos separados dos negativos use a fórmula =SOMASE .
Suponhamos que você tem uma região G3:G8 preenchida com valores positivos e negativos. Use:

Para somar os positivos.

Código: Selecionar todos

=SOMASE(G3:G8;">0";G3:G8)

Para somar os negativos.

Código: Selecionar todos

=SOMASE(G3:G8;"<0";G3:G8)

Espero ter ajudado

[alexandrevba]

Bom dia!!

Olá Deciog , se não consegue adaptar, porque então não posta seu arquivo modelo compactado?

Att