VBA ワークシート関数

Question

VBAのワークシート関数で質問があります。

countifを使って別ファイルの特定シートから検索対象の数があれば、その行番を抽出したいと思っています。

VBAが記載されているファイルには"コード設定"というシートがあります。
別ファイルの"マスターEXCELデータ"のSheets(1) 5列目からコード設定に記載されたコードの行番を抽出。

コードを書いてみました。
CountIf文のところでエラー「インデックスが有効範囲にありません。」が出ます。
コードに間違いがあれば、教えて頂きたいです。

    With ThisWorkbook.Sheets("コード設定")
        N = .Cells(Rows.Count, 1).End(xlUp).Row
        If N > 1 Then
            For cnt = 2 To N
                ExCode = .Cells(cnt, 2).Value
                    
                If Not cnt2 = Application.WorksheetFunction.CountIf(Workbooks("マスターEXCELデータ").Sheets(1).Columns(5), ExCode) = 0 Then
                    I = Workbooks("マスターEXCELデータ").Sheets(1).Columns(5).Find(ExCode).Row
                    MsgBox I
                End If
            Next cnt
        End If
    End With

Answer 1

別ファイル"マスターEXCELデータ"の指定をWorkbooks("マスターEXCELデータ.xlsx")というように拡張子を付けてみて下さい。
それと「if Not cnt2 = ～」の部分はエラーは出ないようですが恐らく正しく判定されないと思いますので下記の様に代入と比較を分けた方が良いと思います。

cnt2 = Application.WorksheetFunction.CountIf(･････, ExCode) '長いので一部省略
If cnt2 > 0 then
    I = Workbooks("マスターEXCELデータ.xlsx").･････.Find(ExCode).Row
    MsgBox I
End if

Comments

[cd987456]

回答ありがとうございます。
上手く処理できました。