ExcelBanter

ExcelBanter (https://www.excelbanter.com/)
-   Excel Worksheet Functions (https://www.excelbanter.com/excel-worksheet-functions/)
-   -   Summ figures that are not struck-through (https://www.excelbanter.com/excel-worksheet-functions/193535-summ-figures-not-struck-through.html)

AndyKC

Summ figures that are not struck-through
 
I have a column of figures and a separate cell that displays their sum. I'd
like to be able to exclude from the summing process, the figures in that
column that are struck-through. Can anyone suggest a way of doing this?

Thanks

Andy

Héctor Miguel

Summ figures that are not struck-through
 
hi, Andy !

I have a column of figures and a separate cell that displays their sum.
I'd like to be able to exclude from the summing process, the figures in that column that are struck-through.
Can anyone suggest a way of doing this?


you need the same approach as for sum/count cells with certain color
do a google search and you will get a lot of sample "base" code

or, if the Font.Strikethrough property is set in a sort of format condition...
you could use the same condition to exclude these cells from the summing operation

however (AFAIK) there is no any event that can trapp a simple format-change in your cells :-(

if any doubts (or further information)... would you please comment ?
hth,
hector.



Gord Dibben

Summ figures that are not struck-through
 
Public Function SumNoStrike(rngSumRange As Range) As Single
Dim rngCell As Range
If IsNumeric(rngCell.Value) Then
If rngCell.Font.Strikethrough = False Then
SumNoStrike = SumNoStrike + rngCell.Value
End If
End If
Next rngCell
End Function

=SumNoStrike(range)


Gord Dibben MS Excel MVP

On Wed, 2 Jul 2008 16:18:00 -0700, AndyKC
wrote:

I have a column of figures and a separate cell that displays their sum. I'd
like to be able to exclude from the summing process, the figures in that
column that are struck-through. Can anyone suggest a way of doing this?

Thanks

Andy




All times are GMT +1. The time now is 10:45 AM.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com