Consolidate data where same criteria in multiple columns except for amount

[Andrei32]

Hi,

I would very much appreciate the help with the following;

In the image above, all information in row 3 and 4 are the same except for column J (the amount).
In row 5, the information is unique (hence the doubles count N in the check field that I have created a formula for in column N).
My question is; how can I create a macro or a formula that ensures that when data in field B to I is the same, the amount should be summed up in 1 row instead of two seperate rows.
The reason I need to this is because the program in which I then load the data can only accept one row for each unique "string".

It should also be said that there is no way for me to predefine the strings (for example, a new profit center could be added next month), which is why I can not create a SUM-formula for all potential strings.

Much appreciated!

 

[etaf]

can you setup a helper column - see column N - where i concatenate B to I
and then use that with a countifs and a sum - so you get the total sum on the first occurance

and then in column N , i have total

you could use a countifs() for all the columns, but that had issues with blank columns and quite long


if so then maybe something like

Book3
	A	B	C	D	E	F	G	H	I	J	K	L	M	N	O
1
2	dup	a	b	c	123	4	5	7		1				abc123457	24
3	dup	a	b	c	123	4	5	7		2				abc123457
4	dup	a	b	c	123	4	5	7		3				abc123457
5	dup	C	b	c	123	4	5	7		4				Cbc123457	9
6	dup	C	b	c	123	4	5	7		5				Cbc123457
7	Uniq	E	b	c	123	4	5	7		6				Ebc123457	6
8	dup	D	b	c	123	4	5	7		7				Dbc123457	16
9	dup	a	b	c	123	4	5	7		8				abc123457
10	dup	D	b	c	123	4	5	7		9				Dbc123457
11	dup	a	b	c	123	4	5	7		10				abc123457
Sheet1

Cell Formulas
Range	Formula
N2:N11	N2	=B2&C2&D2&E2&F2&G2&H2&I2
O2:O11	O2	=IF(COUNTIFS($N$2:N2,N2)=1,SUMIFS($J$2:$J$11,$N$2:$N$11,N2),"")

Note: Images are difficult to see , and also requires that I input all the data myself, which means I may make an error, which is very time consuming, and from my point of view less likely to get a response, if a complicated spreadsheet. Plus we cannot see any of the formulas used.

Therefore -

A SMALL sample spreadsheet, around 10-20 rows, would help a lot here, with all sensitive data removed, and expected results mocked up and manually entered, with a few notes of explanation.

MrExcel has a tool called “XL2BB” that lets you post samples of your data and will allow us to copy/paste your sample data into our Excel spreadsheets, saving a lot of time.

XL2BB - Excel Range to BBCode

Excel 'mini-sheet' in messages - XL2BB Although experts prefer to read your description and question instead of working in your actual file to solve your problem, there are times that it is difficult to explain an issue without providing actual...

www.mrexcel.com

You can also test to see if it works ok, in the "Test Here" forum.

Test Here

Use this forum to test your signature, learn bbcode, smilies, XL2BB, etc. Threads in this forum are automatically deleted after no replies for seven (7) days

www.mrexcel.com

OR if you cannot get XL2BB to work, or have restrictions on your PC

then put the sample spreadsheet onto a share

I only tend to goto OneDrive, Dropbox or google docs , as I'm never certain of other random share sites and possible virus.
Please make sure you have a representative data sample and also that the data has been desensitised, remember this site is open to anyone with internet access to see - so any sensitive / personal data should be removed

Make sure you set any share or google to share to everyone

 

[Herakles]

Welcome to Mr Excel Andrei32

I had an idea that may work for you but I'm not sure if columns G to I and K and L will ever have any data in them.
Let me know about this.

Give this a go. Put this code in a standard code module.
Let me know if you need help.

It puts the results into another worksheet, 'Results' in my code.

You will need to create a new worksheet and change these two lines to reflect the names of your worksheets.

Set Ws = Worksheets("Consolidate")
Set WsResults = Worksheets("Results")

Public Sub subConsolidate()
Dim Ws As Worksheet
Dim WsResults As Worksheet
Dim lngRows As Long
Dim strFormula As String
Dim rng As Range

    ActiveWorkbook.Save
    
    Set Ws = Worksheets("Consolidate")
    Set WsResults = Worksheets("Results")
    
    WsResults.Cells.Clear
                
    Ws.Range("B2:L2").Copy Destination:=WsResults.Range("B2")
    Ws.Range("B2:L2").Copy
    WsResults.Range("B2").PasteSpecial Paste:=xlPasteColumnWidths, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
    Application.CutCopyMode = False
    
    lngRows = Ws.Range("B2").End(xlDown).Row
    
    WsResults.Range("B3").Formula2 = "=UNIQUE(" & Ws.Name & "!$B$3:$F" & lngRows & ",FALSE,FALSE)"
    
    Set rng = Ws.Range("A3:A" & lngRows)
    
    lngRows = WsResults.Range("B2").End(xlDown).Row
        
    WsResults.Range("J3:J" & lngRows).Formula = "=SUMIFS(" & Ws.Name & "!$J$3:$J$14," & _
        Ws.Name & "!" & rng.Offset(0, 1).Address & "," & WsResults.Name & "!$B3," & _
        Ws.Name & "!" & rng.Offset(0, 2).Address & "," & WsResults.Name & "!$C3," & _
        Ws.Name & "!" & rng.Offset(0, 3).Address & "," & WsResults.Name & "!$D3," & _
        Ws.Name & "!" & rng.Offset(0, 4).Address & "," & WsResults.Name & "!$E3," & _
        Ws.Name & "!" & rng.Offset(0, 5).Address & "," & WsResults.Name & "!$F3," & _
        Ws.Name & "!" & rng.Offset(0, 6).Address & "," & WsResults.Name & "!$G3," & _
        Ws.Name & "!" & rng.Offset(0, 7).Address & "," & WsResults.Name & "!$H3)"
                             
        With WsResults.Range("B2:L" & lngRows)
            .Value = .Value
            .VerticalAlignment = xlCenter
            With .Borders
                .LineStyle = xlContinuous
                .Weight = xlThin
               .ColorIndex = vbBlack
            End With
        End With
        
End Sub