On Fri, 24 Feb 2006 07:37:30 -0800, "MSweetG222"
wrote:

StarGateFan,

I found a posting on your question. I have cut our conversion and posted
their conversation below.

Here is a modifed version of their UDF to Count Visible Rows:


Function CountVisible(rng As Range)
Dim cell As Range
For Each cell In rng
If Not cell.EntireRow.Hidden Then
CountVisible = CountVisible + 1
End If
Next cell
End Function



The older versions of Excel apparently do not recognize manually hidding
rows as an event that triggers a worksheet calc. I had to press F9 and the
formulas updated to count the rows of the visible rows. Hope that is okay
for your purposes.

Do you know how to incorporate a UDF into your worksheet?
1. Open Worksheet in question
2. Alt F11
3. Insert (on Main Menu Bar)
4. Module (from Drop Down List - Note: NOT Class Module)
5. Cut and Paste above UDF into the module
6. Alt Q (close & return to Excel)
7. Use the UDF like your would any other function formula.
8. Don't forget to save Worksheet

Paste the following into Cell A2
=CountVisible($A$1:A1)

Thank you for such detailed instructions, this is great! I'll try
this out now.

Good Luck!
P.S. I like StarGate also.

<vbg Excellent! I'm a big fan of both series and the movie! :oD

Thx
MSweetG222

================================================= ==

Subject: Sum only visible cells 12/16/2005 8:36 AM PST

By: Bob Phillips In: microsoft.public.excel.programming


If your rows are manually hidden and you wan t to sum the visible rows
pre-2003, you can use this UDF

Function SumVisible(rng As Range)
Dim cell As Range
For Each cell In rng
If Not cell.EntireRow.Hidden Then
SumVisible = SumVisible + cell.Value
End If
Next cell
End Function


=SumVisible(A1:A10)

--
HTH

Bob Phillips

(remove nothere from email address if mailing direct)

"Charlie" wrote in message
...
Thanks, guys. Now all I need to do is get my employer to upgrade to 2003!

"Ron Coderre" wrote:

NICE! Thanks, Tom. I did not know that.
I briefly had XL2003 on my PC, but it wouldn't interface with a legacy
application I need to use. So, alas, I had to back down to XL2002.


***********
Regards,
Ron


"Tom Ogilvy" wrote:

In Excel 2003, subtotal has options to ignore any hidden row - not
just
those rows hidden by a filter.

--
Regards,
Tom Ogilvy

"Ron Coderre" wrote in message
...
If you hide the rows with an advanced filter or an autofilter, you
can use
the sum version of the SUBTOTAL function to display totals for
visible
items.

Example:

Col_A has Name
Col_B has Amount

A2: Name
A3: Bill
A4: Dave
etc

B2: 10
B3: 20
etc

B1: =SUBTOTAL(9,B2:B10)
intially returns 30.
(The 9 in the SUBTOTAL function tells Excel to ADD the amounts,
other
options are AVERAGE, MIN, MAX...etc....check Excel Help)

If you autofilter to only show Bill, the formula wil return 10.

Does that help?

***********
Regards,
Ron


"Charlie" wrote:

Is there a formula to sum only visible cells, so that if I hide a
row
the
formula result will change?

(In B6) =SUMIF(A1:A5,NOT( [cell row hidden] ),B1:B5)

Or will I need to write a function to do this?

TIA
Charlie