Find Values in One Cell Then Delete Entire Row

[dgr]

Hello,
I'm using Excel 2013. I'm looking for a VB macro solution.

I want to find Hello in any cell. Then I want to delete (clear contents) that cell & every cell along the same row moving to the right until the end of the worksheet. I want to loop through the entire used range of the worksheet & delete any such occurrence.

Explained in a different way:

Cell D3 contains Hello
Under such circumstances, the macro should delete (clear contents) everything from Cell D3 - XFD3.

This question is a slight variation of a similar question I asked 2 years ago here: http://www.mrexcel.com/forum/excel-...ells-same-row-clear-contents.html#post3957313 Therefore, if you could help me to edit the code here, it would work fine.

Thanks

 

[svendiamond]

Sub helloFinder()

Dim lastRow As Long, fndHello As Range, lastCol As Long

With Sheets("mySheet")
    lastRow = .UsedRange.Cells.Rows.Count
Set fndHello = .Cells.Find(What:="Hello", searchdirection:=xlNext)

    Do While Not fndHello Is Nothing

    lastCol = .Cells(fndHello.Row, Columns.Count).End(xlToLeft).Column
    .Range(.Cells(fndHello.Row, fndHello.Column), .Cells(fndHello.Row, lastCol)).ClearContents
    Set fndHello = .Cells.FindNext(fndHello)
    
    Loop

End With

End Sub

 

[svendiamond]

Did you try this yet?

 

[dgr]

Did you try this yet?

Thanks for your help, svendiamond. It worked well. This

searchdirection:=xlNext

did not work so I just replaced it with

LookIn:=xlValues, LookAt:=xlPart, MatchCase:=False, SearchFormat:=False

& everything worked fine. Thank you once again for your kind assistance. I appreciate it.

 

[My Aswer Is This]

Your subject line said:
"Find Values in One Cell Then Delete Entire Row "
Then you said"

"should delete (clear contents) everything from Cell D3 - XFD3.
That would mean do not clear columns A and B values
And it would not delete the row as your title indicated.

If you want to clear always say "Clear" if you want to delete please say "delete".
And when you say clear you need to say clear all or just clear contents.
Thanks.