ExcelVBA：ワークシートに付けたコマンドボタンから、セル全体をコピーするコード

質問

ExcelVBAでワークシートに付けたコマンドボタンを押すと、ワークシートを指定し、コピーするプログラムを作りたいのですが、「実行時エラー'1004':RangeクラスのSelectメソッドが失敗しました。」というようなエラーが出て動きません。
プログラムは以下の通りです。

Private Sub CommandButton1_Click()

Sheets("Sheet1").Select
Cells.Select
Selection.Copy

End Sub

どのようにすればよいでしょうか？
回答よろしくお願いします。

回答No.1

zap35 · ベストアンサー

どんな目的でこのマクロを実行するのか分かりませんが、以下にすればエラーにはなりません

Private Sub CommandButton1_Click()
　Sheets("Sheet1").Cells.Copy
End Sub

でもシート全体をコピーするのではなく必要な範囲をコピーする方がよいようにも思いますが…

お礼

目的は、データを元に新規作成し、そこに元のデータと加工したデータをワークシートに貼り付けるという作業をプログラムで作りたいということです。
Sheets("Sheet1").Cells.Copy
この方法なら、エラーが出ずにプログラムが動きますね。
シート全体をコピーするのはそのときによって範囲が変わってしまうので、どうせなら全体をコピーした方がいいかなぁと思いました。

大変参考になりました。
ありがとうございました。

回答No.3

imogasi

マクロの記録はどうしたの。マクロの記録など相手にしないレベルですか。
Sub Macro1()

Cells.Select
Selection.Copy
Sheets("Sheet2").Select
ActiveSheet.Paste
End Sub
と出たけど、これでは都合が悪いのかな。
質問する前に、マクロの記録を取れるものは採って、それではうまくいかないとか、そういう風な話の持って行き方・考え方が良いのではないですか。
ーー
ただしシートのコピーなど似たようなkとは色々できそうですが。

お礼

imogasiさんのおっしゃる通り、質問の前にマクロを実行してそれを元にプログラムを作りました。それでプログラムを走らせたところ、エラーが出てしまいました。
この部分の話が抜けてましたね。

ありがとうございました。

回答No.2

xcode_15

「ExcelVBAでワークシートに付けたコマンドボタンを押す」とは、Sheet1をもコピーする事ではないよね。
Sheet1も対象にすると、動かしているプログラム自信をもコピーする事になるので、可笑しくありませんか？

お礼

今更ですが、お礼の記載が大変遅くなり、申し訳ありません。

ありがとうございました。