Adding value in single Cell

[prakashjoshi87]

Hi,

pls help me ..

i have value in C2 which is change daily . i want to do C2 value Total at D2 as Running total

like

yesterday c2 value is 10 and d2 value also 10

today c2 value is 5 then d2 value will be 10+5=15

pls suggest me a formula or vb code.

 

[My Aswer Is This]

Try this:
Assuming you enter the value into "C2" manually. Try using this script instead:

Sub Add_Data()
Dim num As Integer
num = InputBox("Enter Amount")
Cells(2, 3).Value = num
Cells(2, 4).Value = Cells(2, 4).Value + Cells(2, 3).Value
End Sub

 

[prakashjoshi87]

Thanks for Reply
its working but its create a inputbox , i don't need inputbox and also if i enter value like 100000 its showing error. and also c2 value not manually entered its formula base

 

[My Aswer Is This]

The script works fine on my machine. Show me the formula in cell "C2"

 

[prakashjoshi87]

"C2" value from another "Data" sheet's cell "F42"

 

[pgc01]

Hi

Insert in the worksheet module:

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Address = "$C$2" Then
    Application.EnableEvents = False
    Range("D2").Value = Range("D2").Value + Range("C2").Value
    Application.EnableEvents = True
End If
End Sub

Each time you type a new value in C2, D2 will update.