エクセルのVBAコードについて教えてください。

下記のコードは先日教えて頂いたコードを参考に作成しました。
セルＤ47に不特定の文字が表示されるとマクロ住所コピーが実行されます。
しかし、セルＤ47があるシートを他のブックのシートからコピペした場合は
マクロが上手く実行されません。
セルＤ47に直接書き込むとマクロが事項されます。
この問題を解決できる方法を教えてください。
よろしくお願いいたします。
If Not Intersect(Range("$D$47"), Target) Is Nothing And Not Target.Value <> "" Then Call 住所コピー
以上となります。
よろしくお願いいたします。

No.1 ベストアンサー 回答者： fujillin 回答日時： 2024/07/03 19:19

こんにちは

意味がよくわかりませんけれど・・

＞セルＤ47があるシートを他のブックのシートからコピペした場合は
＞マクロが上手く実行されません。
状況が不明ですが、シートそのものをコピーしたのであれば、コピー元のシートにChangeイベントのマクロが設定されていなければ当然ながら動作しません。
なおかつ、シートそのもののコピーでは、セルの値は変更されていないので、Cangeイベントは発生しません。
マクロが設定されていないシートでも同様の処理を適用したいという意味なら、ブックのChangeイベントを利用してください。
（ただし、シート名のチェックが必要になると思います）

セルの値を他シートからコピペしたのであれば、Changeイベントは発生するので、ご提示のコードは実行されるはずです。
ただし、ご提示のコードでは対象セルの値が空白の場合は実行しないように制御していますので、空白セルをコピペしても実行はされません。
空白の場合でも実行したいという意味なら、制御を外せば良いでしょう。

なお、質問者様はマクロを多用しているようですので、どこかのマクロでイベントを停止したままになっていれば、当然ながらイベントは発生しません。

この回答へのお礼

回答ありがとございます
連絡が遅くなりまして申し訳ありません
詳しく教えて頂きまして
ありがとうございました
おっしゃる通りです
少し整理して、試してみます
感謝いたします

お礼日時：2024/07/03 20:55