【VBA】入出力シートからデータの取得と転記をする【ForとIfで検索する】

[@瀬崎久雄-w7w]

お疲れ様です。Excel2019でチャレンジしていますがCall GetDataが実行されない！動画と全く同じなのですが・・

[@IT-gx8sf]

コメントありがとうございます！
↓こちらのVBAコードでの処理になるかと思います。
Private Sub Worksheet_Change(ByVal Target As Range)

'B3以外が変更された場合は、処理を終了
If Target.Address(False, False) "B3" Then Exit Sub

'データを取得する
Call GetData

End Sub
もしかすると、商品のリストを入力するセルが「B3以外」になっているかもしれません。
次のように実行した場合は、どのメッセージボックスが表示されますでしょうか。
↓実行確認用のメッセージボックスを追加したVBAコードです。
Private Sub Worksheet_Change(ByVal Target As Range)

MsgBox "①：Changeイベントが実行されました"

'B3以外が変更された場合は、処理を終了
If Target.Address(False, False) "B3" Then Exit Sub

MsgBox "②：B3のセルが変更されました"

'データを取得する
Call GetData

End Sub
確認方法としては、次の3つのパターンになります。
■パターン①
メッセージボックスがなにも表示されない場合は、Changeイベントが実行されていないことになります。
なので、「入出力シート」を作成したシートの「シートモジュール」に上記のChangeイベントを記載するといいです。
■パターン②
①のみが表示された場合は、「Exit Sub」で終了しています。
なので、商品のリストを入力するセルを「B3」セルにすることで解消できるかと思います。
■パターン③
①と②が表示された場合は、「GetData」は実行されているんですけど、うまく値を取得できていないことになります。なので、直接「GetData」のVBAコードを実行して、値を取得できているかの確認をするといいです。
参考になればと思います（^^）
不明な点があればご連絡いただけたらと思います。

[@瀬崎久雄-w7w]

@@IT-gx8sfありがとうございます。これからチャレンジします。

[@瀬崎久雄-w7w]

@@IT-gx8sf パターン③でいきます。ありがとうございました。今後ともよろしくお願いいたします、先生頑張って下さい。