エクセルのマクロについて

質問

現在、エクセルで注文書を作成しています。
(A)のページに野菜の一覧表(野菜の名称とその日の野菜ごとの必要数量を計算したページ)
(B)のページを注文書の白地
と仮定させていただきます。

(1)(A)のページの野菜一覧表に野菜ごとのボタンを設置する。
(2)そのボタンをクリックすると、(B)のページに自動的に貼り付けされる

という大まかな流れをイメージしています。

単純に貼り付けるわけですが、注文書のページに、行をつめて貼り付けされるようにしたいのですが、どのようにしていったらよいのでしょうか？？

かなり大まかなイメージですが、是非お知恵をお貸しいただけないでしょうか？？

回答No.1

kuma56 · ベストアンサー

んん・・・？？
どの部分について知りたいのかな？
ちょっとざっくりした質問なので・・・・・

Bページにデータを一件張り付けるなら、Aページのデータのセルを選んで

Selection.Copy
Sheets("Sheet B").Select
Range("貼り付け行の最下端セル").Select
Selection.End(xlUp).Select
ActiveCell.Offset(1, 0).Range("A1").Select
ActiveSheet.Paste

でいけそうな気がするが、Aページのデータが複数になるなら、もうちょいアレンジが必要だが・・・・・

あと、この手の質問の場合は、エクセルのバージョンなんかも書いといたほうが良いかもよ。
それと、質問者のスキル？エクセル歴？なんかも判るといいかもよ。

補足

マクロは全然あつかったことないレベルです。
今、下記コードで(A)から(B)に選択した範囲をコピーすることができました。

　　 Range("A5:O5").Select
Selection.Copy
Sheets("野菜 (2)").Select
ActiveSheet.Paste

様々な野菜があるので、さらにこの下の行につめてコピーを行っていきたいのですが・・・

回答No.2

MackyNo1

＞(A)のページに野菜の一覧表(野菜の名称とその日の野菜ごとの必要数量を計算したページ)
(B)のページを注文書の白地

このパターンなら、(A)のページの野菜一覧表に野菜ごとのボタンを設置するのではなく、（B)のページのどこかのセルに野菜の種類を入力規則で選択できるようにしておき、この条件のデータを（A)シートから関数で引っ張ってくるようにした方が合理的なような気がします。

Aデータのデータベースシートのレイアウトと（B)シートの検索条件セルなどのレイアウトや抽出条件を具体的に例示されれば、実際に使用する関数を提示することができます（マクロで対応する場合も補足説明が必要なことは同じです）。