エクセルで別Bookのシートの指定セルの値を転記

質問

書式の決まった「申請書」の指定セルの値を別のBookの「申請書リスト」シートに引っ張りたいのですが、例えば申請書のG6に品名が入っているので、申請書リストのD列に品名を入力したらその申請書の決まったセルをリストの品名の横（行）に順番に転記。

申請書のシートは複数開いている状態もありなので、品名を入れたら当該申請書シートの目的のセルをリストに自動転記したいのです。
同じ品名のシートが複数同時に開いていることは無いです。

回答No.1

kkkkkm

> 申請書のシートは複数開いている状態

ブックが複数開いているということだとしたら
申請書リストのあるブックの申請書リストシートのシートモジュールに以下のコードを記載してD列にデータを入れてみてください。
申請書シートの名前をSheet1としてますので適宜変更してください。
エラーで止まった場合イベントがオフになったままですので
Application.EnableEvents = True
をイミディエイトウィンドウで実行しオンにしてください

Private Sub Worksheet_Change(ByVal Target As Range)
Dim Wb As Workbook

If Target.Column <> Range("D:D").Column Then
Exit Sub
End If
Application.EnableEvents = False
For Each Wb In Workbooks
If ThisWorkbook.Name <> Wb.Name Then
With Wb.Sheets("Sheet1")
If .Range("G6").Value = Cells(Target.Row, "D").Value Then
Cells(Target.Row, "C").Value = .Range("G4").Value
Cells(Target.Row, "E").Value = .Range("U4").Value
Cells(Target.Row, "F").Value = .Range("U5").Value
End If
End With
End If
Next
Application.EnableEvents = True
End Sub