VBAにて別シートに貼り付けたいのでができません

質問

今開いているファイル（A）内のシート（依頼）にVBAを以下の用に記述しました。

これをデスクトップにあるファイル（提出）内のシート（データ更新）に貼り付けたいのですが
できません。

「インデックスが有効範囲にありません。」と表示されます。
どこが悪いか教えて下さい。

sub 取り込み（ ）
Sheets("依頼").Range(Cells(15, 2), Cells(30, 21)).Copy
Workbooks.Open Filename:="C:\Documents and Settings\Administrator\デスクトップ
\作業中\提出.xls"
Sheets("データ更新").Select
Range(Cells(15, 2), Cells(15,2)).Select　　　　
ActiveSheet.Paste
Application.CutCopyMode = False

End sub

回答No.3

mu2011 · ベストアンサー

マクロをシートモジュールに登録すると、シートを指定しないセルはそのシートのセル、標準モジュールでは、シートを指定しないセルはアクティブシートのセルになることをご理解下さい。

よって、Range(Cells(15, 2), Cells(15,2)).Select　のコードは「依頼シート」、アクティブになっている提出.xlsにこのシートが存在しないのでエラーになったものと思います。

sub 取り込み（ ）
Range(Cells(15, 2), Cells(30, 21)).Copy　
Workbooks.Open Filename:="C:\Documents and Settings\Administrator\デスクトップ\作業中\提出.xls"
Sheets("データ更新").Cells(15, 2).Select
ActiveSheet.Paste　　
Application.CutCopyMode = False
End sub

お礼

具体的に教えていただき、モヤモヤがなくなりすっきりしました。
自力で基礎を理解していないまま、マクロを組んでいたので分かりませんでした。
やはり基礎が大事だと思いました。
どうもありがとうございました。

回答No.2

TAKA_R

sub 取り込み（ ）
Workbooks.Open Filename:="C:\Documents and Settings\Administrator\デスクトップ
\作業中\提出.xls"
workbooks("依頼").Sheets("依頼").Range(Cells(15, 2), Cells(30, 21)).Copy workbooks("提出.xls").Sheets("データ更新").Cells(15, 2)　
Application.CutCopyMode = False

End sub

だとすっきり？？

お礼

このようなシンプルな記述でできるとは思いませんでした。
試しにやってみます。
どうもありがとうございました。

回答No.1

keithin

＞今開いているファイル（A）内のシート（依頼）にVBAを以下の用に記述しました。

たぶん、これが間違っています。

手順：
１．今のマクロは全部消す
２．ＡブックでＡＬＴ＋Ｆ１１を押す
３．ＶＢＥ画面で挿入メニューから標準モジュールを挿入する
４．ご相談のその通りのマクロを記入する（別に手直しは必要はありません）
５．ファイルメニューから終了してエクセルに戻り、マクロを実行する。

お礼

標準モジュールとか、thisbookなどの違いを理解しないまま、マクロを使用していました。
アドバイス通り行いましたら出来ました。
どうもありがとうございました。