エクセルＶＢＡ マクロの記録をコマンドボタンにコピペしても動かないのはなぜ？

質問

マクロを記録した以下は問題なく動くのですが、

Sub Macro1()

Sheets("AAA").Select
Range("A39:AQ39").Select
Selection.Copy
Sheets("BBB").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
End Sub

これをシート”BBB”のコマンドボタンに下記のようにコピペすると
Range("A39:AQ39").Selectでエラーが発生し動きません。
どうすれば動くようになるのでしょうか？

また、どうしてボタンだとコピペするだけではいけないのでしょうか？

Private Sub CommandButton1_Click()

　　　ここにコピペ

End Sub

回答No.1

SV576 · ベストアンサー

そのエラーメッセージの内容を教えてください。

> また、どうしてボタンだとコピペするだけではいけないのでしょうか？

ボタンだと、ということはありませんが、コピペだけで動くかどうかは内容次第です。

また、ためしに以下のようにすると、どうですか？

Private Sub CommandButton1_Click()

Worksheets("AAA").Range("A39:AQ39").Copy
Worksheets("BBB").Range("A1").PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False

End Sub

お礼

回答ありがとうございます。

回答の方法でうまくいきました。

ボタンでなければ、マクロの記録のままで動きます。

元々出ていたエラーメッセージは

実行時エラー’1004’
RangeクラスのSelectメソッドが失敗しました。

です。

回答No.2

SV576

＞実行時エラー’1004’
＞RangeクラスのSelectメソッドが失敗しました。

いろいろ考えられますが、ボタンから起動する場合はボタン自体が選択状態になっていたのかもしれませんね。

マクロ記録で作られたコードは、見てのとおりSelectがたくさんありますが、いちいち人が行った動作をすべて記録するからです。これが、呼び出すときの状況によってはエラーの原因になることもあります。
なので、ボタンだからだめ、というわけではなく、適宜編集する必要があることを、覚えておくといいと思います。

ちなみに下のコードは、シート"BBB"の"A1"セルに貼り付けるようになっているので、適宜その部分を変更してください。

お礼

回答ありがとうございます。