I need to know if there is a way to create a formula that will allow me to
enter multiple values in a cell at different times and this formula will sum
there values.
Example:
I would enter 10 in cell B3.
An hour later I might enter 25 also in cell B3.
After the second entry I would want it to automaticaly display 35.
Is this possible and how would it be done?
Thanks for ...
At the bottom there is a formula solution turning on iterations
http://www.mcgimpsey.com/excel/accumulator.html
--
Regards,
Peo Sjoblom
"Brad Grow" <Brad
And make note of the caveat about having no "audit trail" for error
checking.
Gord Dibben MS Excel MVP
On Wed, 28 Oct 2009 08:27:59 -0700, "Peo Sjoblom" > wrote:
>At the bottom there is a formula solution turning on iterations
>
> http://www.mcgimpsey.com/excel/accumulator.html
OK. This is great- it can be done!
Pretty new at this so what do I do with this code? Copy and paste somewhere?
Thanks!
"Peo Sjoblom" wrote:
> At the bottom there is a formula solution turning on iterations
>
> http://www.mcgimpsey.com/excel/accumulator.html
>
> --
>
>
> Regards,
>
>
> Peo Sjoblom
>
>
> "Brad Grow" <Brad
Here you go
http://www.mvps.org/dmcritchie/excel/install.htm
--
Regards,
Peo Sjoblom
"Brad Grow" > wrote in message
...
> OK. This is great- it can be done!
>
> Pretty new at this so what do I do with this code? Copy and paste
> somewhere?
>
> Thanks!
>
> "Peo Sjoblom" wrote:
>
>> At the bottom there is a formula solution turning on iterations
>>
>> ...
OK. Finally got back on this little project and got it to work. Now how can
I make this work for more than one cell on a worksheet? I have played with
it a little bit and I can make it work anywhere on the worksheet, but only
one spot. Also is there any potential problems by having it apply to a range
of cells?
Thank you agaun for your time and assistance.
"Peo Sjoblom" wrote:...
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Static dAccumulator As Double
Const WS_RANGE As String = "A1:A10" 'adjust range to suit.
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
With Target
If Not IsEmpty(.Value) And IsNumeric(.Value) Then
dAccumulator = dAccumulator + .Value
Else
...
Really appreciate all the help you guys have given. I'd still be at square
one with this if it wasn't for you.
Gord; I was actually referring to having the original accumulator work in
many cells independently of each other. This code seems to make cells A1
thru A10 Accumulate in each cell but then as you go down the column they are
summing themselves up as well. Does that make ...
Poor testing on my part.
I will try to come up with something that works over a range of cells.
In the meantime hang in.........someone else may post a solution.
Gord
On Tue, 10 Nov 2009 19:31:25 -0800, Brad Grow
> wrote:
>Really appreciate all the help you guys have given. I'd still be at square
>one with this if it wasn't for you.
>
>Gord; I was actually referring to ...
Give this a try
Option Explicit
Dim oldval As Variant
Const WS_RANGE As String = "D6:K36"
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then
oldval = Target.Value 'store value of selected cell
End If
End Sub
Private Sub Worksheet_Change(ByVal Target As Range)
'On Error GoTo ws_exit:
...
Just a note...........
Does not trap for errors created by user entering text string.
If you need that post back.
Gord
On Wed, 11 Nov 2009 12:20:07 -0800, Gord Dibben <gorddibbATshawDOTca> wrote:
>Give this a try
>
>Option Explicit
>Dim oldval As Variant
>Const WS_RANGE As String = "D6:K36"
>
>Private Sub Worksheet_SelectionChange(ByVal Target As Range)
> If Not ...
The one worksheet_change event has a trap to re-enable events if an error occurs. I had remmed out that line when testing and forgot to unrem it. Try this version of the change_event Private Sub Worksheet_Change(ByVal Target As Range) On Error GoTo ws_exit: Application.EnableEvents = False If Not Intersect(Target, Me.Range(WS_RANGE)) Is Nothing Then With Target If Application.IsNumber(.Value) Then 'checks for text .Value = .Value +...
Gord: Great- I got it to work! One more question and this will be over. If an error comes up(due to a mistake on my part) it seems that the event stops working. How do I restart it? I understand your concern about having an accumulator of this size. This is one of those situations where this fits my purpose perfectly. This application use fairly small numbers and is not that critical- a small mistake here or there just won't end the...
Here you go http://www.mvps.org/dmcritchie/excel/install.htm -- Regards, Peo Sjoblom "Brad Grow" > wrote in message ... > OK. This is great- it can be done! > > Pretty new at this so what do I do with this code? Copy and paste > somewhere? > > Thanks! > > "Peo Sjoblom" wrote: > >> At the bottom there is a formula solution...
I need to know if there is a way to create a formula that will allow me to enter multiple values in a cell at different times and this formula will sum there values. Example: I would enter 10 in cell B3. An hour later I might enter 25 also in cell B3. After the second entry I would want it to automaticaly display 35. Is this possible and how would it be done? Thanks for your help.
Thread profile page for "Formula question??" on http://excelbanter.com.
This report page is a snippet summary view from a single thread "Formula question??", located on the Message Board at http://excelbanter.com.
This thread profile page shows the thread statistics for: Total Authors, Total Thread Posts, and Thread Activity