dポイントプレゼントキャンペーン実施中!

作業ブックの指定シート内の指定セル部分を別ブックの指定シートの指定セルにコピペする方法を教えてください。
マクロ
Sub 担当者コピペ()
'コピー先のファイルを開く
Workbooks.Open "\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形\【フラット】ひな形5-1(確認無物件).xlsm"

'Book1の値をコピー
Workbooks("【電子用】戸建て5-3(〇〇).xltm").Sheets("300").Range("B15:C21").Copy ""

'Book2に値貼り付け
Workbooks("【フラット】ひな形5-1(確認無物件).xlsm").Sheets("F審査(Web)").Range("A57").PasteSpecial Paste:=xlPasteValues

End Sub
があります。
このマクロを実行すると
Workbooks("【電子用】戸建て5-3(〇〇).xltm").Sheets("300").Range("B15:C21").Copy ""
の部分が黄色くなり実行できません、解決方法を教えてください。
整理しますと
コピー元
フォルダ先:\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形
ファイル名:【電子用】戸建て5-3(〇〇).xltm
シート:300のセル"B15:C21"です。
コピー先
フォルダ先:\\nas-sp01\share\確認部\■意匠\戸建\戸建て電子申請関連\ひな形
ファイル名:【フラット】ひな形5-1(確認無物件).xlsm
シート:F審査のセル"A57"です。

コピー元のセルC15~C21には「=IF(A15=0,"(〇〇)",""&MID(A15,1,FIND(" ",A15)-1)&" ")」の数式があり、この数式により担当者の苗字飲みは表示されますので、数式のコピーでは無く値のコピーでお願いいたします。
又、B15~B21には各担当者のメールアドレスが表示されますのでコピー先にコピペした場合もメールアドレスとして表示できるようにお願い致します。
よろしくお願いいたします。

「エクセルのマクロについて教えてください。」の質問画像

A 回答 (1件)

Copyの後ろにある "" が邪魔なのでしょ。



通常なら

セル元.Copy セル先

と記載すればクリップボードを使わないダイレクトコピペになる物ですから。
    • good
    • 0
この回答へのお礼

回答ありがとうございました。
そうだったんですね。
上手くできました。

お礼日時:2023/01/26 11:55

お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!