delete duplicate rows leaving only the row with a certain value in a column

[bobby13]

what i am trying to do is to delete duplicate rows, but not just in the ordinary fashion. I want to search for duplicates based on cell contents in column A and C and then delete whichever duplicate contains the phrase "discontinue" in column E

So, if the contents in column A and C match for two rows then I want the macro to look to column E and delete whichever duplicate contains the word "discontinue"

I searched the forums and only found regular delete duplicates macros and nothing that will do just this.

Thanks for any help!

 

[TFCJamieFay]

Try:

Sub Test1()

    Dim CellA As String, CellC As String, CellE As String

    Lastrow = Cells(Rows.Count, "A").End(xlUp).Row
    
    Range("A2:A" & Lastrow).Select
    For Each cell In Selection
        CellA = cell.Value
        CellC = cell.Offset(0, 2).Value
        CellE = cell.Offset(0, 4).Value
        If CellA = cell.Offset(-1, 0).Value Then
            If CellC = cell.Offset(-1, 2).Value Then
                If CellE = "Discontinue" Then
                    cell.EntireRow.Delete
                End If
            End If
        End If
        CellA = ""
        CellC = ""
        CellE = ""
    Next
    
End Sub

HTH,

Jay

 

[MickG]

Hi, This clears the cell !!, I imagined if you delete the row this also includes Data in "A" or "C" that you might want !!

Dim Rng1 As Range, Rng2 As Range, Dn1 As Range, Dn2 As Range
Set Rng1 = Range(Range("A1"), Range("A" & Rows.Count).End(xlUp))
Set Rng2 = Range(Range("C1"), Range("C" & Rows.Count).End(xlUp))
  
  For Each Dn1 In Rng1
     For Each Dn2 In Rng2
            If Dn1 = Dn2 Then
                If Dn1.Offset(, 4) = "discontinue" Then
                    Dn1.ClearContents
                End If

                If Dn2.Offset(, 2) = "discontinue" Then
                    Dn2.ClearContents
                End If
            End If
    Next Dn2
Next Dn1

Mick

 

[bobby13]

thanks guys, they are both great. i'm getting better at vba but i'm still not too good; its always obvious once you see the correct vba.


thanks!!