Excelで、既に作成してある月別Sheetを呼び出すマクロを作りたい
Excelで、既に作成してある月別Sheetを呼び出すマクロを作りたいのですが教えて下さい。
2ヶ月に1回のゴルフ会の成績表を作成するのに、
1月成績、1月転記、3月成績、3月転記というように12のSheetが作ってあります。
当該月分の入力準備表を(Sheet 7月成績)に2ヶ月前の(Sheet 5月転記)のSheetを丸ごとマクロでコピーをしたいのです。
この7月と入力したら、(7月成績)のSheetを呼び出し、コピー元のSheet(5月転記)をマクロに記入出来るように設定したいのです。
例えば、 1(月)と入力したら、 11月転記Sheetから自動コピーの指定
3(月)と入力したら、 1月転記Sheetから自動コピーの指定
7(月)と入力したら、 5月転記Sheetから自動コピーの指定
年間6回の作業となります。
初心者の私が、自動記録でマクロを記入したところ、下記のようになり、同じ作業をするのに各月ごとのマクロ6本を作る必要があり、不便なので何とか1つのマクロで処理が出来ればと思い、その方法を教えて頂ければ幸いです。
Sub Macro1()
' 入力準備表作成
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
'
Sheets("5月転記").Select ← 7月と入力した場合、自動的に5月転記となるように
Cells.Select
Selection.Copy
Sheets("7月成績").Select
Cells.Select
ActiveSheet.Paste
Range("E5:F5").Select
Range(Selection, Selection.End(xlDown)).Select
Application.CutCopyMode = False
・・・・・・
お礼
皆さん 親切なご回答ありがとうございました。 たしかに、さほど面倒な方法ではないのですが、 会社で、日々の入力だけは出来る人へ月末に来月分を 作成する方法を、教えたのですが、なかなか苦労してるようなので、 もっと簡単な・・・(原本をいじられるのが、こわくて) 方法があるかな~~って言うのがきっかけでした。 気長に見守ってゆきたいと思います。 失礼とは思いますが皆さんに同じ文面で申し訳ありません。 今後も宜しくお願いします。