Delteing data in Col A if "ABC" found in Col B

[rthorne]

I need to look for "ABC" in col B and if found, delete cell data for that row in Col A.

Can you assist in how to do this. I have over 20K rows to review and would like a systemic way to accomplaish this.

thanks in advance

RT

 

[MrKowz]

Give this a go:

Public Sub ClearA()
Dim i As Long, LR As Long
LR = Range("B" & Rows.Count).End(xlUp).Row
Application.ScreenUpdating = False
For i = 1 To LR
   If Range("B" & i).Value = "ABC" Then
      Range("A" & i).ClearContents
   End If
Next i
Application.ScreenUpdating = True
End Sub

 

[VoG]

Press ALT + F11 to open the Visual Basic Editor, select Module from the Insert menu and paste into the white space on the right

Sub NoABC()
Dim LR As Long, i As Long
LR = Range("A" & Rows.Count).End(xlUp).Row
For i = 1 To LR
    If Range("B" & i).Value Like "*ABC*" Then Range("A" & i).ClearContents
Next i
End Sub

Press ALT + Q to close the code window, press ALT + F8, click on NoABC then click the Run button.

 

[rthorne]

Thank you for such a quick and accurate response. the VB code worked just fine.

Happy Friday!!!!