Delete if criteria met

[Hank2]

I have four columns. If column D contains the numeral 1, I want a macro that will either retain it or delete it based on the following criteria

For example, say D1 contains a 1. Then the macro should look at offset C1 to see if it is the same name as in offset B1. If so move on.

If not, then the macro should note the value in A1. Say that value is 3.

If any names in column B that have a value of 3 in column A, match the name in C1 which also has a value of 3 (in this case) then the “1” in D1 should be deleted.

Then go down the list which contains 200 names.

Thanks

 

[rpaulson]

try this on a copy of your file.

Sub do_delete()
Application.ScreenUpdating = False

For r = 2 To Range("A" & Rows.Count).End(xlUp).Row

If Cells(r, "D") <> 1 Then GoTo 99
If Cells(r, "B") = Cells(r, "C") Then GoTo 99
If Cells(r, "B") = Cells(r, "A") Or Cells(r, "C") = Cells(r, "A") Then Cells(r, "D").ClearContents

99 Next r

Application.ScreenUpdating = True
End Sub

 

[Hank2]

rpaulson​

Thanks for your effort,but it did not work. I don't know why cause looking at it with debug it makes sense. But I did get it solved with another macro method. Thank you very much.