Find and Delete Option

[torweb]

I'm trying to give my user the option of finding and deleting a row based on thier search criteria. The problem I've run into is it will only delete the specific cell where the search term was located. I would like it to delete the whole range within the row. Here's a copy of my code so far.

Sub findandkill()

Dim x As Variant
Set x = Cells.Find(What:=InputBox("Please enter your search criteria", "Search"), LookIn:=xlValues, LookAt:=xlPart, SearchOrder:=xlByColumns)
If Not x Is Nothing Then
x.Activate
Else
MsgBox "Not found."
End If

Sheets("Journal Entry").Unprotect "password"
Selection.ClearContents
Sheets("Journal Entry").Protect "password"

End Sub

Any pointers on how I can set the number of cells within the row to clear?

Thanks in advance.

 

[Greg Truby]

Delete? or Clear? Given your code - I'm going to assume you meant clear.

Just go: Selection.EntireRow.ClearContents (or use .Clear if you want to wipe out formats too)

FYI - you don't need the .Activate bit (unless you want the user to move to the area cleared). You could just go

If not x is nothing then
  'unprotect
    x.EntireRow.ClearContents
  'protect
Else

If you don't want to clear the entire row you can always use Resize and or Offset, i.e. to clear from cell x through 19 columns to the right of x use x.Resize(1,20).ClearContents