Find value using inputbox and delete

[kevatarvind]

Hello All,

i am trying to write a code that will find value using input box and if that value find then want to delete that entirerow but my code is not working something wrong i have written can any body pls help me on this to write this code correctly code is below

Sub Find_DEL()
Dim found As Range
found = Application.Find(What:=InputBox("What To Find", "Find And Delete"), LookIn:=xlValues, lookat:=xlWhole)
If found = Not Nothing Then found.EntireRow.Delete
End Sub

Thanks in Advance

 

[vds1]

Try,

Sub Find_DEL()
Dim found As String
found = InputBox("What To Find", "Find And Delete")
If found <> "" Then Cells.Find(what:=found, Lookat:=xlWhole).EntireRow.Delete
End Sub

 

[kevatarvind]

Try,

Sub Find_DEL()
Dim found As String
found = InputBox("What To Find", "Find And Delete")
If found <> "" Then Cells.Find(what:=found, Lookat:=xlWhole).EntireRow.Delete
End Sub

Thanks for you help but still error in your code below highlighted

Sub Find_DEL()
Dim found As String
found = InputBox("What To Find", "Find And Delete")
If found <> "" Then Cells.Find(what:=found, Lookat:=xlWhole).EntireRow.Delete
End Sub

 

[vds1]

Maybe because you are trying to find a string which is not found.

Try,

Sub Find_DEL()
On Error GoTo err_desc
Dim found As String
found = InputBox("What To Find", "Find And Delete")
If found <> "" Then Cells.Find(what:=found, Lookat:=xlWhole).EntireRow.Delete
Exit Sub
err_desc:
If Err.Number = 91 Then MsgBox "Value Not found."
End Sub

Here found tries to match the entire cell content. If you need partial cell content to be searched make it Lookat:=xlpart

 

[kevatarvind]

Maybe because you are trying to find a string which is not found.

Try,

Sub Find_DEL()
On Error GoTo err_desc
Dim found As String
found = InputBox("What To Find", "Find And Delete")
If found <> "" Then Cells.Find(what:=found, Lookat:=xlWhole).EntireRow.Delete
Exit Sub
err_desc:
If Err.Number = 91 Then MsgBox "Value Not found."
End Sub

Here found tries to match the entire cell content. If you need partial cell content to be searched make it Lookat:=xlpart

Thanks a lot VDS1

Its working Perfect like a charm thanks again

 

[vds1]

Thanks a lot VDS1

Its working Perfect like a charm thanks again

Thanks for the feedback.