Excelで、既に作成してある月別Sheetを呼び出すマクロを作りたい

質問

Excelで、既に作成してある月別Sheetを呼び出すマクロを作りたいのですが教えて下さい。

２ヶ月に１回のゴルフ会の成績表を作成するのに、
１月成績、１月転記、３月成績、３月転記というように１２のSheetが作ってあります。
当該月分の入力準備表を(Sheet 7月成績)に２ヶ月前の(Sheet 5月転記)のSheetを丸ごとマクロでコピーをしたいのです。
　この7月と入力したら、(7月成績)のSheetを呼び出し、コピー元のSheet(5月転記)をマクロに記入出来るように設定したいのです。
例えば、　　　1(月)と入力したら、　　　　11月転記Sheetから自動コピーの指定
　　　　　　　3(月)と入力したら、　　　　 1月転記Sheetから自動コピーの指定
　　　　　　　7(月)と入力したら、　　　　 5月転記Sheetから自動コピーの指定
　　　　年間6回の作業となります。
初心者の私が、自動記録でマクロを記入したところ、下記のようになり、同じ作業をするのに各月ごとのマクロ６本を作る必要があり、不便なので何とか１つのマクロで処理が出来ればと思い、その方法を教えて頂ければ幸いです。

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
　　・・・・・・

回答No.3

MackyNo1 · ベストアンサー

そのまま実行するなら、以下のようにコードを修正してください（&と文字列などの間にスペースが必要）。

Sub Macro1()

Dim Tuki As Integer
Dim Tuki2 As Integer

Tuki = Range("a1").Value
If Tuki < 3 Then
Tuki2 = Range("a1").Value + 10
Else
Tuki2 = Range("a1").Value - 2
End If
Sheets(Tuki2 & "月転記").Select
Cells.Select
Selection.Copy
Sheets(Tuki & "月成績").Select

お礼

非常にスピーディーで、かつ親切丁寧に教えて頂きありがとうございました。
感謝しております、これを機会にいろいろマクロの勉強をしたいと思います。
またお世話になるかもわかりませんが、よろしくお願いします。
本当にありがとうございました。

回答No.4

mar00

' テスト作成
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
Dim Tuki1 As Integer
Dim Tuki2 As Integer

Tuki1 = Range("A1").Value

Select Case Tuki1
Case 1, 2
Tuki2 = Tuki1 + 10
Case Else
Tuki2 = Tuki1 - 2
End Select

Sheets(Tuki2 & "月転記").Select
Cells.Copy
Sheets(Tuki1 & "月成績").Select
Cells.Select
ActiveSheet.Paste
Range("E5:F5").Select
Range(Selection, Selection.End(xlDown)).Select
ではどうでしょうか。

お礼

入力したところ、順調に作動しました。
いろいろな操作方法があるのですね、益々興味が出てきました。
マクロについてもっともっと勉強します。
ありがとうございました。

回答No.2

mar00

テスト作成を動かしてエラーになった時にデバッグすると
Sheets(Range("A1").Value&"月成績").Selectのところで
エラーになっているのでは?
Dim Tuki As Integer

SHEET_NAME = ActiveSheet.Name これを追加する
If Range("a1").Value < 3 Then

Sheets(Range("A1").Value&"月成績").Selectを
Sheets(SHEET_NAME).Select にすれば
うまく動くのではないかと思います。

お礼

初心者に早速教えて頂きありがとうございました。
　MackyNo1 様のご指導でうまく動くようになりましたので解決しました。

補足

本当にすみません。
上記に変更するも、
Sheets(Tuki&"月転記").Select　　の部分が赤色になり、
　　この部分で、エラーとなってしまいます。

どうぞよろしくお願いします。

回答No.1

MackyNo1

マクロを実行するシートのA1セルに「７」のような数字を入力する場合、現在のコードの前に以下のようなコードを追加し、シート名を参照する部分を以下のように変更してみて下さい。

Dim Tuki As Integer

If Range("a1").Value < 3 Then
Tuki = Range("a1").Value + 10
Else
Tuki = Range("a1").Value - 2
End If

変更するコード

Sheets("5月転記").Select　→　Sheets(Tuki&"月転記").Select
Sheets("7月成績").Select　→　Sheets(Range("A1").Value&"月成績").Select

お礼

すごい、　早速にありがとうございます。　ど素人ですみません。

下記のように既存マクロに追加記入をしてみましたが、
コンパイルエラー　　構文エラー　　と表示されうまく動きません。
どうぞよろしくお教え頂ければありがたいです。

Sub Macro1()
' テスト作成
' Macro1 Macro
'
' Keyboard Shortcut: Ctrl+a
Dim Tuki As Integer

If Range("a1").Value < 3 Then
Tuki = Range("a1").Value + 10
Else
Tuki = Range("a1").Value - 2
End If
Sheets(Tuki&"月転記").Select
Cells.Select
Selection.Copy
Sheets(Range("A1").Value&"月成績").Select
Cells.Select
ActiveSheet.Paste
Range("E5:F5").Select
Range(Selection, Selection.End(xlDown)).Select

すみません、　　お礼入力のこの欄で再質問をしても良いのかもわかりません。
初心者ですみません。