Solved

Excel macro for sum on dynamic range

Posted on 2010-11-21
8
1,122 Views
Last Modified: 2012-05-10
Hi,
We have a column A (starting in cell A10) containing Customer IDs.
There's a column C containing different amounts associated with those Customer IDs.
We need to add total sums per Customer IDs at the last line of a listed Customer ID. See an example attached (number of Customers/rows keeps changing - is dynamic).

Then we need (per every CustomerID) to add a percentage amount field and highlight the top amounts which contribute to 80% or more of the all charged amounts (as shown in the sample).
Thank you.
J.
CutomerIDs-amounts.xlsx
0
Comment
Question by:janime
  • 3
  • 2
  • 2
  • +1
8 Comments
 
LVL 23

Expert Comment

by:Michael74
ID: 34182651
This code should solve the issue for you. I have attached the workbook with the macro included as well
Sub calc()
   Dim i As Long, custID As String, amount As Double, percent As Double
   i = 10
   custID = Range("A" & i).Value
   While Range("A" & i).Value <> ""
      If custID = Range("A" & i).Value Then
         amount = amount + Range("C" & i).Value
         percent = percent + Range("D" & i).Value
         If percent >= 0.8 Then
            Range("E" & i).Value = percent
            percent = 0
         End If
         If custID <> Range("A" & i + 1).Value Then Range("E" & i).Value = amount
      Else
         custID = Range("A" & i).Value
         amount = Range("C" & i).Value
         percent = Range("D" & i).Value
         If percent >= 0.8 Then
            Range("E" & i).Value = percent
            percent = 0
         End If
      End If
      i = i + 1
   Wend
End Sub

Open in new window

CutomerIDs-amounts-1.xlsm
0
 
LVL 59

Expert Comment

by:Chris Bottomley
ID: 34182677
Alternatively how about a formula to do it for you?

i.e. in cell: F10 paste the following and drag down:

=IF(COUNTIF(A$10:A$1000,A10)=COUNTIF(A$10:A10,A10),SUMIF(A$10:A10,A10,C$10:C10),"")

Chris
0
 
LVL 50

Expert Comment

by:teylyn
ID: 34182760
Hello,

without any VBA, this formula

=IF(AND(SUMPRODUCT(--($A9:A$10=A10),$D9:D$10)<0.8,SUMPRODUCT(--($A$10:A10=A10),$D$10:D10)>0.8),SUMPRODUCT(--($A$10:A10=A10),$D$10:D10),IF(A11<>A10,SUMPRODUCT(($A$10:A10=A10)*($C$10:C10)),""))

will identify the first percentage sum greater than 80% and will sum the total per Customer ID in the same column.

You can then use conditional formatting with the formula rule

=OR(SUMPRODUCT(--($A$10:$A10=$A10),$D$10:$D10)<0.8,ISNUMBER($G10))

to apply the cell shading.

see attached.

cheers, teylyn
Copy-of-CutomerIDs-amounts.xlsx
0
 

Author Comment

by:janime
ID: 34182956
Hi,
thanks for your replies, none of them however ADDS a new column with recalculated percentage (as per my sample). It seems that your scenarios take into account that the amount percentage is already there (recalculated).
"we need (per every CustomerID) to add a percentage amount field and highlight the top amounts which contribute to 80% or more of the all charged amounts".
I guess this can be accommodated by macro only.
0
Threat Intelligence Starter Resources

Integrating threat intelligence can be challenging, and not all companies are ready. These resources can help you build awareness and prepare for defense.

 
LVL 50

Accepted Solution

by:
teylyn earned 500 total points
ID: 34184290
OK,

see the attached workbook. The macro first creates the sum total for each customer in column E, then enters the formula to calculate the percentages in column D, then identifies the cell where the running total of the percentage goes over 80% and formats this and the rows above with a background fill.

cheers, teylyn
Copy-of-CutomerIDs-amounts-1.xlsm
0
 
LVL 23

Expert Comment

by:Michael74
ID: 34184311
Janime

Does this meet your needs

 CutomerIDs-amounts-1.xlsm
Sub calc()

   Dim i As Long, custID As String, amount As Double, percent As Double, row As Long

   i = 10

   row = 10

   custID = Range("A" & i).Value

   While Range("A" & i).Value <> ""

      If custID = Range("A" & i).Value Then

         amount = amount + Range("C" & i).Value

         If custID <> Range("A" & i + 1).Value Then

            Range("E" & i).Value = amount

            Range("E" & i).NumberFormat = "#,##0.00"

            Range("A" & i & ":E" & i).Borders(xlEdgeBottom).Weight = xlMedium

            Call percentages(row, i, amount)

         End If

      Else

         custID = Range("A" & i).Value

         amount = Range("C" & i).Value

         percent = Range("D" & i).Value

         row = i

      End If

      i = i + 1

   Wend

End Sub



Sub percentages(startRow As Long, endRow As Long, amount As Double)

   Dim i As Long, percent As Double, highlighted As Boolean

   highlighted = False

   For i = startRow To endRow

      Range("D" & i).Value = Range("C" & i).Value / amount

      Range("D" & i).NumberFormat = "0.00%"

      percent = percent + Range("D" & i).Value

      If percent >= 0.8 And Not highlighted Then

            Range("E" & i).Value = percent

            Range("E" & i).NumberFormat = "0.00%"

            Range("A" & startRow & ":D" & i).Interior.Color = 10092543

            Range("A" & i & ":E" & i).Borders(xlEdgeBottom).Weight = xlThin

            highlighted = True

      End If

   Next

End Sub

Open in new window

0
 

Author Closing Comment

by:janime
ID: 34184721
Excellent! Thank you.
0
 

Author Comment

by:janime
ID: 34184740
Sorry, Michael74, I already gave points to teylyn. I did not notice your post. His macro did the work. So hope next time I'll compensate you for your effort. Thanks once again.
0

Featured Post

Highfive Gives IT Their Time Back

Highfive is so simple that setting up every meeting room takes just minutes and every employee will be able to start or join a call from any room with ease. Never be called into a meeting just to get it started again. This is how video conferencing should work!

Join & Write a Comment

Enums (shorthand for ‘enumerations’) are not often used by programmers but they can be quite valuable when they are.  What are they? An Enum is just a type of variable like a string or an Integer, but in this case one that you create that contains…
Since upgrading to Office 2013 or higher installing the Smart Indenter addin will fail. This article will explain how to install it so it will work regardless of the Office version installed.
This Micro Tutorial will demonstrate on a Mac how to change the sort order for chart legend values and decrpyt the intimidating chart menu.
This Micro Tutorial will demonstrate in Google Sheets how to use the HYPERLINK function to create live links inside your spreadsheet.

759 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

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now