Excel VBA 超初心者 困っています。

質問

Excelで見積書を作成しています。
　マクロでページを追加できるようにしたいのですが、貼り付け先のセルを指定する方法をインターネットで探しながら作ってみると

　実行時エラー１００４　Range クラスの　PasteSpecial　メソッドが失敗しました。

となります。

　ワークシートを指定すればいいのかなと思いますが、どういう風に指定するのかがわかりません。

　どうか、教えてくださいませんでしょうか。宜しくお願いします。

Sub 頁追加()

ActiveSheet.Unprotect

ActiveSheet.Range("A42:AZ84").Copy

Dim a As Range
Set a = Application.InputBox( _
Prompt:="セル範囲を選択してください", _
Title:="セル選択ダイアログ", _
Type:=8)
a.PasteSpecial
Application.CutCopyMode = False

EndSec:
Set Rng = Nothing

ActiveSheet.Protect DrawingObjects:=True, Contents:=True, Scenarios:=True

End Sub

回答No.1

keithin · ベストアンサー

こんなカンジでしょうか。

sub macro1()
　dim res as range
　on error resume next
’シートを保護する
　activesheet.protect userinterfaceonly:=true
’対象のセルを指定する
　set res = application.inputbox(prompt:="Select Range", title:="Selection", type:=8)
’キャンセルしたら終了する
　if res is nothing then exit sub
’コピーして貼り付ける
　range("A42:AZ84").copy destination:=res.cells(1)
end sub

お礼

返事が遅くなってしまって申し訳ありませんでした。

　早々にご回答をいただいていたようで、本当に感謝いたします。

　keithin様の文を殆どそのまま貼り付けましたら、ちゃんと動いてくれました。

　勉強不足で、時間もあまりなくて、自力ではもう無理かなと思っていたところ、思い切って質問してみて良かったです。

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

回答No.2

mu2011

原因は、copy後に余計なメソッド（Inputbox）がある為、copyがリセットされ
PasteSpecialメソッドでコピー元なしとなるからです。
copyをInputBoxメソッドの直後に移動すれば動作します。
因みにキャンセルボタン押下するとInputBoxメソッドでエラーになるので
もう少しｗｅｂ検索して学習して下さい。

お礼

お返事が遅くなり、申し訳ございませんでした。

　また、早々に回答してくださりありがとうございました。

　mu2011様にご指摘された箇所を見て、納得です。
　それが原因でエラーが出ていたのですね。

　何をどう検索すると自分の知りたいことが解るのかさへもわからない状態になっていました。

　ここへ質問してこんな風に回答していただき本当に感謝です。

　キャンセルボタン押下・・・・の件も、頑張って調べて学習してみます！

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