Step31　一覧シートを作成し請求書No.を検索する: Excel請求書

検索はFind関数を使います。
Set trange = Worksheets("一覧").Columns(3).Find(What:=sv, LookIn:=xlValues, LookAt:=xlWhole)
・What　： 検索するデータ
・LookIn　： xlValuesで値を指定
・LookAt　： xlWholeで全てが一致するセルを検索

trange Is Nothingで判定し見つかれば、trange.Rowで行番号を取得します。

ブックが閉じる前のイベント内に、MyFindNumber(Worksheets("請求書").Range("x6"))を追加します。
請求書No.を引数にしています。

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Dim nRet As Long
    
    If Worksheets("請求書").Range("x6") = "" Then
        nRet = MsgBox("請求書No.が入力されていない為、一覧に登録できません。" & vbCrLf & _
        "登録しないで終了してもよろしいですか？", vbYesNoCancel)
        
        If nRet <> vbYes Then
            Range("x6").Activate
            Cancel = True
            Exit Sub
        End If
    Else
        If MyFindNumber(Worksheets("請求書").Range("x6")) = 0 Then
        End If
    End If
End Sub

■Findメソッドで検索

作成した検索プロシージャです。
見つかった場合はその行番号が、見つからなかった場合は0が返ります。

Private Function MyFindNumber(sv As String) As Long
    Dim trange As Range
             
    MyFindNumber = 0
    Set trange = Worksheets("一覧").Columns(3).Find(What:=sv, _
        LookIn:=xlValues, LookAt:=xlWhole)
    If Not trange Is Nothing Then
         MyFindNumber = trange.Row
    End If
End Function