S
Steved
Hello from Steved
The below Formula finds Duplicates and deletes.
Question please How do I also ask the formula to check Column E
Thefore the find Criteria would be Columns "A", "D", "E" then the duplicates
found Delete.
Sub DeleteTheOldies()
Dim RowNdx As Long
For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then
If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then
Rows(RowNdx).Delete
Else
Rows(RowNdx - 1).Delete
End If
End If
Next RowNdx
End Sub
Thankyou
The below Formula finds Duplicates and deletes.
Question please How do I also ask the formula to check Column E
Thefore the find Criteria would be Columns "A", "D", "E" then the duplicates
found Delete.
Sub DeleteTheOldies()
Dim RowNdx As Long
For RowNdx = Range("A1").End(xlDown).Row To 2 Step -1
If Cells(RowNdx, "A").Value = Cells(RowNdx - 1, "A").Value Then
If Cells(RowNdx, "D").Value <= Cells(RowNdx - 1, "D").Value Then
Rows(RowNdx).Delete
Else
Rows(RowNdx - 1).Delete
End If
End If
Next RowNdx
End Sub
Thankyou