Sum Debit and Credit Balances seperately formatted in Bold

[Nades]

Hi There,

Please can someone assist me with VBA code for the following.

I have printed my Age Analysis into Excel and want to sum up the Debit Balances and Credit Balances separately and only need to sum the totals which are formatted in Bold.

I.E.
sum column N if values are positive and Bold
sum column N if values are negative and Bold

Thank you.

 

[Zach Prins]

Hi,

Copy this code into a module, and you'll be able to use the functions just as a normal sum. SUMPOS to get the total of the positive and bold cells, and SUMNEG for the negative and bold cells.

Function sumpos(rng As Range)

Dim c As Range

For Each c In rng.Cells

If c.Value > 0 And c.Font.Bold = True Then

sumpos = sumpos + c.Value

End If

Next c


End Function

Function sumneg(rng As Range)

Dim c As Range

For Each c In rng.Cells

If c.Value < 0 And c.Font.Bold = True Then

sumneg = sumneg + c.Value

End If

Next c


End Function




​

 

[Nades]

Hi Zach Prins,

Thank you very much that worked perfectly