Hello,

It would seem what I was looking for all this time was called an accumulator.

Is there some way to alter the code below to link up to a page in another
workbook?

In other words, a number would be typed in sheet 1 of another work book and
this formula would take that number and add it and total it all the while
keeping the running total.

Thank you muchly.

-Bad



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

This line:
Range("B1").Value = Range("B1").Value + .Value
says to add the value to B1 of the same sheet.

So

worksheets("someothersheet").Range("B1").Value _
= worksheets("someothersheet").Range("B1").Value + .Value

BadBoy wrote:

Hello,

It would seem what I was looking for all this time was called an accumulator.

Is there some way to alter the code below to link up to a page in another
workbook?

In other words, a number would be typed in sheet 1 of another work book and
this formula would take that number and add it and total it all the while
keeping the running total.

Thank you muchly.

-Bad

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

--

Dave Peterson

Good morning,

You Sir, my wife will have your children!

Thank you very much for the response. (Insert happy face here)

-Bad

"Dave Peterson" wrote:

This line:
Range("B1").Value = Range("B1").Value + .Value
says to add the value to B1 of the same sheet.

So

worksheets("someothersheet").Range("B1").Value _
= worksheets("someothersheet").Range("B1").Value + .Value

BadBoy wrote:

Hello,

It would seem what I was looking for all this time was called an accumulator.

Is there some way to alter the code below to link up to a page in another
workbook?

In other words, a number would be typed in sheet 1 of another work book and
this formula would take that number and add it and total it all the while
keeping the running total.

Thank you muchly.

-Bad

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

--

Dave Peterson