Excellent! Thank you,
Alan.
"Jack Sons" <(E-Mail Removed)> wrote in message
news:(E-Mail Removed)...
> Juanpablo,
>
> Yes, it is.
> I got the wonderful code you see below, I think from a MVP.
> Put it in the This Workbook module of your personal.xls.
> Beside AVG and SUM, you also get count, count nums, max and min.
>
> Jack.
> ------------------------------------------------------------------------------------------------------
> Option Explicit
> Public WithEvents xlApp As Application
> Private Sub Workbook_BeforeClose(Cancel As Boolean)
> Set xlApp = Nothing
> Application.DisplayStatusBar = True
> End Sub
> Private Sub Workbook_Open()
> Set xlApp = Application
>
> End Sub
>
> Private Sub xlApp_SheetSelectionChange(ByVal Sh As Object, ByVal Target As
> Range)
>
> On Error Resume Next
> If Target.Count < 2 Then
> Application.StatusBar = False
> Else
> Application.StatusBar = _
> "Average=" & Round(Application.Average(Target), 2) & _
> "; " & _
> "Count=" & Application.CountA(Target) & "; " & _
> "Count nums=" & Application.Count(Target) & _
> "; " & _
> "Sum=" & Format(Round(Application.sum(Target), 2),
> "#,##0.00") & "; " & _
> "Max=" & Application.Max(Target) & "; " & _
> "Min=" & Application.Min(Target)
> End If
> End Sub
> ---------------------------------------------------------------------------
>
>
> "juanpablo" <(E-Mail Removed)> schreef in bericht
> news:B6504489-EE64-4E24-BE6C-(E-Mail Removed)...
>> Is it possible to have the AVG and also at the same time the SUM on the
>> status bar of Excel.
>>
>> JP
>
>
|
