行をコピーするマクロ

質問

下記のような表があります。
最初は10件分の行しかない(印刷するとこれで1ページ)
のですが10件を超えた場合に、この元になっている表
(データの入っていないテンプレート、他のシートにあります)
から10件を埋めた後にコピーするマクロを組みたいのです。

具体的には23行目に別シートの2行目から22行までをコピー
するマクロボタンをこのシートにおきたいと思っています。

日によってデータの量は数件から200件くらいになり、日締めで
これを印刷しなければいけないので、必要なページのみ
印刷したいからです。

使っているのはWindowsXP（SP3)、OfficeXP(2002）です。

回答No.2

keithin

＞データ入力用のシートにペーストできなかった

「できなかった」とは，貼り付けが作動しなかったという意味ですか？それとも何か間違った場所に貼り付いたという意味でしょうか。

いずれにしても，回答の手順をスルーして行ってない，若しくは間違った事をしてると考えられます。
１）データ入力用のシートにマクロのボタンを設置して実行していますか。
２）回答したのと違う，間違ったモジュールにマクロを記載していませんか。
３）Ｃｔｒｌ＋Ｅｎｄを押して最後のセルを確認する以下の操作をキチンと行いましたか。

でも今回あなたがご自分で追加作成したマクロのように，データ入力シートの「Ａ列だけ」見ればどこまで入力したのかしっかり調べられるという前提を置いた（そのようにしか作動しない）マクロでいいなら，それはそれで簡単なので，そうしてください。

＞ペーストした行を選択したままなので、
＞なんとか入力行の最初のセルを選択するようにしたい

ペーストした次の行に
activecell.select
と書き足して下さい。

お礼

再度、教えていただきありがとうございます。
ペーストされていなかったと思ったのは勘違いで
かなり下の行（160行）にペーストされていました。
最初のＣｔｒｌ＋Ｅｎｄで選択しているセルの最終列（IV)
が選択されたのでT列よりIV列まで削除してから
終了して、再度ペーストしたマクロを実行したら
上記のようになりました。

それで今度は23列より190列まで削除してから
同様に行ったところ教えてもらったマクロのみで
上手く行くようになりました。

activecell.selectを入れてみましたが最後に入力した
セルを選択したままです。
希望はA列の「商品番号」の下のセルを選択したいのですが
なんか上手く行く方法はありますか？

質問ばかりですいません。

回答No.1

keithin

簡単な準備：
まだデータを記入していない状態でＣｔｒｌ＋Ｅｎｄを押す
表の右下セルにジャンプする事を確認する
もしも余計なセル（たとえばＳ６０セルあたり）まで飛んで行ってしまったときは、２３行目から最終セルを含んだ行（６０行）までを「行選択」し、行番号を右クリックして「行削除」し、必ずブックを一回保存し閉じて開きなおす
改めてＣｔｒｌ＋Ｅｎｄを押し、今度はＳ２１で止まることを確認する。失敗した時は行削除の手順をやり直す。

手順:
ＡＬＴ＋Ｆ１１を押してＶＢＥ画面を出す
挿入メニューから標準モジュールを挿入する
下記のマクロをコピー貼り付ける

sub macro1()
dim r as long
r = activesheet.cells.specialcells(xlcelltypelastcell).row + 1
worksheets("テンプレートのシート").rows("2:22").copy destination:=cells(r, "A")
end sub

シートにオートシェイプの図形などでボタン絵柄を作成し、右クリックしてマクロの登録でマクロを登録する。

お礼

ありがとうございます。何とかコピー、ペーストするところまでは出来ました。

補足

コピーしてやってみましたが、データ入力用のシートにペーストできなかったので
試行錯誤して下記の構文を入れて何とかコピーできるようにはなりました。
Dim LastRow As Long
LastRow = Cells(Rows.Count, 1).End(xlUp).Row + 2
Rows(LastRow).Select
ActiveSheet.Paste
Application.CutCopyMode = False

しかし、このままではペーストした行を選択したままなので、
なんとか入力行の最初のセルを選択するようにしたいの
ですがうまくいきません。
ヒントでも良いので教えていただけると助かります。