VBA同じシートの別ブックに転記していく方法

VBA初心者です。

名前が一致した別ブックに転記していく作業ですが、全く分かりません。
動画や本を読んでいるのですが、わからないのでご教授いただける方がいましたら
お願い致します。

https://i.gyazo.com/4ecdc8983c4792f7b2399b3f07c4 …

上のシート名（ここではAさんとしておきます。）の同じ色の部分の数字を
別ブックの同じシートの同じところに転記していくマクロです。

https://i.gyazo.com/72d879bbb255b9a6a7c8f6fc3e73 …

上記のブックの『Aさん』を開くと

https://i.gyazo.com/6a1c7ae407e1d7cc9d6a5edef871 …

ここに転記していく様にしたいのですが、うまくいきません。

サンプルではA～Fまでですが、実際は30シートくらいあります。

名前が一致した別ブックに転記していく方法を是非ともご教授お願いします。

質問者からの補足コメント

• ありがとうございます。
  
  色は分かりやすい様に塗っているだけで
  実際はセル番地を入力して行こうと思っています。
  
  転記する同じ名前のブックは違うフォルダに格納しています。
  その場合はどうするのでしょうか？

  No.1の回答に寄せられた補足コメントです。 補足日時：2022/11/28 14:28

No.3 ベストアンサー 回答者： tatsumaru77 回答日時： 2022/11/29 10:01

以下のマクロを標準モジュールに登録してください。

Const Folder As String = "D:\goo\data8\転記"
は、Aさん.xlsx等のブックを格納してあるフォルダ名です。
あなたの環境にあわせて適切に設定してください。
----------------------------------------
Option Explicit
Public Sub ブック間転記()
Const Folder As String = "D:\goo\data8\転記"
Dim ms As Worksheet
Dim wb As Workbook
Dim ws As Worksheet
Dim path As String
For Each ms In Worksheets
path = Folder & "\" & ms.Name & ".xlsx"
If Dir(path) = "" Then
MsgBox (path & "が存在しません")
Exit Sub
End If
Set wb = Workbooks.Open(path)
Set ws = wb.Worksheets("お申し出報告書")
ws.Cells(5, "E").Value = ms.Cells(6, "S").Value
ws.Cells(6, "E").Value = ms.Cells(6, "T").Value
ws.Cells(7, "E").Value = ms.Cells(6, "U").Value
ws.Cells(8, "E").Value = ms.Cells(6, "V").Value
wb.Save
wb.Close
Next
MsgBox ("完了")
End Sub

この回答へのお礼

毎度毎度ありがとうございます。

お礼日時：2022/11/29 11:51

No.2 回答者： fujillin 回答日時： 2022/11/28 14:50

No1です。

＞転記する同じ名前のブックは違うフォルダに格納しています。
＞その場合はどうするのでしょうか？
フルパスで指定すれば問題はありません。

パスは文字列ですので直接指定しても良いですし、No1の例のように文字列演算でパスを作成しても良いです。

No.1 回答者： fujillin 回答日時： 2022/11/28 14:20

こんにちは

ご質問文からでは、どこがわからないのかが不明ですけれど・・・

シート名は worksheet.Name で取得できるので問題はないでしょうから、

＞名前が一致した別ブックに転記していく方法を是非ともご教授お願いします。
ブックを探せればよいということでしょうか？

ブックは同じフォルダー内にあるようですから、
　Dir(フォルダパス & "\" & ファイル名 & ".xlsx")
で検索すれば、対象ブックの有無を確認できます。
（存在しない場合は、空文字が返されます）
https://learn.microsoft.com/ja-jp/office/vba/lan …

必ずブックは存在するという保証があるのなら、わざわざ確認する必要もないので、直接ブックを開けば良いだけですね。
https://learn.microsoft.com/ja-jp/office/vba/api …

後は、普通にセルの値を転記するだけでしょうから、問題は無いものと推測します。


＞同じ色の部分の数字を別ブックの同じシートの同じところに転記していく～
って、まさか、色だけが手掛かりでセルの位置を探して、そこに転記するって意味ではないですよね？
もしもそうなら、セルの Interior.Color をキーにして検索するというひと手間が必要になるでしょう。
また、その場合には、該当セルが複数存在する場合や存在しない場合にどうするのかなどの処理についても、あらかじめ考えておく必要があります。