Worksheet_Changeが 起こらない？

質問

早速ですが
fundata　シートの
Worksheet_Change

endrh = Cells(20000, 1).End(xlUp).Row
Application.EnableEvents = False
'If Target.Address = "$F$" & endrh Then

ですが　手入力で　Ｆ　最後を　弄ると　イベントをひらうのですが

他のシート("orgdata").の
Worksheet_Calculate()

Worksheets("orgdata").Activate
Range("a4:h4").Select
Selection.Copy

Worksheets("fundata").Activate
Range("A2").Select
Range("A20000").End(xlUp).Offset(1).Select
Selection.PasteSpecial Paste:=xlValues

でデータを　アペンドで　追加するのですが、その追加には　上記が反応しないのです。

また、情報として　orgdata　の Range("a4:h4").　は　リンクで得られたデータをもとに　加工して　値が得られ、時間で変化しています。

リンクで得られたデータは　癖があるのは承知しているのですが、その口でしょうか？

よろしくどうぞ

回答No.1

temtecomai2 · ベストアンサー

やりたいことの詳細は置いといて、
fundata シートの Worksheet_Change イベントの中で
Application.EnableEvents = False
を実行したのちに解除していないので、この Worksheet_Change イベントが 1度実行されると、Excel のイベントが発生しないようになってしまう気がする。

fundata シートの Worksheet_Change イベントの最後に
Application.EnableEvents = True
でイベントが発生するように戻してみては？

お礼

恐れ入ります。

最下段なもので　割愛しました。入っています。

新しい状況では、ブレークポイントで見ると　イベントひらっています。
訂正させていただいて、

条件の　ＩＦ文が　働かないようです。
質問では　レムってますが、いろいろ錯誤中なもので、ご容赦

補足

お礼と補足が入れ違いになりましたが、自己レスということで

target.address　＝　全部変化する番地　なら　通りました。
"$A$" & endhr & ":" & "$H$" & endhr then

これが、仕様かどうか不明ですが,
これじゃ、あそこが変化したら、こうだとか、簡単な分岐ができないな。

おまけに、全く無関係と思われる　コピーメソッドの失敗とか、とんでもないとこにエラーが飛び火した。

VB6　と比べて、訳わからんです。