Summarizing data

**Just James** · 04-26-2011, 05:01 PM

Here is what I have:

Invoice Job # Cost Crt Reg amount OT amount Total Amount Total Time
5566 96870 36 120.00 0.00 120.00 8.00
5566 96870 36 120.00 0.00 120.00 8.00
5566 96870 36 120.00 0.00 120.00 8.00
5566 96870 36 120.00 0.00 120.00 8.00
5566 96870 36 120.00 0.00 120.00 8.00
5567 61110 33 120.00 0.00 120.00 8.00
5567 61110 23 0.00 67.50 67.50 3.00
5567 61110 33 120.00 0.00 120.00 8.00
5567 61110 33 120.00 0.00 120.00 8.00
5567 61110 23 120.00 45.00 165.00 10.00
5567 61110 23 120.00 0.00 120.00 8.00
5567 61110 23 0.00 213.75 213.75 9.50
5568 38316 43 60.00 0.00 60.00 4.00
5568 38316 38 60.00 0.00 60.00 4.00
5568 38316 38 60.00 0.00 60.00 4.00
5568 38316 23 60.00 0.00 60.00 4.00
5568 38316 23 0.00 202.50 202.50 9.00
5568 96724 23 120.00 0.00 120.00 8.00
5568 96724 23 120.00 0.00 120.00 8.00
5568 97030 36 60.00 0.00 60.00 4.00
5568 97030 37 60.00 0.00 60.00 4.00

Here is what I want:

Invoice Job CC Amount Time
5566 96870 36 600 40
5567 61110 23 566.25 30.5
5567 61110 33 360 24
5568 38316 23 262.5 13
5568 38316 38 120 8
5568 38316 43 60 4
5568 96724 23 240 16
5568 97030 36 60 4
5568 97030 37 60 4

A pivot table gets me about half way, but it does not fill in all the way. Any ideas?

**stanleydgromjr** · 04-26-2011, 05:12 PM

Just James,

Welcome to the Excel Forum.

To get the most precise answer, it is best to upload/attach a sample workbook (sensitive data scrubbed/removed) that contains an example of your raw data on one worksheet, and on another worksheet your desired results.

The structure and data types of the sample workbook must exactly duplicate the real workbook. Include a clear and explicit explanation of your requirements.

To attach your workbook, click on the New Post button, then scroll down and click on the Go Advanced button, then scroll down and click on the Manage Attachments button.

**stanleydgromjr** · 04-27-2011, 07:54 AM

Just James,

With your titles in row 1, beginning in cell A1.

I am using columns I thru M for the summary area.

Please TEST this FIRST in a COPY of your workbook (always make a backup copy before trying new code, you never know what you might lose).

1. Copy the below code, by highlighting the code and pressing the keys CTRL + C
2. Open your workbook
3. Press the keys ALT + F11 to open the Visual Basic Editor
4. Press the keys ALT + I to activate the Insert menu
5. Press M to insert a Standard Module
6. Where the cursor is flashing, paste the code by pressing the keys CTRL + V
7. Press the keys ALT + Q to exit the Editor, and return to Excel
8. To run the macro from Excel, open the workbook, and press ALT + F8 to display the Run Macro Dialog. Double Click the macro's name to Run it.


Option Explicit
Sub CreateSummary()
' stanleydgromjr, 04/27/2011
' http://www.excelforum.com/excel-general/773864-summarizing-data.html
Dim LR As Long, a As Long
Application.ScreenUpdating = False
Columns("I:M").Clear
Columns("A:C").AdvancedFilter Action:=xlFilterCopy, CopyToRange:=Range("I1"), Unique:=True
Range("I1:M1") = [{"Invoice","Job","CC","Amount","Time"}]
LR = Cells(Rows.Count, "I").End(xlUp).Row
With Range("L2:L" & LR)
  .Formula = "=SUMIFS(F:F,A:A,I2,B:B,J2,C:C,K2)"
  .NumberFormat = "#,##0.00"
End With
With Range("M2:M" & LR)
  .Formula = "=SUMIFS(G:G,A:A,I2,B:B,J2,C:C,K2)"
  .NumberFormat = "#,##0.0"
End With
Columns("I:M").AutoFit
Application.ScreenUpdating = True
End Sub

Before you run the macro, save your workbook, Save As, a macro enabled workbook with the file extionson .xlsm

Then run the CreateSummary macro.