I receive in one cell in exel real time data and i want to sum that dat
in other cell. My english is bad so i will try with example:
In A1 i receive different numbers and i want to sum A1 value + previou
A1 value in A2 . and by end of the day in A2 i want to have cumulativ
value of A1.
I hope u understand my english,
thx a lo

--
Message posted from http://www.ExcelForum.com

You cannot have A2 accumulate the sum of all values that have ever
appeared in A1 with a worksheet formula. You could write a macro tied
to the worksheet change event that would do it, but that is generally
unadvisable:
- How do you correct it if there was an erroneous entry in A1?
- You would have no history from which to verify a particular value
in B1.

Jerry

alchemist < wrote:

I receive in one cell in exel real time data and i want to sum that data
in other cell. My english is bad so i will try with example:
In A1 i receive different numbers and i want to sum A1 value + previous
A1 value in A2 . and by end of the day in A2 i want to have cumulative
value of A1.
I hope u understand my english,
thx a lot

Thx Lerry,
but that is my problem.I know nothing about macros and dont know how t
create them.
I want to try with macros

--
Message posted from http://www.ExcelForum.com

Take a look here for both macro and worksheet function methods (using
circular references):

http://www.mcgimpsey.com/excel/accumulator.html

Since you're unfamiliar with macros, also take a look at David
McRitchie's "Getting Started with Macros":

http://www.mvps.org/dmcritchie/excel/getstarted.htm


In article ,
alchemist wrote:

but that is my problem.I know nothing about macros and dont know how to
create them.
I want to try with macros.

Hello,

Click on the work sheet tab, click on viwe code, in the window that
opens, delet the text that is there are paste this in


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

Range("B2").Value = Range("a1").Value + Range("B1").Value
End If

End Sub

this show do the trick

Hello,

Click on the work sheet tab, click on viwe code, in the window that
opens, delet the text that is there are paste this in


Private Sub Worksheet_Change(ByVal Target As Range)

If Not Application.Intersect(Target, Range("A1")) Is Nothing Then

Range("B2").Value = Range("a1").Value + Range("B1").Value
End If

End Sub

this show do the trick

good luck
ROss

THX a lot JE McGimpsey :)
great site. NOw it work :)
Thx to u again and to all of u for the help!!!!!!!!!!!
Regards from Bulgaria ;

--
Message posted from http://www.ExcelForum.com