Solved: multiply statusbar

Quote:

---

Originally Posted by anandbohra

Hi XLD
tried your code but it is not working

one bug found & resolved
as on workbook open event u mention
[VBA]call Sbinfo[/VBA]
which actualy was

[VBA] Call ShowSBInfo[/VBA]


but then also on click it reset the statusbar but not showing the result based
on selection changes

---

Works fine for me.

You need to understand that the menu item is a toggle. Starts with no statusbar display, you click it and a check mark appears and the statusbar displays. Cliuck again, the check mark goes and no statusbar display.

i am interesting now in, if it is possible to get to clipboard the amount from status bar (from the new funcion) after clicking on funcion. F.e. after clicking on SUM, get to clip amount of sum, after click count, give count...
it will be very helpfull
but this is only my imagine :)

Don't think so. I can't see how we can determine that you clicked on the statusbar and whereabouts in that window.

ok and is it possible only for one of our funcions
i mean, that after clicking on statusbar it get SUM to clip

what do you mean?

Quote:

---

Originally Posted by xld

Works fine for me.

You need to understand that the menu item is a toggle. Starts with no statusbar display, you click it and a check mark appears and the statusbar displays. Cliuck again, the check mark goes and no statusbar display.

---

how it can work fine as "Sbinfo " is not defined in your code it is "ShowSBInfo "

pl check at your end & now it works fine for me also :yes

You are great XLD :beerchug:
:friends: :friends: :friends:

Quote:

---

Originally Posted by anandbohra

how it can work fine as "Sbinfo " is not defined in your code it is "ShowSBInfo "

---

I did correct that bit, but that was only initialising the statusbar, it wasn't fundamental to the functionality.

guys i have other idea,
is it possible to create button wich will insert concrete amount from status bar?
f.e. - one button for sum, other for avarage ...?

i think this way
it will remember last value, greater as 0. I select range, it show f.e. sum = 1000 and then i click on blank cell (the sum of this cell will be 0) and if i click on button, it will paste 1000
:)
it will be great...
thx

pls. one more question, i hope it will be the last to this topic.
Code works great, but now, if i run my other macros, it will always look for change in cell. Always, when i have in my other code any command, which change content of cell, the macro continues/swich to the this statusbar macro (i see it in debug)...and i don know why, some codes, stop works. How can i stop using "status bar macro" during running other macro? maybe som command "stop using privat macro statusbar"?
Can something like this?
thx

.mistake

hi,
pls. why this code for module

Quote:

---

Originally Posted by xld

and this to a standard code module
[vba]


Global SBCtl As CommandBarControl

Public Function ToggleStatusbar()
If SBCtl.State = msoButtonDown Then

SBCtl.State = msoButtonUp
Application.StatusBar = False
Else

SBCtl.State = msoButtonDown
ShowSBInfo
End If
End Function

Public Function ShowSBInfo()
Dim statusLine As String

On Error Resume Next
With Application.WorksheetFunction
statusLine = "Sum=" & .Sum(Selection)
statusLine = statusLine & "; Average=" & .Average(Selection)
statusLine = statusLine & "; Non-blank=" & .CountA(Selection)
statusLine = statusLine & "; Min=" & .Min(Selection)
statusLine = statusLine & "; Max=" & .Max(Selection)
End With

Application.StatusBar = statusLine
End Function
[/vba]

---

doenst works with modified statusbar command which i use ?

Code:

---

statusLine = statusLine & "SUMA v Sk=" & Format(.Subtotal(109, Target) * 30.126, "##,##0.00 " & "Sk")
    statusLine = statusLine & "    Priemer=" & Format(Round(.Subtotal(101, Target), 1), "##,##0.00")
    statusLine = statusLine & " ||    Počet=" & .Subtotal(103, Target)
    statusLine = statusLine & "              Suma=" & Format(.Subtotal(109, Target), "##,##0.00")

---

it is appear nothing in statusbar :(
thx