エクセル2007 マクロについて教えてください。

2種類のファイルがあります。

ファイルＡ　　　販売データ
ファイルＢ　　　商品ごとの詳細表

ファイルＡには、商品ＩＤ、販売日時、販売個数が入力されています。

　商品ID　　販売日時　　　販売個数　
　ABAB　　2010/06/05　　　　10　
　ABAB　　2010/06/07　　　　　8
　ABAB　　2010/06/12　　　　　2
　CDCD　　2010/06/06　　　　15
　CDCD　　2010/06/09　　　　　4
　EFEF　　　2010/06/01　　　　8
　GHGH　　2010/06/12　　　　14
　GHGH　　2010/06/15　　　　　2

ファイルＢは各商品IDごとに1枚のシートに商品情報が記入されています。
シートＡの販売日時と販売個数をそれぞれのシートにマクロで転記させていきたいと思ってます。

「商品ＩＤが変わったら、次のシートへ移動」という命令文を教えてください。
お願いします。

No.3 ベストアンサー 回答者： keithin 回答日時： 2011/06/29 18:43

たとえば。

sub macro1()
　dim r as long
　dim h as range
　on error goto errhandle

　r = workbooks("販売データ.xls").worksheets("販売データシート").range("A65536").end(xlup).row
　for each h in workbooks("販売データ.xls").worksheets("販売データシート").range("A2:A" & r)
　　h.offset(0, 1).resize(1, 2).copy _
　　　destination:=workbooks("商品ごとの詳細.xls").worksheets(h.value).range("A65536").end(xlup).offset(1)
　next
　exit sub

errhandle:
　with workbooks("商品ごとの詳細.xls")
　with .worksheets.add(after:=.worksheets(.worksheets.count))
　　.name = h.value
　end with
　end with
　resume
end sub



＃補足
「それぞれのシート」とか「次のシート」とか，具体的にどのシートがどういう具合に対応しているのか，まったく説明されていません。
なので，そういう不足をすっ飛ばしてサンプルマクロをお話しします。実態と合ってなければ追加質問せずに捨てて下さい。

No.2 回答者： mu2011 回答日時： 2011/06/29 17:03

ファイルＢの各シート情報を主体にする方法は如何でしょうか。

（１）ファイルＢのシート数分で繰り返し
　　For　i =1 TO WorkSheets.Count
　　　シートのタブ名かシートの固定セルで商品ＩＤを確定、販売データ表をオートフィルタ、可視セル表示部分をコピー
　　　（iはシート番号なので仮にシートタブ名は、Sheets(i).Nameで取得できる）
　　Next

　　又は、
　　For Each　ws In WorkSheets
　　同上　
　　（wsはシートのオブジェクトなので仮にシートタブ名は、ws.Nameで取得できる）　
　　Next

No.1 回答者： a_fool_of_a_man 回答日時： 2011/06/29 14:33

ファイルＡとＢがすでに開いてる状態でファイルＢの各シートの名が商品ＩＤと同じとした場合でしか使えないマクロですが

Windoes("ファイルＢ.xls").Activate
↑
これでファイルＢのシートに移動します

Sheets("ABAB").Select　や　Sheets("CDCD").Select
↑
これでシートに移動します

単純な方法としてはファイルＡの２行目にある商品ＩＤ・販売日時・販売個数を変数に入れて、ファイルＢに移動し商品ＩＤと同じシートに移動して販売日時と販売個数を転記させ、ファイルＡに戻って次の３行目って感じで転記するデータが無くなるまで繰り返すって感じですね

ファイルＡの情報を全て変数に持たせてからファイルＢに移動って方法もあります