If A is blank and text in B of same row = "EXAMPLE" ... delete B

[Ace71425]

The title pretty much says it all i'm looking for a VBA code where if a cell in the A column is blank and the subsequent B cell next to it is populated with the string EXAMPLE then delete B. Thanks in advance. Let me know if you need a better example.

 

[bbott]

Try:

Sub Example()
    
    Dim x As Long
    
    For x = 1 To Range("B" & Rows.Count).End(xlUp).Row
        If Range("A" & x) = "" And Range("B" & x) = "Example" Then
            Range("B" & x).ClearContents
        End If
    Next x
    
End Sub

 

[Ace71425]

Looks good thanks! It is possible to put this in a worksheet change event so that it happens automatically whereas the macro doesnt need to be ran manually? Like real time if someone tries to put EXAMPLE in b but nothing is in A it deletes right off the bat? Let me know thanks!

 

[bbott]

Sure. Make sure this is inserted in the sheet code, not in a general module.

Private Sub Worksheet_Change(ByVal Target As Range)

    With Target
        If .Column = 2 And .Value = "Example" And .Offset(, -1) = "" Then
            .ClearContents
        End If
    End With
    
End Sub