If/And/OR

**light** · 01-19-2022, 06:51 PM

How do I write the code below so it works? Currently it deletes all the "B's" in the column when it should only delete 1 or 2 "B"s" that fit the condition. If I write the code one condition at a time without the "or's" in separate macros that call each other it works but that would be a lot of writing.

finalrow = Cells(Rows.Count, 4).End(xlUp).Row
For x = 3 To finalrow
If Cells(x, 11).Value = "B" And Cells(x, 20).Value = "M" Or Cells(x, 20).Value = "Mo" Or Cells(x, 20).Value = "S" And Cells(x, 16).Value <> "M" Or Cells(x, 16).Value <> "Mo" Or Cells(x, 16).Value <> "S" Then Cells(x, 11).Value = ""
Next

**wildecoyote1966** · 01-19-2022, 09:26 PM

Can you upload a file with some data

**AlphaFrog** · 01-20-2022, 01:01 AM

Group the conditions for the three tested cells in a given row.

Group conditions with parenthesis like this...

If Cells(x, 11).Value = "B" And (Cells(x, 20).Value = "M" Or Cells(x, 20).Value = "Mo" Or Cells(x, 20).Value = "S") And (Cells(x, 16).Value <> "M" And Cells(x, 16).Value <> "Mo" And Cells(x, 16).Value <> "S") Then Cells(x, 11).Value = ""

Or group conditions with nested IFs like this...

For x = 3 To finalrow
If Cells(x, 11).Value = "B" Then
    If Cells(x, 20).Value = "M" Or Cells(x, 20).Value = "Mo" Or Cells(x, 20).Value = "S" Then
        If Cells(x, 16).Value <> "M" And Cells(x, 16).Value <> "Mo" And Cells(x, 16).Value <> "S" Then
            Cells(x, 11).Value = ""
        End If
    End If
End If
Next