How to consolidate this?

[Romano_odK]

Good morning,
Can you help me with the following please. I Have a few thousand lines like these and would like to consolidate the amounts so I get only one line. The best thing would be to sum the amounts and then delete the rest of the lines, but I do not know what would be possible. Thank you for your help and time.

artcode	ItemDescription	datum	oms25	aantal	Created	bkstnr
133141	Kunststof Rasterblok 32x2 mm blauw - 100 stuks	07/08/2023 00:00	Telling 10/08/2023, difference of: 300,0000 for item: 19499	300	07/08/2023	23359157
195009	Beschermfolie 1000x0,05 mm blauw - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: -208,0000 for item: 19500	-208	10/08/2023	23360632
195009	Beschermfolie 1000x0,05 mm blauw - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: 7,0000 for item: 195009	7	10/08/2023	23360672
195009	Beschermfolie 1000x0,05 mm blauw - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: 100,0000 for item: 195009	100	10/08/2023	23360670
195009	Beschermfolie 1000x0,05 mm blauw - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: 100,0000 for item: 195009	100	10/08/2023	23360671
195003	Beschermfolie 100x0,05 mm blauw - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: -283,0000 for item: 19500	-283	10/08/2023	23360657
195003	Beschermfolie 100x0,05 mm blauw - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: 284,0000 for item: 195003	284	10/08/2023	23360676
195004	Beschermfolie 125x0,05 mm - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: -13,0000 for item: 195004	-13	10/08/2023	23360643
195004	Beschermfolie 125x0,05 mm - 100 m	10/08/2023 00:00	Telling 10/08/2023, difference of: 13,0000 for item: 195004	13	10/08/2023	23360677

 

[mumps]

I tried the macro and it worked properly. This is what I got:

Book1
	A	B	C	D	E	F	G
1	artcode	ItemDescription	datum	oms25	aantal	Created	bkstnr
2	133141	Kunststof Rasterblok 32x2 mm blauw - 100 stuks 300	45145	Telling 10/08/2023, difference of: 300,0000 for item: 19499	300	45145	23359157
3	195009	Beschermfolie 1000x0,05 mm blauw - 100 m -1	45148	Telling 10/08/2023, difference of: -208,0000 for item: 19500	-208	45148	23360632
4	195003	Beschermfolie 100x0,05 mm blauw - 100 m 1	45148	Telling 10/08/2023, difference of: -283,0000 for item: 19500	-283	45148	23360657
5	195004	Beschermfolie 125x0,05 mm - 100 m 0	45148	Telling 10/08/2023, difference of: -13,0000 for item: 195004	-13	45148	23360643
Sheet1

Which line of code is highlighted when you click "Debug"?

 

[Romano_odK]

I tried the macro and it worked properly. This is what I got:

Book1
	A	B	C	D	E	F	G
1	artcode	ItemDescription	datum	oms25	aantal	Created	bkstnr
2	133141	Kunststof Rasterblok 32x2 mm blauw - 100 stuks 300	45145	Telling 10/08/2023, difference of: 300,0000 for item: 19499	300	45145	23359157
3	195009	Beschermfolie 1000x0,05 mm blauw - 100 m -1	45148	Telling 10/08/2023, difference of: -208,0000 for item: 19500	-208	45148	23360632
4	195003	Beschermfolie 100x0,05 mm blauw - 100 m 1	45148	Telling 10/08/2023, difference of: -283,0000 for item: 19500	-283	45148	23360657
5	195004	Beschermfolie 125x0,05 mm - 100 m 0	45148	Telling 10/08/2023, difference of: -13,0000 for item: 195004	-13	45148	23360643
Sheet1

Which line of code is highlighted when you click "Debug"?

Good evening, I tried again and now it works. The only thing what I don't understand is that I loose all the filters in every column of the table and I really need those. Can this be avoided?

 

[mumps]

Delete this line of code:

Range("A1").AutoFilter

 

[Romano_odK]

Delete this line of code:

Range("A1").AutoFilter

You are right, thank you for your help with all of this. Enjoy you day.

 

[mumps]

You are very welcome.