Adding in ONE cell

**ngocpdn** · 12-12-2011, 05:59 AM

hi guys,

thanks in advance.

Short version: I will have have a TOTAL number in A1 and in a different cell (C1) i will be inputting a new number ...
i want to be able to see the remaining in B1 and continously input the number into C1..
I was hoping to find a formula from anyone that knows what im talking about.

the main problem is entering the number into the same cell (C1) each time and seeing the remainder in a different ccell that stays the same (B1)..like a calculator...

Thanks for the assistance....
ps. i know i will face the problem of no "paper trail" but i dont really need it.. thanks guys

**arlu1201** · 12-12-2011, 06:23 AM

Its simple. Just put =A1-C1 in cell B1. It will keep updating as you change the values in either cell.

**ngocpdn** · 12-12-2011, 06:47 AM

Hi arlu1202

Thanks heaps for responding ....I was hoping to be able to keep typing into C1 and the remainder showing into B1....but I will be going back a few times a day to add more to C1...

In essence ..it will act like a calculator ...to tell me how many pieces I have left.I will have multiple rows of data,It will need to do the same functions

IE:
A1: 3000
B1: ____
C1: 50 ....later 150 ..3..70...etc....

At each interval B1 changes and gives the remaining amount

**arlu1201** · 12-12-2011, 07:01 AM

Yes, the formula that i gave you above will do exactly the same thing.

**ngocpdn** · 12-12-2011, 07:48 AM

Hey again....

I think I explained it all wrong....
C1 will need to consider what I have previously entered into it and give the renaming ..

Using my example above B1 will then say
2950
2700
2797
2727
...etc ..

Is that even possible to do???
thanks again

**arthurbr** · 12-12-2011, 07:53 AM

To be on the safe side, posting a sample sheet with what you have and what you need would help

**ngocpdn** · 12-12-2011, 08:18 PM

Hi again...
I was pulling my hair out ....Anyways, i found this:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
With Target
If .Address(False, False) = "A1" Then
If IsNumeric(.Value) Then
Application.EnableEvents = False
Range("B1").Value = Range("B1").Value + .Value
Application.EnableEvents = True
End If
End If
End With
End Sub

Is there a way to make this work for approx 500 different rows? (other than copy/pasting it 500 times? )
i've attached a worksheet, if possible please have a look and hopefully that makes more sense. Thanks soooooo much

**vlady** · 12-12-2011, 08:46 PM

Hello

Use macro instead on change event, you'll have trouble when entering a value for A1

Please Login or Register  to view this content.

i'm just showing your idea..
up to you to develop further.

**arthurbr** · 12-13-2011, 04:37 AM

Ngoc

Your post does not comply with Rule 3 of our Forum RULES. Use code tags around code. Posting code without them makes your code hard to read and difficult to be copied for testing. Highlight your code and click the # at the top of your post window. For more information about these and other tags, found here