![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?5a7ff87)
作業ブックに連続して実行できるマクロを設定しております。
Sub 貼り付け総合()
Call 提出シートを開く
Call 提出シートコピー範囲
Call 貼り付け
End Sub
このマクロを実行すると画像のエラーが表示されて、
マクロ:「貼り付け」のコードの
「Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats」が黄色く表示されて、上手くマクロが実行できません。
例えば、「Call 提出シートを開く」・「Call 提出シートコピー範囲」のマクロをやめて
手動でコピー元のブックを開き、コピー範囲をマウスで設定して「Ctrl+C」を行い
作業ブック側の「Call 貼り付け」を実行するとコピペが上手く行きます。
問題の解決方法を教えてください。
現状のマクロ
Sub 提出シートを開く()
On Error Resume Next
Dim folderPath As String
Dim fileName As String
folderPath = ThisWorkbook.Path & "\"
fileName = Dir(folderPath & "*(提出用).xlsx")
Do While fileName <> ""
Workbooks.Open (folderPath & fileName)
fileName = Dir()
Loop
End Sub
Call 提出シートコピー範囲
Dim Wb1, Wb2
Set Wb1 = Workbooks(1) 'このブック
Set Wb2 = Workbooks(2) '別ブック
'セルの値を取得する
Wb2.Worksheets("提出シート").Range("B1:H47").Copy
End Sub
Sub 貼り付け()
Application.DisplayAlerts = False
Worksheets("受付").Range("B1:H47").PasteSpecial Paste:=xlPasteValuesAndNumberFormats
Application.DisplayAlerts = True
Sheets("受付").Range("H60").Copy
Sheets("受付").Range("F24").PasteSpecial xlPasteValues
Sheets("受付").Range("Q10").Copy
Sheets("受付").Range("F12").PasteSpecial xlPasteValues
End Sub
以上となります。よろしくお願いいたします。
![「Excelのマクロについて教えてください」の質問画像](http://oshiete.xgoo.jp/_/bucket/oshietegoo/images/media/6/543114798_666be6a216e9c/M.png)
No.2ベストアンサー
- 回答日時:
こんばんは
ブックが複数でも何でも開いちゃうようになっているし、どういう意図のコードなのかよくわからないけれど・・・
2番目の
>Call 提出シートコピー範囲
は
Sub 提出シートコピー範囲()
の間違えなのでは?
もしそのままなのなら、提示されている範囲では構文的におかしいし、「提出シートコピー範囲」なるものの内容が提示されていないので、そいつが悪さをしているのかもしれないし・・
・・とは言え、No1様の回答にある通りではないかと推測します。
エラー時のActiveWorkbookを調べればすぐに解明すると思いますけれど?
対処法は、きちんと対象を制御してあげれば良いだけと推測します。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Visual Basic(VBA) エクセルのマクロについて教えてください。 4 2023/07/04 17:58
- Excel(エクセル) 3つのマクロを連続実行の中で、1つ目のマクロ要件を満たさなかったら、マクロ2・3を実行しない為には 1 2023/10/15 13:42
- Visual Basic(VBA) 【マクロ】1つのマクロの中に、ブック指定とシート指定が混在しても良いのですか? 2 2024/05/16 07:13
- Excel(エクセル) エクセルのマクロについて教えてください。 3 2023/02/07 14:47
- Visual Basic(VBA) エクセルのマクロについて教えてください。 1 2022/10/13 08:41
- Visual Basic(VBA) 【ご教示ください】VBAの記述方法がわかりません。 2 2022/08/12 21:28
- Visual Basic(VBA) エクセルのマクロについて教えてください。 2 2023/03/08 09:08
- Excel(エクセル) エクセルのマクロについて教えてください。 2 2023/02/26 13:19
- Visual Basic(VBA) エクセルのマクロについて教えてください。 5 2023/06/02 08:44
- Visual Basic(VBA) クリップボードに貼付している文字列が、マクロで別ブックへ転記すると、消えてしまう 1 2023/10/15 13:36
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教えるわが家の防犯対策術!
ホームセキュリティのプロが、家庭の防犯対策を真剣に考える 2組のご夫婦へ実際の防犯対策術をご紹介!どうすれば家と家族を守れるのかを教えます!
-
Notepad++の関数リスト表示の変更方法をお教えください。
C言語・C++・C#
-
スカラーのベクトル微分
その他(プログラミング・Web制作)
-
VBAの質問になります メッセージボックス
Visual Basic(VBA)
-
-
4
Sub 要具ライフ() ActiveSheet.Cells.Find(what:=TOPゴム")."
Visual Basic(VBA)
-
5
txtって、ページ番号振れないんでしたよね?
Word(ワード)
-
6
Excel VBA 定義されたプロージャ名、関数名の取得
Visual Basic(VBA)
-
7
VBAで大量のファイルをシート名ごとに転記やらいろいろしたい!
Visual Basic(VBA)
-
8
エクセルVBAについて
Visual Basic(VBA)
-
9
【Microsoft Office Home and Business Premium】なのに・・・
その他(Microsoft Office)
-
10
VBA一覧取得 再投稿
Visual Basic(VBA)
-
11
プログラミングの課題がわからないので教えていただきたいです。特にサークル関数を定義した後に呼び出す方
C言語・C++・C#
-
12
久しぶりのプログラミング
Visual Basic(VBA)
-
13
vab パソコンが変わってPageSetupが合わなくなりましたので教えてください
Visual Basic(VBA)
-
14
C言語関数違いについて。
C言語・C++・C#
-
15
c#のTLS1.2での通信について
C言語・C++・C#
-
16
終端記号、非終端記号とは
C言語・C++・C#
-
17
Excel VBA コードを教えてください。
Visual Basic(VBA)
-
18
python言語について。
その他(プログラミング・Web制作)
-
19
VBAのことで質問です
Visual Basic(VBA)
-
20
excelのVBAについて、以下のコードに追加をお願いいたします。
Visual Basic(VBA)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
Excelのマクロについて教えてく...
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
Excelのマクロについて教えてく...
-
VBA コードを実行すると画面が...
-
Excelのマクロについて教えてく...
-
VBA 別ブックからコピペしたい...
-
Excelのマクロについて教えてく...
-
VBAで別ブックのシートを指定し...
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
VBA 実行時エラー 2147024893
-
【マクロ】アクティブセルにブ...
-
[Excel]ADODBでNull変換されて...
-
【ExcelVBA】zip圧縮されたCSV...
-
【Excel VBA】書き込み先ブック...
-
エクセルマクロで、他ブックか...
-
ACCESSVBA からExcelの他ブック...
-
エクセルマクロで任意のファイ...
-
VBS Bookを閉じるコード
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
VBA シートをコピーする際に Co...
-
エクセルVBAが途中で止まります
-
ワイルドカード「*」を使うとう...
-
別ブックをダイアログボックス...
-
(マクロ)データをAブックからB...
-
VBS Bookを閉じるコード
-
VBA 別ブックからコピペしたい...
-
VBA 複数のエクセルから一つの...
-
VBA シート名が一致した場合の...
-
【ExcelVBA】インデックスが有...
-
エクセルのマクロについて教え...
-
エクセルのマクロについて教え...
-
vbaでvbaProjectのパスワード解...
-
VBAで別ブックのシートを指定し...
-
【ExcelVBA】zip圧縮されたCSV...
-
VBA コードを実行すると画面が...
-
【VBA】全シートの計算式を全て...
-
複数のエクセルブックをひとつ...
-
VBA 実行時エラー 2147024893
-
ExcelのVBAです。フォルダ内の...
おすすめ情報
回答ありがとうございます。
確かに作業ブックにはシート名「受付」があります、
又、そのブックに今回のマクロを設定しております、
質問にも記載をさせて頂きましたが
「Call 提出シートを開く」・「Call 提出シートコピー範囲」のマクロをやめて
手動でコピー元のブックを開き、コピー範囲をマウスで設定して「Ctrl+C」を行い
作業ブック側の「Call 貼り付け」を実行するとコピペが上手く行きます。
何故でしょうか?
よろしくお願いいたします。