macro to remove duplicate lines and correct the data 2 columns

[atditiljazi]

hi guys,

Because of the way the warehouse guys book the goods in, my system at work splits the orders into multiple lines. I need the macro to identify the split lines and replace them with a single line so that the qty ordered in column K and Receipt Quantity in column L is correct. Is there a way a macro can do this? sheet now is currently called sheet2.

 

[Ezguy4u]

atd Let's get the ball rolling. I am guessing that below is an example of what you want for an output. If not let us know.

23-09-07 combine.xlsm
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	1	supplier	Event	Receipt Date	formance Date			Order Number		Item Number	Desc	Quantity Ordered	Receipt Quantity	commeiF
2	2	sample a		30/8/2023	30/8/2023	0	On Time	PO49846	1	Q4224	RM KUKUI NUT OIL OILS OF ALOHA HOO	50.0	50.0
3	3	sample b		7/8/2023	7/8/2023	0	On Time	PO47947	3	AS683	RM BIO-SIGNAL LIPID10 MB . HO	2.0	2.0
4	4	sample c		14/8/2023	14/8/2023	0	On Time	PO48198	4	A0957	RM HYALURONIC ACID-BT . HOO	10.0	10.0
5		sample c	D05	7/8/2023	7/8/2023	0	On Time	PO48845	6	av375	RM ALPAFLOR ALP-SEBUM CB . HO	9.0	3.0
6	8	sample c		14/8/2023	14/8/2023	0	On Time	PO48845	2	A1822	RM MARINE 20669LNZ HOO	10.0	10.0
7	9	sample c	D02	21/8/2023	18/8/2023	3	On Time	PO48845	1	A2699	RM LIPONIC EG-1 . H2S	226.8	226.8
Sheet1 (8)

 

[kevin9999]

Try the following on a copy of your workbook:

Sub ZapDupes()
    Worksheets("Sheet2").Range("A1").CurrentRegion.RemoveDuplicates _
    Columns:=Array(7, 9, 10), Header:=xlYes
End Sub