Este fórum está sendo desativado

[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...

[Deciog]

iGoRhAw

Só em VBA ou UDF

Decio

[FelipeMGarcia]

Igor,

Veja se é isto o que precisa.

abs

[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.

[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

[iGoRhAw]

Ah ok Felipe...fui olhar com calma e vc tem razão...
Muito obrigado pela ajuda mais uma vez!!!

[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 todos

Function 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.