Remove Duplicates Of Multiple Columns

Re: Remove Duplicates Of Multiple Columns

I deleted the x= line from the code and the code ran ...didnt do anything to the test file but it did run,

Then I replaced the x = line and delted the y= line and I got a comiple error 1004

Yes I need to start thinking of cooking dinner and geting things ready for tomorrow too,...

Thanks heaps for all your help so far....

Would you be Ok if I post this code up to a new thred tomorrow and ask others to see why it wont run...will that be Ok with you ????

Jindon ...Thank HEAPS

Tony :-)[hr]*[/hr] Auto Merged Post;[dl]*[/dl]HI Jindon

yes someone else gave us some help...you were very close..with the second bit of code

your code for the first bit works fine -FANTASTIC

here is the solution to the second bit (only needed minor change)

Sub test()
Dim r As Range, txt As String, myRow As Long, x As Long, y As Long, z As Variant
With Sheets(1)
    For i = .Range("e" & Rows.Count).End(xlUp).Row To 8 Step -1
        Set r = .Range("e" & i)
        If InStr(1, r.Value, "CLASS", 1) > 0 Then
            x = WorksheetFunction.CountIf(.Range("I" & i & ":L" & i), "x") 'if 0 don't delete
            y = WorksheetFunction.CountBlank(.Range("R" & i & ":U" & i)) 'if <4 don't delete
            z = r.Offset(, 9).Value 'if not empty don't delete
            If x > 0 And y = 4 And z = "" Then r.EntireRow.Delete
        End If
    Next i
End With
End Sub

thanks again for your help Jindon

cheers

Tony Mos