Macro to compare date in number and product

[K0st4din]

Hello everyone.
I have another problem with my previous file that I need to finish.
Because I want to make it clear I'll attach the files and pictures before the middle, and what can be the end of this table.
I would be very grateful if you assist in this task with a macro.

File to download

 

[JoeMo]

What version of Excel are you using?

 

[JLGWhiz]

Give this a test.

Sub deldupe()
Dim sh As Worksheet, lr As Long
Set sh = Sheets(1) 'Edit Sheet name
lr = sh.Cells(Rows.Count, 11).End(xlUp).Row
sh.UsedRange.Sort sh.Range("K1"), xlAscending, Header:=xlYes
    For i = lr To 2 Step -1
        If sh.Cells(i, 11) = sh.Cells(1 - 1, 11) Then
            Rows(i).Delete
        End If
    Next
End Sub

 

[K0st4din]

2007, but it should be for .xls file, no for .xlsx

 

[K0st4din]

It gives me error can be seen in the image and whether it could be done with letters, because these numbers confuse me (1 -1.11).
Thank you in advance.

 

[JoeMo]

2007, but it should be for .xls file, no for .xlsx

Have you considered using the Remove Duplicates option on the Data menu?

 

[JLGWhiz]

Had a typo. This should run.

Sub deldupe()
Dim sh As Worksheet, lr As Long
Set sh = Sheets(1) 'Edit Sheet name
lr = sh.Cells(Rows.Count, 11).End(xlUp).Row
sh.UsedRange.Sort sh.Range("K1"), xlAscending, Header:=xlYes
    For i = lr To 2 Step -1
        If sh.Cells(i, 11).Value = sh.Cells(i - 1, 11).Value Then
            Rows(i).Delete
        End If
    Next
End Sub

 

[JLGWhiz]

Took a second look at your sheet and thought maybe this modified version might be more appropriate for your needs.

Sub deldupe2()
Dim sh As Worksheet, lr As Long
Set sh = Sheets(1) 'Edit Sheet name
lr = sh.Cells(Rows.Count, 11).End(xlUp).Row
sh.UsedRange.Sort sh.Range("K1"), xlAscending, Header:=xlYes
    For i = lr To 2 Step -1
        If sh.Cells(i, 11).Value = sh.Cells(i - 1, 11).Value And _
            sh.Cells(i, 7).Value = sh.Cells(i - 1, 7).Value And _
            sh.Cells(i, 4).Value - sh.Cells(i - 1, 4).Value Then
            Rows(i).Delete
        End If
    Next
End Sub

 

[K0st4din]

Hello JoeMo, I am thinking to use this option to excel , but it is clear just me and one of my colleagues , which in turn led it to seek a macro option to allow others only to press .


Hello JLGWhiz,
Both macro work almost perfectly (and if no option will remain one) , but I have only one question : Why after I activate the macro , the second name me getting it in the first position and then the other names already down?
Try it - I have attached a example.
Because this is just an example and I have over 20 000 lines and if you make this mistake gets me every name in the first position will be big trouble. Ie the last attached picture shows that finish first name and starts the next name.

Names must be one after another, and now is a "mish mash" (Picture 2)

 

[JLGWhiz]

, but I have only one question : Why after I activate the macro , the second name me getting it in the first position and then the other names already down?

That is probably due to the sort routine. Only one sort field is specified in the code I posted. But all data related to any name stays with that name. The sort routine does not cause the data to mix from one name to the other. I didn't want to use more than one sort field because it might have mixed the data. But if the names need to be in a certain order, then you could do a manual sort after the duplicates are eliminated. Or maybe try the built in duplicate remover that JoeMo suggested.