Organizing/Summing Data

Hello, I am looking for help on this spreadsheet.

The ISO Entry tab is for manual data entry.

On the Line # tab, I would like all of the information from the ISO Entry tab relisted where any lines that have the same Area Code, Plan Code, System Code, Pipe Size, and Insulation Thickness; The information under Straight Pipe, 90's/45's, Misc, Valves, Flanges is summed up and shown as 1 line item instead of multiple line items.

On the Pipe Size tab, I would like the information listed where any line that has the same Pipe Size and Insulation Thickness; The information under Straight Pipe, 90's/45's, Misc, Valves, Flanges is summed up and shown as 1 line item instead of multiple line items.

Let me know if you have any questions and thanks for the help!

Another way :

PHP Code: 

Sub Demo1()
    Dim C, N%, R&, K$, V
        C = [{0,0,0;"A:E","A:J","G:K";"D:E","D:J","D:H"}]
    For N = 2 To 3
        Worksheets(N).Cells(1).Value = "¤"
        Worksheets(N).UsedRange.Offset(1).Clear
    Next
         Application.ScreenUpdating = False
    With Worksheets(1).UsedRange.Rows
        For R = 2 To .Count
            For N = 2 To 3
                    K = Join(Application.Index(.Item(R).Columns(C(N, 1)).Value, 1, 0), "¤")
                    V = Application.Match(K, Worksheets(N).UsedRange.Columns(1), 0)
                If IsError(V) Then
                    V = Worksheets(N).UsedRange.Rows.Count + 1
                    Worksheets(N).Cells(V, 1).Value = K
                   .Item(R).Columns(C(N, 2)).Copy Worksheets(N).Cells(V, 2)
                Else
                    K = Worksheets(N).UsedRange.Rows(V).Columns(C(N, 3)).Address(External:=True)
                    Range(K).Value = Evaluate(.Item(R).Columns("F:J").Address(External:=True) & "+" & K)
                End If
            Next
        Next
    End With
         Worksheets(2).UsedRange.Columns(1).Clear
         Worksheets(3).UsedRange.Columns(1).Clear
         Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

sintek your code well works but to avoid duplicates it needs to manually clear the result worksheets before running it …

A variation of my previous code using Collections (as Dictionary) instead of columns to store keys :

PHP Code: 

Sub Demo2()
     Dim C, R&, N%, K$, Dic(2 To 3) As New Collection
         C = [{0,0,0;"A:E","A:J","F:J";"D:E","D:J","C:G"}]
         Worksheets(2).UsedRange.Offset(1).Clear
         Worksheets(3).UsedRange.Offset(1).Clear
         Application.ScreenUpdating = False
         On Error Resume Next
    With Worksheets(1).UsedRange.Rows
        For R = 2 To .Count
            For N = 2 To 3
                    K = Join(Application.Index(.Item(R).Columns(C(N, 1)).Value, 1, 0), "¤")
                    Dic(N).Add Dic(N).Count + 2, K
                If Err.Number Then
                    K = Worksheets(N).UsedRange.Rows(Dic(N)(K)).Columns(C(N, 3)).Address(External:=True)
                    Range(K).Value = Evaluate(.Item(R).Columns("F:J").Address(External:=True) & "+" & K)
                    Err.Clear
                Else
                   .Item(R).Columns(C(N, 2)).Copy Worksheets(N).Cells(Dic(N).Count + 1, 2)
                End If
            Next
        Next
    End With
         Erase Dic
         Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !

Thanks everyone! Could you incorporate a "RUN" button on the ISO Entry tab in the upper left corner?

Thanks sintek. I will start a new thread.

Could you add a 45s column to each tab in this worksheet to function the same way?