HOW TO SUM BOLDED VALUES FROM A CELL RANGE OR MULIPLE CELLS RANGE
SUM IF BOLD do Sum for bolded values and can be used for subtotals from a range of values to save time by adding each value manually. Thus we use the subtotals bold. The formula can be used for multiple range of values without any connection between them.
Formula code
===========================
Public Function SumBold( _
ParamArray vInput() As Variant) As Variant
Dim rParam As Variant
Dim rCell As Range
Dim vTemp As Variant
Application.Volatile
On Error GoTo ErrHandler
For Each rParam In vInput
If TypeName(rParam) = "Range" Then
With rParam
For Each rCell In Intersect( _
.Cells, .Cells.Parent.UsedRange)
With rCell
If .Font.Bold Then
If IsError(.Value) Then
vTemp = .Value
Exit For
ElseIf VarType(.Value2) = vbDouble Then
vTemp = vTemp + .Value2
End If
End If
End With
Next rCell
End With
End If
Next rParam
SumBold = vTemp
Continue:
On Error GoTo 0
Exit Function
ErrHandler: 'Check for overflow
If Err.Number = 6 Then SumBold = CVErr(xlErrNum)
Resume Continue
End Function
=========================
Function Implementation
Open Excel Worksheet - Type ALT + F11
Access Insert and then click on modules
In the window that will appear paste the code (the function).
Press again ALT+F11
Click on fx or go to insert > function > user defined > SumBold
Use this formula = SumBold(D11:D38) - (D11:D38 is range of your values );
