Search Text and Error Handling

[salman94]

Hi,

I would like to search a text in my spreadsheet and delete the row partially. If it doesn't find the text, I would like it to move on with the rest of the code. I keep getting the mismatch error here.

' Delete FV ONLY Row

Set rngfind = Cells.Find(What:="FV ONLY", After:=ActiveCell, LookIn:=xlValues).Activate
If Not rngfind Is Nothing Then
Range(ActiveCell, ActiveCell.Offset(0, 2)).Delete
Else
Resume Next
End If​

I also tried but doesn't work either:

Do
Cells.Find(What:="FV ONLY", After:=ActiveCell, LookIn:=xlValues).Activate
Range(ActiveCell, ActiveCell.Offset(0, 2)).Delete
Loop Until Selection Is Nothing
On Error Resume Next​

Would appreciate the help here.

Thanks in advance

 

[pgc01]

Hi

Why are you activating a cell if you don't know if it exists?

Just try to find the cell and in case you find it then delete.

    Set rngfind = Cells.Find(What:="FV ONLY", After:=ActiveCell, LookIn:=xlValues)
    If Not rngfind Is Nothing Then
        Range(rngfind, rngfind.Offset(0, 2)).Delete Shift:=xlShiftUp
    End If

Remark: you usually don't have to use .Select or .Activate in vba.

 

[salman94]

Thank you @pgc01. That worked! And remark noted.

 

[pgc01]

I'm glad it helped.