行抽出マクロについて教えてください。

質問

エクセルで
sheet1このように入力されております。
A列には製造番号　Ｂ列には日付　Ｃ列単価　Ｄ列記号がすでに入力済みです。
_____________________________________
行/列　 A 　　 B 　　 C 　　 D
1 　 123456 　 4/5 　 1020 　 K
2　　789456　 5/2 　 500 　　D
3　　789789 　 6/2 　 9000 　 F
4　　456789 　 6/2 　 5000 　 S
-------------------------------------
sheet2には製造番号が500行ランダムに入力済みです。
_____________________________________
行/列　 d 　　 E 　　 F 　　 G
1 　 456789
2　　789456　
3　　789789
4　　456789
5 　　 ：
6　　　：
-------------------------------------
ボタンをおしたら一致した製造番号のEFG列にsheet1の日付・単価・記号を自動的に入力したい。どなたかご教授お願いいたします。

回答No.3

n-jun · ベストアンサー

ANo.1です。

最終行の取得は
http://okwave.jp/qa4338605.html
の回答に書かれていますけど、気づかないですか。
不明なら閉じずに回答者に補足で聞くべきだったと思えますけど。
動いたらそれでいい、と言う考えでは何も進歩しません。

お礼

すみません。有難う御座いました。
これからはそのようにさせて頂きます。

回答No.2

imogasi

次と質問はダブっているよ。（2重押し）
初心者と思うが、それならまず、エクセルで検索の操作（１例として456789を指定して）をして、マクロの記録をとって、どこをどう変えたらよいか考えてわからなければ質問すべきだ。このままでは課題丸投げ。
Findメソッドのコードが出るでしょう。これで見つかった行がわかるから、同行のデータをSheet2に移せばよい。
見つからない場合の処理も必要だが。
1 　 456789
2　　789456　
3　　789789
4　　456789
と行ごとの繰り返しのコードと、最終行で止めるため、最終行の知り方はわかりますか。
それに２つのシートを扱うが、その場合のコード作成の注意点。
勉強することはそんなことでしょう。

補足

有難う御座います。
”最終行で止めるため、最終行の知り方はわかりますか。”
がわかりません。どうかご教授お願いいたします。

回答No.1

n-jun

http://okwave.jp/qa4338453.html

書き込む列を変更するだけでは？