VBA IF文の条件分岐

Question

前提・実現したいこと

おはようございます。VBAです。

伝票の取引コードをマスタのコードと付け合わせ、一致したものをマスタからすべて出力するような動きを考えています。
その動き自体は問題ないのですが、マスタにコードがなかった場合に別の処理をしたいと考えているのですが、その分岐方法で悩んでいます。

マスタのデータをすべて見た後でコードが見つからなかった場合　といったような分岐にしたいです。

よろしくお願い致します。

発生している問題・エラーメッセージ

エラーメッセージ

該当のソースコード

k = 3
maxrow = book1.Cells(Rows.Count, 1).End(xlUp).Row
maxrow2 = book3.Cells(Rows.Count, 1).End(xlUp).Row

For i = 2 To maxrow
　For j = 2 To maxrow2

       'book1:伝票　book2:転記先　book3:マスタ  

　　　　If book1.Cells(i, 1).Value = book3.Cells(j, 1).Value Then

             book2.Cells(k, 2).Value = book3.Cells(j, 2).Value

          k=k+1

　　　　end if
 Next j
Next i

試したこと

ここに問題に対して試したことを記載してください。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Answer 1

1件みつかる毎にカウンターに１加算して、その件数をカウントします。
カウンターが０件の時、あなたがなさりたい処理をすれば良いかと。
尚、伝票の取引コードごとに、見つかったかそうでないかを決める前提で書いています。
伝票全体で1件も見つからないケースであれば、K=3かどうかで、判定できます。
（動作確認はしていません）

    Dim ctr As Long
    k = 3
    maxrow = book1.Cells(Rows.Count, 1).End(xlUp).Row
    maxrow2 = book3.Cells(Rows.Count, 1).End(xlUp).Row

    For i = 2 To maxrow
        ctr = 0
        For j = 2 To maxrow2

            'book1:伝票　book2:転記先　book3:マスタ

            If book1.Cells(i, 1).Value = book3.Cells(j, 1).Value Then

                book2.Cells(k, 2).Value = book3.Cells(j, 2).Value

                k = k + 1
                ctr = ctr + 1
            End If
        Next j
        If ctr = 0 Then
            '1件もマスターに存在しなかった場合の処理
        End If
    Next i

Comments

[yama0131]

出来ました！いつもありがとうございます！