View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
Chip Pearson Chip Pearson is offline
external usenet poster
 
Posts: 7,247
Default Summings cells in Italics

Luke,

This can be done only with VBA code:

Function SumItalics(InputRange As Range) As Double
Dim Total As Double
Dim Rng As Range
For Each Rng In InputRange.Cells
If IsNumeric(Rng.Value) = True Then
If Rng.Font.Italic = True Then
Total = Total + Rng.Value
End If
End If
Next Rng
End Function

You can call this from a cell with a formula like

=SumItalics(A1:A100)


--
Cordially,
Chip Pearson
Microsoft MVP - Excel
Pearson Software Consulting LLC
www.cpearson.com
(email on the web site)



"Luke" wrote in message
...
Is there a way to sum ONLY the values in Italics in a column of data?

Any help would be most appreciated