Deleting Duplicates Based off Rejection Date

Welcome to the forum!

Attach a sample workbook (not a picture or pasted copy). Make sure there is just enough data to demonstrate your need. Include a BEFORE sheet and an AFTER sheet in the workbook if needed to show the process you're trying to complete or automate. Make sure your desired results are shown, mock them up manually if necessary.

Remember to desensitize the data.

Click on GO ADVANCED and then scroll down to Manage Attachments to open the upload window.

That's great thanks, I'll have a look

Question, rows 3 and 6 have the exact same date/time, but you kept one of them in the "After" example
I think I'm missing a detail here.

My logic was this (correct me where I went wrong... based on the rod ending in 152)

Row 8 is the latest, so we start there.
-Row 7 deleted because it is within 24 hrs of row 8.
-Row 6 deleted because even though row 7 is gone, the time for the original row 7 was within 24 hrs of row 6 (or do I just delete 7 and keep comparing to row 8???)
-Row 3 deleted because it was the same time as row 6 (which has since been deleted)

So if 6 is deleted, 7 is compared to 1 because 6 no longer exists correct?

And since 8 is kept... If the list were longer, we would start comparing to 8 not 1?

Yes, I would like every duplicate to be compared to the initial entry until then next duplicate is later then 24 hours then start comparing to it.

Give this a try:

Please Login or Register  to view this content.

Make sure what you use for testing matches my post above... I had misunderstood a detail, and while the original post worked on sample data, it would not work on longer lists.

@ Marc L, look forward to your post as always

Please Login or Register  to view this content.

is what I added in my update to my post. That part means that if the row we check is from an existing serial, but the date/time is over 24 hours, then we start using the new value instead of the first one. That's why I had posted right below it that you need to make sure you use my updated post (post #11). I have added a note to that post just now to clarify that.

Originally Posted by Marc L

So your result is wrong ‼

Sorry for that as I didn' t see the day change …


According to the attachment just with a sort & worksheet functions - Excel basics ! - as a beginner starter :

PHP Code: 

Sub Demo()
     Dim V
         Application.ScreenUpdating = False
    With Sheet1.Range("A3", [B2].End(xlDown)).Columns
        .Sort .Cells(1), xlAscending, .Cells(2), , xlAscending, Header:=xlNo
        .Item(3).Value2 = .Parent.Evaluate("IFERROR((" & .Item(1).Address & "=" & .Item(1).Offset(-1).Address & _
                                        ")*(INT(" & .Item(2).Address & ")=INT(" & .Item(2).Offset(-1).Address & ")),0)")
        .Resize(, 3).Sort .Cells(1, 3)
         V = Application.Match(1, .Item(3), 0)
         If IsNumeric(V) Then .Rows(V & ":" & .Rows.Count).Clear
        .Item(3).Clear
    End With
         Application.ScreenUpdating = True
End Sub 


Do you like it ? So thanks to click on bottom left star icon « ★ Add Reputation » !