Home |
Search |
Today's Posts |
#1
![]() |
|||
|
|||
![]()
From this group I learned to add a single cell accumulator using the
code on http://www.mcgimpsey.com/excel=AD/accumulator.html Private Sub Worksheet_Change(ByVal Target As Excel.Range) Static dAccumulator As Double With Target If .Address(False, False) =3D "A1" Then If Not IsEmpty(.Value) And IsNumeric(.Value) Then dAccumulator =3D dAccumulator + .Value Else dAccumulator =3D 0 End If Application.EnableEvents =3D False .Value =3D dAccumulator Application.EnableEvents =3D True End If End With End Sub I was able to get it working for the cell I needed "C8" instead of "A1", but I would like it running on multiple cells (all running an accumulator). What do I need to change in the code to accomplish this? The cells I need this for are C8 through O8 & C9 through O9 Thanks! |
Thread Tools | Search this Thread |
Display Modes | |
|
|
![]() |
||||
Thread | Forum | |||
Adding colour to a range of cells based on one of the cells v... | Excel Discussion (Misc queries) | |||
adding cells that contain formulas that have returned error messag | Excel Worksheet Functions | |||
Adding contents of cells by clicking in Excel 2002 | Excel Discussion (Misc queries) | |||
ADDING SUM TOTAL OF MORE THAN 30 CELLS IN A COLUMN TOGETHER - WON. | Excel Discussion (Misc queries) | |||
ADDING CELLS WHICH ARE <> THAN OTHER CELLS | Excel Worksheet Functions |