how to delete the adjacent cells of the selected cells?

[youngbella]

Dear all expert,

I am doing some macro vba to select a cells that contains specific text in a table. and I want to delete the adjacent cells cotents of the selected cells. I am new to vba and need your assistance.
Thank you.

On table 1 ,i have few "DONE" text. and I want delete the cells content next to the "DONE" text cells.

 

[Nothnless]

Assuming that your "DONE" is in column A and you want to delete column B

Sub DeleteDONE()

Dim findMe As Range

For Each findMe In Range("A:A")
    If findMe = "DONE" Then
    findMe.Offset(, 1).Clear
    End If
Next findMe

End Sub

 

[youngbella]

Dear Nothnless,

thank you so much. it works !!

 

[Rick Rothstein]

Here is another macro (no loops) that you can also consider...

Sub ClearNextToDone()
  With Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
    .Value = Evaluate("IF(" & .Offset(, -1).Address & "=""Done"","""",IF(" & .Address & "="""",""""," & .Address & "))")
  End With
End Sub

 

[youngbella]

hi mr rick rothstein,
could you please explain how the code works?
sorry.

 

[youngbella]

Here is another macro (no loops) that you can also consider...

Sub ClearNextToDone()
  With Range("B1:B" & Cells(Rows.Count, "A").End(xlUp).Row)
    .Value = Evaluate("IF(" & .Offset(, -1).Address & "=""Done"","""",IF(" & .Address & "="""",""""," & .Address & "))")
  End With
End Sub

hi mr rick rothstein,
could you please explain how the code works?
sorry.