Solved

Running Total in Single Cell for multiple columns

Posted on 2013-01-22
3
305 Views
Last Modified: 2013-01-23
I have this macro which works great but how do I get it to repeat for each row.
Private Sub Worksheet_Change(ByVal Target As Excel.Range)
   
    Range("c3").Select
    Range("d3").Select
    Range("e3").Select
    Range("f3").Select
        Dim cel As Range, targC As Range, tarD As Range, targE As Range, targF As Range
        Set targC = Intersect(Range("h3"), Target)
        Set targD = Intersect(Range("i3"), Target)
        Set targE = Intersect(Range("j3"), Target)
        Set targF = Intersect(Range("k3"), Target)
        On Error Resume Next
        Application.ScreenUpdating = False

        If Not targC Is Nothing Then
            For Each cel In targC
                Range("c3") = Range("c3") + Range("h3")
                'Cells(cel.Row, 8) = Cells(cel.Row, 8) + cel 'Increment total in column H, same row
           
            Next
        End If
        If Not targD Is Nothing Then
            For Each cel In targD
                Range("d3") = Range("d3") + Range("i3")
                'Cells(cel.Row, 9) = Cells(cel.Row, 9) + cel 'Increment total in column I, same row
            Next
        End If
        If Not targE Is Nothing Then
            For Each cel In targE
                Range("e3") = Range("e3") + Range("j3")
                'Cells(cel.Row, 10) = Cells(cel.Row, 10) + cel 'Increment total in column J, same row
            Next
        End If
        If Not targF Is Nothing Then
            For Each cel In targF
                Range("f3") = Range("f3") + Range("k3")
                'Cells(cel.Row, 11) = Cells(cel.Row, 11) + cel 'Increment total in column K, same row
            Next
        End If
   
  End Sub
0
Comment
Question by:LadyDayo
  • 2
3 Comments
 
LVL 23

Expert Comment

by:Michael74
ID: 38808757
I am not sure what you are after?

Could please post a sample workbook so we can see the macro in action and what you would like achieve

Michael
0
 
LVL 26

Accepted Solution

by:
redmondb earned 500 total points
ID: 38809263
Hi, LadyDayo.

Whenever a value in columns H/I/J/K is changed then it's added to the value in the same row in columns C/D/E/F. (Apologies if I haven't understood your requirements.)

The code is...
Option Explicit

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim cel As Range, targC As Range, targD As Range, targE As Range, targF As Range, xTemp As Range

Set xTemp = Intersect(Range("H:K"), Target)
If xTemp Is Nothing Then Exit Sub

Set targC = Intersect(Range("h:H"), Target)
Set targD = Intersect(Range("I:I"), Target)
Set targE = Intersect(Range("J:J"), Target)
Set targF = Intersect(Range("K:K"), Target)

Application.ScreenUpdating = False
On Error Resume Next
Application.EnableEvents = False

    If Not targC Is Nothing Then
        For Each cel In targC
            If cel <> 0 Then Range("C" & cel.Row) = Range("C" & cel.Row) + cel
        Next
    End If
    If Not targD Is Nothing Then
        For Each cel In targD
            If cel <> 0 Then Range("D" & cel.Row) = Range("D" & cel.Row) + cel
        Next
    End If
    If Not targE Is Nothing Then
        For Each cel In targE
            If cel <> 0 Then Range("E" & cel.Row) = Range("E" & cel.Row) + cel
        Next
    End If
    If Not targF Is Nothing Then
        For Each cel In targF
            If cel <> 0 Then Range("F" & cel.Row) = Range("F" & cel.Row) + cel
        Next
    End If
    
Application.EnableEvents = True
On Error GoTo 0
Application.ScreenUpdating = True

End Sub

Open in new window

Regards,
Brian.Increment-on-Change.xlsm
0
 
LVL 26

Expert Comment

by:redmondb
ID: 38810461
Thanks, LadyDayo.

I really didn't expect to get your requirements right first time - however, I keep an eye on "my" questions for a number of weeks after they're closed, so please feel free to post here if you have any issues.

Regards,
Brian.
0

Featured Post

Master Your Team's Linux and Cloud Stack!

The average business loses $13.5M per year to ineffective training (per 1,000 employees). Keep ahead of the competition and combine in-person quality with online cost and flexibility by training with Linux Academy.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

INDEX and MATCH can be used to great effect to replace HLOOKUP and VLOOKUP as it does not have the limitation of needing the data to be sorted so that the reference value is in the first column or row. It also has the ability to perform a bi-directi…
Workbook link problems after copying tabs to a new workbook? David Miller (dlmille) Intro Have you either copied sheets to a new workbook, and after having saved and opened that workbook, you find that there are links back to the original sou…
This Micro Tutorial demonstrates in Microsoft Excel how to consolidate your marketing data by creating an interactive charts using form controls. This creates cool drop-downs for viewers of your chart to choose from.
Although Jacob Bernoulli (1654-1705) has been credited as the creator of "Binomial Distribution Table", Gottfried Leibniz (1646-1716) did his dissertation on the subject in 1666; Leibniz you may recall is the co-inventor of "Calculus" and beat Isaac…

770 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question