Comments on: Selection Stats

By: Bcole

Bcole — Thu, 08 Jan 2009 19:05:00 +0000

One more thing.
I was having issues with Autofilter and correct calculation.
I added a line redefining Target as only Visible cells and test great so far.
Insert before Calculations (^ = existing row to show code line reference):

^ 'Caclulate stats
' Target redefined to select only visible cells
Set Target = Target.SpecialCells(xlVisible)

^ vAvg = Application.Average(Target)
^...

Please post back if this doesn't work for you.

bcole

By: Bcole

Bcole — Thu, 08 Jan 2009 17:41:00 +0000

This is great! I have been attempting a version for myself, but was unable to get other excel Status Bar messages to come through. Well done.
I loaded a simple Run macro in the 'ThisWorkbook' Object of my personal file and it starts the calc on open:
Private Sub Workbook_Open()
Run "InitializeApp()"
End Sub
Thanks again,
bcole

By: Pushpender

Pushpender — Thu, 25 Dec 2008 16:53:00 +0000

Sorry guys.. Its working now. I did a mistake earlier in copy pasting the code.
Thanks to the code writer/s.

By: pushpender

pushpender — Sat, 20 Dec 2008 12:25:00 +0000

Hi
I tried this eaxtly but could not toggle status bar with different outputs? Am i doing something stupid?

By: mike cave

mike cave — Mon, 12 Feb 2007 12:05:00 +0000

Hey guys do you know i i can add a custom function to this, is i called my function "CountErrors"???

Thanks!

Mike

By: Dick Kusleika

Dick Kusleika — Wed, 31 Jan 2007 21:18:00 +0000

Julie: You could wrap all the results in a

Format

function. For example, you could format the average like

Application.StatusBar = "Average: " & Format(CStr(vAvg), "#,##0.00") & " | " & _

By: Julie

Julie — Wed, 31 Jan 2007 17:20:00 +0000

This is great! The only thing that I would like to change (but I'm not sure how) is the formatting of the results that appear on the taskbar.

Is there a way to round the average to 2 decimal places and add commas to the larger numers (i.e. 1,000,000 instead of 1000000)?

I'm definitely a beginner at writing Macros, so I have no idea how I would accomplish this. Any help would be greatly appreciated!

Thanks!

Julie

By: scott

scott — Mon, 13 Dec 2004 12:55:00 +0000

Sorry, ignore my last comment. Its working !

Thanks

Scott

By: scott

scott — Mon, 13 Dec 2004 12:52:00 +0000

I have followed the instructions, and added this code into a class module within my worksheet.
I can't get the status-bar at the bottom to change to show each of the values (sum, average, min, max etc).

Am I doing something stupid ? or not doing something which I should ?

Sorry, but I am new to advanced VBA and any help gratefully received.

Thanks

Scott.

By: Greg

Greg — Sat, 11 Dec 2004 00:45:00 +0000

Good idea - I've wished for this ever since seeing it in a version (don't remember which one) of Quattro Pro.

I'm new to the site - I just came across it searching for help on another problem. I can tell it's going to be a good resource.

Greg