6人分の物件表を1つのbookに自動的にまとめる方法

質問

• エクセルで作られた5人分の物件表を自動的にひとつのbookにまとめる方法をご教示ください。
• 全体の物件表には既にデータが入っており、各人の物件データと全体データのフォーマットは同じです。
• マクロの使用は限られているため、どのようにすると効率的にまとめることができるかお教えください。

回答No.4

kazuhiko5681

こんにちは。早速サンプルマクロを組んでみました。もしかしたら、あなた様がイメージしているのと違う動作になってしまうかもしれませんが、次のように操作し、確認してみて下さい。もし動作が違う場合は、どこが違うのか具体的に詳しくお知らせ下さい。修正マクロを作ってみたいと思います。

１.新規ブックを開き、シート１のＡ１０～Ｊ１０に項目名を入力する。
２.ブック名を受注管理としてマイドキュメントに保存終了する。(ウインドウズがXPの時は、個人のマイドキュメントではなく、全体のマイドキュメントへ保存終了する。)
３.再度新規ブックを開き、ＡＬＴ＋Ｆ１１キーを押してＶＢＥ画面を開く
４.画面左上のVBAProject徒書いてある下のSheet1をダブルクリックし、右側の白い部分へ下のコードをコピー・ペーストする。
５.次のように操作してみる。
　・シート１のＡ１０～Ｊ１０に項目名を入力する。
　・シート１のＡ１１～Ｊ１１にデータを入力する。

Ｊ１１のデータを入力し終えた時点で、自動的にブック(受注管理)が開かれ、このブックの・シート１のＡ１１～Ｊ１１にデータが入力されています。

Private Sub Worksheet_Change(ByVal Target As Range)

Dim myWb As Workbook
Dim myWbn As String
Dim myRow1 As Long
Dim myWsn As Worksheet
Dim myRow2 As Long

For Each myWb In Workbooks
If myWb.Name = "受注管理.xls" Then
myWbn = myWb.Name: Exit For
End If
Next myWb
If myWbn <> "受注管理.xls" Then
Workbooks.Open Filename:="受注管理"
End If

myRow1 = Target.Row
If Target.Address = Range("J" & myRow1).Address Then
Set myWsn = Workbooks("受注管理.xls").Worksheets(1)
myRow2 = myWsn.Cells(Rows.Count, 1).End(xlUp).Row
Rows(myRow1 & ":" & myRow1).Copy Destination:=myWsn.Rows(myRow2 + 1 & ":" & myRow2 + 1)
End If

End Sub

お手数をおかけいたしますが、よろしくお願いいたします。

お礼

丁寧なご回答どうもありがとうございました。
大変、大変助かりました。
ほぼ理想通りのファイルが出来上がりました。
ただ、キーボードから入力するとデータは反映されるのですが、
コピー＆ペーストでデータを入力すると、"物件表"の方のファイルにデータが
反映されません。まったく同じデータが多数あるので、コピー＆ペーストで
データが入力できるとありがたいのですが・・・
もし、原因がわかるようでしたらお教え下さい。お願いします。