Hello again,

I have a spreadsheet with quite a few formulas. There is data going down pretty far. What I'd like to do is create a comand button that will add the entire column (for this example, it's going to be "O") and have a pop up window with the total (the command button would force the window open). I realize I can just have a total at the bottom of the column, but the column is way far down. Maybe it's easier for the window to just report what's in that total cell?

Thanks,

J-

Hi Jonathan,

Am Mon, 15 Apr 2013 13:01:26 +0100 schrieb JonathanK1:

I have a spreadsheet with quite a few formulas. There is data going
down pretty far. What I'd like to do is create a comand button that
will add the entire column (for this example, it's going to be "O") and
have a pop up window with the total (the command button would force the
window open). I realize I can just have a total at the bottom of the
column, but the column is way far down. Maybe it's easier for the
window to just report what's in that total cell?

e.g.:
Private Sub CommandButton1_Click()
Dim LRow As Long

LRow = Cells(Rows.Count, "O").End(xlUp).Row
MsgBox "Sum= " & WorksheetFunction.Sum(Range("O1:O" & LRow))
End Sub


Regards
Claus Busch
--
Win XP PRof SP2 / Vista Ultimate SP2
Office 2003 SP2 /2007 Ultimate SP2

Hello again,

I have a spreadsheet with quite a few formulas. There is data going
down pretty far. What I'd like to do is create a comand button that
will add the entire column (for this example, it's going to be "O")
and have a pop up window with the total (the command button would
force the window open). I realize I can just have a total at the
bottom of the column, but the column is way far down. Maybe it's
easier for the window to just report what's in that total cell?

Thanks,

J-

Can you put the total at the top? This is what I (sometimes) do for
lengthy data where appropriate!

--
Garry

Free usenet access at http://www.eternal-september.org
Classic VB Users Regroup!
comp.lang.basic.visual.misc
microsoft.public.vb.general.discussion