Can I add values of a column that are only in bold format?

  • Thread starter Thread starter Bytemylobster
  • Start date Start date
B

Bytemylobster

Is there a way to add the values of a column, adding just the numbers that
are in bold format?
 
Give this a try.

Sub SumTheBold()
Dim Mud As Range
Dim cell As Range
Dim i As Integer

Set Mud = Range("A1:A5")

For Each cell In Mud
If cell.Font.Bold = True Then
i = cell.Value + i
End If
Next

MsgBox i
End Sub

HTH
Regards,
Howard
 
Hi,

You would need a UDF for that. Alt+F11 to open Vb editor. Right click on
'This Workbook' and insert module and paste the code below in

call with

=sumbold(a1:a10)


Function SumBold(Rng As Range) As Double
Dim c As Range, TempSum As Double
Application.Volatile
TempSum = 0
On Error Resume Next
For Each c In Rng.Cells
If c.Font.Bold = True Then
TempSum = TempSum + c.Value

End If
Next c
On Error GoTo 0
Set c = Nothing
SumBold = TempSum
End Function

Mike
 
Give this a try.

Sub SumTheBold()
Dim Mud As Range
Dim cell As Range
Dim i As Integer

Set Mud = Range("A1:A5")

For Each cell In Mud
If cell.Font.Bold = True Then
i = cell.Value + i
End If
Next

MsgBox i
End Sub

HTH
Regards,
Howard
Click to expand...


Get in mah Hard Drive!
 
Back
Top