VBA Find - 別のシートから値を見つけるためにマクロを作成したい

Question

「FindNng Not Nothing Then」というコードを追加したいのですが、どうすればいいですか？ここでは、何かを見つけたときにのみ動作するコードがあります。 Findを使用する

Sub ORDER() 

    Dim wordToSearch As String 
    Dim rowToDelete As Integer 

Sheets("Dashboard").Select 
RowCount = Cells(Cells.Rows.Count, "W").End(xlUp).Row 
For i = 1 To RowCount 

Range("W" & i).Select 
check_value = ActiveCell 
If check_value = "Y" Or check_value = "y" Then 



    Sheets("Dashboard").Select 
    wordToSearch = Sheets("Dashboard").Range("L" & i).Value 

    Sheets("Order").Select 
    Cells.Find(What:=wordToSearch, After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _ 
     xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:=False _ 
     , SearchFormat:=False).Activate 
    rowToDelete = ActiveCell.Row 
    Rows(rowToDelete & ":" & rowToDelete).Select 
    Application.CutCopyMode = False 
    Selection.Delete Shift:=xlUp 

    Sheets("Dashboard").Select 
    End If 
    Next 

End Sub 

Answer 1

より良い（より安全な）方法はSet a RangeからFindの結果であり、そして場合にFindが試合を「見つける」ために失敗した場合、結果はRange = Nothingになり、あなたが試すことができますIf Not FindRng Is Nothing Thenを使用してこのタイプのエラーをトラップします。スタックExchangeへ

コード

Sub Macro() 

Dim FindRng As Range 

With Sheets("order") 
    Set FindRng = .Cells.Find(What:=Sheets("Dashboard").Cells(2, 4), After:=ActiveCell, LookIn:=xlFormulas, _ 
        LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext) 

    If Not FindRng Is Nothing Then ' find was successful 
     FindRng.EntireRow.Delete 
    Else ' Find failed to find a match 
     MsgBox "Unable to find " & Sheets("Dashboard").Cells(2, 4), vbCritical 
    End If 
End With 

End Sub