Find text and Clear content in the following columns of the same row

[MHamid]

Hello,

Is there a way to create a vba code that will find text and clear contents in the preceding columns?

For instance, I want to search for the word "Completed" in column D. Once it finds this word, I will need it to go to columns E, F and G and clear the contents on the same row it found "Completed". So let's say that "Completed" was found in row 3, then I will need to clear the contents in columns E,F, G of row 3. Then move on to the next instance of the word "Completed" and do the same thing.

Is this possible?

Thank you

 

[Joe4]

Here is one way:

Sub ClearCompletedCells()
    
    Dim lr As Long
    Dim r As Long
    
    Application.ScreenUpdating = False
    
'   Find last row with data in column D
    lr = Cells(Rows.Count, "D").End(xlUp).Row
    
'   Loop through all rows checking column D
    For r = 1 To lr
        If Cells(r, "D") = "Completed" Then
'           Clear columns E-G
            Range(Cells(r, "E"), Cells(r, "G")).ClearContents
        End If
    Next r
        
    Application.ScreenUpdating = True
    
End Sub

 

[MHamid]

Works perfectly.

Thank you so much.
I came up with another way, but your way was faster.

Thank you

 

[Joe4]

You are welcome.