Excel2013のマクロでFindを使い検索した結果、見つからなかった場合、エラーになって停止してしまいます。そのエラーを対処する方法です。
Findを使い検索した結果、見つからなかった場合、「オブジェクト変数またはWithブロック変数が設定されていません。」とエラーメッセージが表示されます。このエラーの発生を回避させます。
前回のマクロでFindを使い検索するを下記コードに変更します。
Sub MyFind()
Dim s As String
Dim Rng As Range
s = InputBox("検索する製品名を入力してください。")
Set Rng = Cells.Find(What:=s, LookIn:=xlValues, LookAt:=xlWhole)
If Rng Is Nothing Then
MsgBox "見つかりませんでした。"
Else
Rng.Activate
End If
End Sub
検索した結果見つからなかった場合、「見つかりませんでした。」とメッセージが表示されエラーによるマクロの停止は回避されました。