Step4　ファイル一覧の上から順に調べていく

検索開始ボタンをクリックすると作成されるファイル一覧を、上から繰り返して空かどうか調べていきます。繰り返しはDo While ～ Loop文を使います。

クリックイベントコード

検索開始ボタンをクリックすると、H列の上から順にセルが空になるまで進みます。


クリックイベント内を下記のコードに変更します。
MySearchStartを追加しています。
引数は行数、列数になっています。

    If Range("B5") = "" Then
        Beep
        MsgBox "検索フォルダを指定してください。"
        Range("B5").Activate
    Else
        ExFolderSearch Range("B5"), 2, 8
        MySearchStart 2, 8
    End If

指定されたセルを上から順に空になるまで繰り返します。

繰り返しは、Do While ～ Loop を使っています。
Cells(lRow, lCol)<>"" でセルが空かを調べています。

Private Sub MySearchStart(lRow As Long, lCol As Long)
    Do While (Cells(lRow, lCol) <> "")
        lRow = lRow + 1
    Loop
End Sub