Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


125 / 13196 ツリー ←次へ | 前へ→

【79611】データを別のブックのシートにペーストするVBA VBASHOSHIN 18/2/6(火) 14:31 質問[未読]
【79612】Re:データを別のブックのシートにペースト... γ 18/2/6(火) 20:47 回答[未読]
【79613】Re:データを別のブックのシートにペースト... VBASHOSIN 18/2/6(火) 21:15 回答[未読]
【79614】Re:データを別のブックのシートにペースト... γ 18/2/6(火) 21:27 回答[未読]

【79611】データを別のブックのシートにペーストす...
質問  VBASHOSHIN  - 18/2/6(火) 14:31 -

引用なし
パスワード
   お世話になっております。

以下のVBAを作ったのですが、"ActiveSheet.Paste Destination:=Worksheets("当月").Range("A3")"がエラーになってしまいます。どのように修正すればよいか
教えてください。

Sub CH()
Columns("a:e").Copy
Application.FindFile
Workbooks("B").Worksheets("当月").Activate
ActiveSheet.Paste Destination:=Worksheets("当月").Range("A3")
End Sub

やりたい事
1)開いているブックのシートにあるA列からE列をコピー。
2)貼り付けるブックを選択。
3)貼り付け先のブックの「当月」シートをActivateにする。
4)「当月」シートのA3から貼り付けたい。

よろしくお願いします。

【79612】Re:データを別のブックのシートにペース...
回答  γ  - 18/2/6(火) 20:47 -

引用なし
パスワード
   なんというエラーメッセージですか?
エラーがでますだけでなく、内容も説明してください。

【79613】Re:データを別のブックのシートにペース...
回答  VBASHOSIN  - 18/2/6(火) 21:15 -

引用なし
パスワード
   お世話になります。
このVBAをマクロ実行すると途中で止まり、"ActiveSheet.Paste Destination:=Worksheets("当月").Range("A3")"の部分が黄塗りになります。よろしくお願いします。

【79614】Re:データを別のブックのシートにペース...
回答  γ  - 18/2/6(火) 21:27 -

引用なし
パスワード
   単に止まるだけでなく、なんらかの文章が表示されるでしょ?
それをエラーメッセージといいます。
それを書き写して教えてください。

125 / 13196 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free