Página 1 de 1
Somando as cores
Enviado: 25 Set 2017 às 13:03
por iGoRhAw
Coluna A Coluna B
R$200,00
R$100,00
R$50,00
R$600,00
R$60,00
R$180,00
Qual formula utilizo para que os valores em "Negrito" da coluna "A" sejam somados na coluna "B"? E isso para os valores que não estejam em "negrito" também?
Obrigado...
Re: Somando as cores
Enviado: 25 Set 2017 às 13:15
por Deciog
iGoRhAw
Só em VBA ou UDF
Decio
Re: Somando as cores
Enviado: 25 Set 2017 às 13:23
por FelipeMGarcia
Igor,
Veja se é isto o que precisa.
abs
Re: Somando as cores
Enviado: 25 Set 2017 às 14:45
por iGoRhAw
Não seria bem isso Felipe...mas obrigado pelo anexo!
O que estou precisando é o seguinte: Tenho uma coluna onde tenho diversos valores. Esses valores, os que foram já pagos estão na fonte de cor "preta", e os que ainda não foram pagos, estão na fonte de cor "vermelha".
Gostaria de uma formula que calcula-se esses valores por cor.
Se não tiver como calcular por cor de fonte, pode ser por cor de célula.
Somando as cores
Enviado: 25 Set 2017 às 15:02
por FelipeMGarcia
Igor, o que te mandei faz exatamente isso, veja que tem vários exemplos de contar cor, somar cor, somar por cor de preenchimento, etc
Re: Somando as cores
Enviado: 25 Set 2017 às 15:22
por iGoRhAw
Ah ok Felipe...fui olhar com calma e vc tem razão...
Muito obrigado pela ajuda mais uma vez!!!
Re: Somando as cores
Enviado: 25 Set 2017 às 16:53
por wesleyribeiro123
Igor
Boa tarde,
Brother, percebi que deseja que tua planilha some apenas os valores negritos ou valores não negritos, correto?
Abra o teu VBA e cole o código abaixo:
Código: Selecionar todosFunction SomarFormatText(rData As Range, cellRefColor As Range)
Dim indRefColor As Long
Dim cellCurrent As Range
Dim sumRes
Application.Volatile
sumRes = 0
indRefColor = cellRefColor.Cells(1, 1).Font.Bold
For Each cellCurrent In rData
If indRefColor = cellCurrent.Font.Bold Then
sumRes = WorksheetFunction.Sum(cellCurrent, sumRes)
End If
Next cellCurrent
SomarFormatText = sumRes
End Function
Ele deve funcionar exatamente igual os códigos informados pelo nosso amigo Felipe, a única alteração que fiz foi no conceito pois as funções dele buscavam a cor da celula ou a cor do texto e nenhuma verificava se o texto estava ou não em negrito.
Em anexo deixo um exemplo para que verifique se era bem isso que pretendia.