Página 1 de 1

Somar conforme cor da células

Enviado: 01 Set 2015 às 14:37
por 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

Re: Somar conforme cor da células

Enviado: 01 Set 2015 às 15:30
por 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.

Somar conforme cor da células

Enviado: 02 Set 2015 às 08:09
por 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.

Somar conforme cor da células

Enviado: 02 Set 2015 às 13:32
por 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

Somar conforme cor da células

Enviado: 03 Set 2015 às 08:24
por 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

Re: Somar conforme cor da células

Enviado: 03 Set 2015 às 08:25
por alexandrevba
Bom dia!!

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

Att