Need Help with My VBA Code

[Giovanni03]

Hello Everyone!

I currently have a code that I'm using to delete duplicate rows, i believed it was working but running a lot of test on my file and of course I found that its not deleting all of the duplicate data. Its working just not 100%. I'm hoping you guys could assist me with this code and see how I can improve it so I can truly delete all duplicate rows.

My Sheet has 14 Columns(A-N). The main place the duplicated data will be in is from column A to D (First 4 columns).

Here's the code that I'm using.

Sub DeleteRows()

    With ActiveSheet
        Set Rng = Range("A2", Range("N2").End(xlDown))
        Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14), Header:=xlYes
    End With
End Sub

 

[Joe4]

Hello Everyone!

I currently have a code that I'm using to delete duplicate rows, i believed it was working but running a lot of test on my file and of course I found that its not deleting all of the duplicate data. Its working just not 100%. I'm hoping you guys could assist me with this code and see how I can improve it so I can truly delete all duplicate rows.

My Sheet has 14 Columns(A-N). The main place the duplicated data will be in is from column A to D (First 4 columns).

Here's the code that I'm using.

Sub DeleteRows()

    With ActiveSheet
        Set Rng = Range("A2", Range("N2").End(xlDown))
        Rng.RemoveDuplicates Columns:=Array(1, 2, 3, 4, 5, 6, 7, 8, 9, 10, 11, 12, 13, 14), Header:=xlYes
    End With
End Sub

Please show us some sample data that it is not working on.
Please show us BEFORE and AFTER images.

 

[Logit]

Content deleted.

 

[Giovanni03]

@Joe4 The highlighted rows are the ones that are duplicated. When I run the code it does not delete them.

DuplicateRows.xlsx
	A	B	C	D	E	F	G	H	I	J	K	L	M	N
1	Order Number	Fulfillment Type	SKU	Product Description	Customer First Name	Customer Last Name	Customer Name	Route.RouteDay	Route.RouteName	Route.locationkey	Route.CustomerName	Route.StopProjectedBegun	Route.StopProjectedComplete	Route.Service Time
2	Order # 41703	RETURN	6420142	Product # 1	John	Doe	John Doe	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
3	Order # 41703	RETURN	6420142	Product # 1	John	Doe	John Doe	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
4	Order # 41703	DELIVERY	6420142	Product # 2	John	Doe	John Doe	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
5	Order # 41703	DELIVERY	6420142	Product # 2	John	Doe	John Doe	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
6	Order # 41703	SERVICE	5246500	Product # 3	John	Doe	John Doe	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
7	Order # 41703	SERVICE	5246500	Product # 3	John	Doe	John Doe	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
8	Order # 41703	DELIVERY	8930357	Product # 4	John	Doe	John Doe	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
9	Order # 41703	DELIVERY	8930357	Product # 4	John	Doe	John Doe	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
10	Order # 41703	DELIVERY	9282812	Product # 5	John	Doe	John Doe	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
11	Order # 41703	DELIVERY	9282812	Product # 5	John	Doe	John Doe	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
12	Order # 43777	RETURN	5963916	Product # 1	John	Doe #2	John Doe #2	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
13	Order # 43777	RETURN	5963916	Product # 1	John	Doe #2	John Doe #2	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
14	Order # 43777	DELIVERY	5963916	Product # 2	John	Doe #2	John Doe #2	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
15	Order # 43777	DELIVERY	5963916	Product # 2	John	Doe #2	John Doe #2	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
16	Order # 43777	SERVICE	5246401	Product # 3	John	Doe #2	John Doe #2	6/26/2023	Route # 03	89987659	John Doe	6/26/2023 12:07	6/26/2023 12:32	1/0/1900 0:25
17	Order # 43777	SERVICE	5246401	Product # 3	John	Doe #2	John Doe #2	6/26/2023	Route # 03	90253366	John Doe	6/26/2023 11:42	6/26/2023 12:07	1/0/1900 0:25
Sheet1

 

[Giovanni03]

Oh Snap! I just noticed the issue!

So super quick background on the file, its basically a merged file and during the merging process I have to use fuzzy option(no choice) which creates dups. typically this code works so I was really stuck as to why it wasn't working....

Staring at this long enough I found that In column J the key got mixed between two different orders (Same Customer Name) which made it so the code wont delete the duplicate rows. (tech not duplicated at that point).

Now I have to figure out how to stop this issue while merging the same customer name different orders.

 

[Joe4]

Oh Snap! I just noticed the issue!

So super quick background on the file, its basically a merged file and during the merging process I have to use fuzzy option(no choice) which creates dups. typically this code works so I was really stuck as to why it wasn't working....

Staring at this long enough I found that In column J the key got mixed between two different orders (Same Customer Name) which made it so the code wont delete the duplicate rows. (tech not duplicated at that point).

Now I have to figure out how to stop this issue while merging the same customer name different orders.

OK, so does that mean that this issue is solved?
It sounds like now the issue is with the data generation, which isn't anything with the code you posted, right?

 

[Giovanni03]

OK, so does that mean that this issue is solved?
It sounds like now the issue is with the data generation, which isn't anything with the code you posted, right?

Yup, deff no issue with the code, it was the data itself.