If condition not found, continue Sub

[excel01noob]

Hi

I have this sub-procedure created.
As we export some date into excel and that data always have a row at the end with "query executed timestamp" I want to be able to manipulate the date after.

the below works if I have the "query" word in the data but how do I tell the sub to continue to other procedures if that word is not present ?



Sub word_query()



Dim queryword As String



queryword = "query"



If Cells.Find(What:=queryword).Activate Then



ActiveCell.EntireRow.Select

Selection.Delete



End If



Cells.EntireColumn.AutoFit



Range("A1").Select

End Sub

 

[mrshl9898]

Sub word_query()

Dim queryword As String

queryword = "query"

If Cells.Find(What:=queryword).Activate Then
    ActiveCell.EntireRow.Delete
Else
'Do your other thing here
End If

Cells.EntireColumn.AutoFit

Range("A1").Select

End Sub

 

[excel01noob]

perfect, thank you mrshl9898

 

[excel01noob]

ran into some issues.
This is what I have now

Sub Pay_auto_2()

Dim queryword As String

queryword = "query"

If Cells.Find(What:=queryword).Activate Then

ActiveCell.EntireRow.Delete

Else

'Do your other thing here

Cells.Find(What:="Net Amount").Activate
Selection.Offset(1, 0).Select
Range(ActiveCell, ActiveCell.End(xlDown)).Select

With Selection

.NumberFormat = "General"
.Value = .Value
.Style = "comma"

End With

++++++++++++++++++++++
in some occasions the "net amount" column would have the word MULTI in some cells.
Of course, I cannot convert this into number but the procedure gives me an error I suppose due to that.
How can I include this in the Sub:

If Multi is present, skip the conversion into numbers and continue with other cells in the column