セルに値が入ったらマクロを実行したい！

先日、下記の質問をさせて頂いて

Excelでファイル1ファイル2ファイル3と3つあります。
ファイル1とファイル2にはそれぞれシートＡとシートＢがあり
　
　 Ｂ 　　Ｃ 　 Ｄ　　Ｅ　
　ﾅﾝﾊﾞｰ　氏名　年齢　性別　
　 1　　 山本　 25　　男
　 2　　 鈴木　 35　　男
　 3　　 田中　 45　　女
　 ・　 　 ・　 ・　　 ・
　 ・　 　 ・　 ・　　 ・
　 ・　 　 ・　 ・　 　・

シートＡシートＢ共、上記のような感じです。

これをファイル3に抽出したいのですが、
ファイル3も
ﾅﾝﾊﾞｰ　氏名　年齢　性別
と、同じです。

条件としてファイル1とファイル2を入力するのは
ランダムに入力していきます。
ファイル1ファイル2に入力された時、マクロボタンを
押した時ファイル３に抽出したいのですが・・・

以下の文で解決しました。

Sub ボタン1_Click()
With Workbooks("ファイル3").Sheets("Sheet1")
GYOU1 = Range("Ｂ" & Rows.Count).End(xlUp).Row
GYOU2 = .Range("Ｂ" & Rows.Count).End(xlUp).Row　＋1
.Range("Ｂ" & GYOU2 & ":Ｅ" & GYOU2).Value = Range("Ｂ" & GYOU1　＋　6 　& ":Ｅ" & GYOU1).Value
End With
End Sub

追加で抽出する条件を追加したいのでアドバイスを頂きたいのですが

①Ｂ列は最初から数字が入っているため、抽出するのはＢ列～Ｅ列がすべて入力されている時
②毎回２行づつ入力するので抽出するのは最終行とその上の１行の２列をファイル3に抽出したい。



【本題】
　　上記の質問を実際のシートに対して、みなさんの回答を参考にさせて頂いて、

Sub 移動()
Dim GYO1 As Long
Dim GYO2 As Long
With Workbooks("ファイル3.xlsx").ActiveSheet
GYO1 = Range("C" & Rows.Count).End(xlUp).Row
GYO2 = .Range("B" & Rows.Count).End(xlUp).Row + 1
.Range("B" & GYO2 & ":E" & GYO2).Value = Range("B" & GYO1 -1 & ":E" & GYO1 -1).Value
.Range("B" & GYO2 +1 & ":E" & GYO2 +1).Value = Range("B" & GYO1 & ":E" & GYO1).Value
End With
End Sub

これでマクロボタンを登録したら行けたのですが、マクロボタン押し忘れ対策として
Ｂ列からＥ列まで入力していってＥ列に値が入った時点で
このマクロを実行するにはどのように記述すればいいですか？
自分なりに調べてWorksheet_Changeまではたどり着いたのですがうまくいきません。

長々と分かりにくい分ですいませんが、知恵をお貸しください。

No.3 ベストアンサー 回答者： nokonoko524 回答日時： 2016/06/11 01:14

No.1です。

ファイル１とファイル２は同じものと思いますので、この際無視します。

＞ファイル３に飛んでいきません
これは目的のデータがファイル３に入力されないということですよね？
ファイル３にはマクロは不要と思いますが・・・

必要なのは
・ファイル１のシートAモジュールにWorksheet_Changeイベントのプロシージャを書いて
　移動()プロシージャを呼び出す。
・ファイル１の標準モジュールに移動()プロシージャを書く
の2点です。
移動() プロシージャの起動条件はいろいろと都合があると思いますので、If文の中身を十分に検討下さい。

申し訳ありませんがうまく動作しない場合はデバグして詳細に、
目的の動作をしているかをご確認いただく必要があると思います。

・Worksheet_Changeのマクロは起動しているのか
・Target.Column の値は 目的の値（5)か
・移動() プロシージャに処理が移るか
・移動() プロシージャの動きはボタンで起動したときと同じか
などなど。

質問文のコードを組まれているのでデバグはされていると思いますが、、、
http://www.asahi-net.or.jp/~ef2o-inue/vba_k/sub0 …

それはすでにやってるよ！と言われると申し訳ない。

この回答へのお礼

いろいろとありがとうございます。頂いた回答を参考に試行錯誤して組んでいくと飛ぶようになりました。
まだ中身は理解出来てませんが・・・しっかり勉強します。
分かりにくい内容にお付き合い頂きありがとうございました。

お礼日時：2016/06/11 17:12

No.2 回答者： nokonoko524 回答日時： 2016/06/09 01:21

No.1です。

コードが標準モジュールに書かれているならそのままでよいはずです。
デバッグはされていますでしょうか？
動作確認して、「ダメ」の内容についてご確認ください。
Worksheet_Changeのマクロが起動しないのか、移動()のマクロにとばないのか・・・・
if文で一時停止するようにしてステップ（F8)で動作チェックすると問題点が出ると思います。

「入力するシート」=ファイル１，２のシートA, B のつもりですが勘違いないでしょうか？

記述されているコードもファイル１，２の標準モジュールですよね？

この回答へのお礼

Ｎｏ.1さんありがとうございます。

ファイル1,2の標準モジュールには質問文のコードを記述しています。

動作確認しましたがファイル3に飛んでいきません。
ファイル3には回答頂いたコードの下にファイル1,2と同じコードを
記述しています。

分かりにくい内容ですが、よろしくお願いします。

お礼日時：2016/06/09 01:41

No.1 回答者： nokonoko524 回答日時： 2016/06/09 00:02

こんにちは。

ずぼらで申し訳ないですが、ひとまず最後の５行だけ読んで、、、、
E列に入力があったら上記のマクロを起動させるだけであれば、
「入力するSheetのモジュール」に

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Column = 5 Then 移動
End Sub

でいけませんかね？

この回答へのお礼

ありがとうございます。
やってみたのですがダメでした。

「入力するSheetのモジュール」に頂いたコードを入力したのですが
その下に質問文にあるコードは入力する必要はありますか？

移動元シートにも質問文にあるコードを入力したのですがうまくいきません。
あとどこを訂正すればよいのでしょう？

お礼日時：2016/06/09 00:18