エクセル2003のマクロでコマンドボタンでの貼り付けが出来ない。

締切済

質問者：buruuo
質問日時：2008/08/31 20:29
回答数：2件

はじめまして、マクロ記載などコードを書くのは初めての初心者です。今回エクセル2003のマクロで、ワークシートから数値データーを他のワークシトに貼り付けようとコマンドボタンを作成して実行してるのですが、「実行時エラー1004、rangeクラスのserectメソッドが失敗しました」とのエラーが帰ってきます。

しかしマクロダイアログにコードを貼り付けて操作すると成功してしまいます。
コマンドボタンが使用出来ないのでしょうか？
教えて頂けないでしょうか、何方かよろしくお願いいたします。

///////////////////////////////////////////
Private Sub CommandButton2_Click()
Range("B5:AX14").Select
Range("B5:AX5").Select
Selection.Copy
Sheets("報告FORMAT").Select
Range("A72").Select　←ここで止まってしまってる様です。
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=True, Transpose:=False
Range("A68").Select
Sheets("管理format").Select
Range("A1").Select
Application.CutCopyMode = False
ActiveCell.FormulaR1C1 = ""
Range("A2").Select
End Sub
//////////////////////////////////////////////////

通報する

この質問への回答は締め切られました。

質問の本文を隠す

回答 (2件)

最新から表示
回答順に表示

No.2

回答者： mitarashi
回答日時：2008/08/31 23:44

Sheet2に記述した、下記コードは実行時エラーになりますが

Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
Range("a1").Select
End Sub
下記コードは動作しました。Rangeの対象シートを明示してやれば良いのではないでしょうか。
Private Sub CommandButton1_Click()
Sheets("Sheet1").Select
ActiveSheet.Range("a1").Select
End Sub
そこから先は確認してありませんが、ご参考まで。