Accumulator
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 |
Accumulator
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 |
Accumulator
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 |
All times are GMT +1. The time now is 02:34 AM. |
Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
ExcelBanter.com