Thread: FORMULA
View Single Post
  #3   Report Post  
Posted to microsoft.public.excel.worksheet.functions
Shane Devenshire[_2_] Shane Devenshire[_2_] is offline
external usenet poster
 
Posts: 3,346
Default FORMULA

Hi,

These is no formula to do this, you will need to use VBA. Basically you
want on Worksheet_Change event.

Hi,

Here is an example of event code using the Intersect function:

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Isect As Range
Set Isect = Application.Intersect(Target, [A1])
If Not Isect Is Nothing Then
[B1] = [B1] + [A1]
[A1].Clear
End If
End Sub

Here a number is being entered into A1 and then it is added to the entry in
B1 and then A1 is cleared.

1. To add this code to your file, press Alt+F11,
2. In the VBAProject window, top left side, find your sheet name under your
file name and double click it.
3. Paste in or type the code above.

If this helps, please click the Yes button

Cheers,
Shane Devenshire

"mdriscoll" wrote:

I am not sure if Excel is capable of doing this, but hopefully someone out
there knows. I am trying to create a formula to do the following: In one
cell I will have a running total and in the other cell I want to enter a
number that will carry over to the cell with the running total in turn making
that cell blank until another number is entered.

Example: Cell One, enter the number three, Cell Two, current number 150
will change to 153 and Cell One will go back to a blank cell util used again.

????? This would be a great time saver if this is possible.