エクセルでシートを探しデータをフォームにコピー

質問

見ていただきありがとうございます。

エクセルを使って次のようなことを考えています。

発注のあったお客様の顧客番号001～300（順不同)が毎日更新されてきます。

A1には顧客番号、B2には日付、B3とC3にはコード　数量、B4からC13にデータがあります。
.........A............ B................C
1.....001
2...............2013/7/7
3.................コード..........数量
4..................AA1.............10　
5..................AB2.............15
6..................BA1.............20
7..................BB1.............5　
8..................CA2.............10
9..................CB1.............15
10................DA1.............10　
11................DB2.............15
12................EA1.............20
13................EB2.............30

A1がシート名になってます。

************************************************************************

このような場合、sheet1にコマンドボタンを設けて押したとき001～300のシート名がA列に抽出され、

順番にデータが見積もり、納品書、請求書のフォームに転記できるようにならないでしょうか？

各フォームのセルは共通でB1に顧客番号、C1に日付、B4～B13コード　数量、C4～C13に数量を

コピーしたい。

教えてもらえたらうれしいです。

回答No.1

tsubuyuki · ベストアンサー

いまいち「やりたいこと」が見えてこないのが現状です。
もう少し「やりたいこと」が具体的なら良いですね。

とりあえず・・・

> コマンドボタンを設けて押したとき001～300のシート名がA列に抽出
そのまま「読む」と、「シート名一覧をＡ列に作る」と読めてしまいます。
おそらく、違うでしょう？

> 順番にデータが見積もり、納品書、請求書のフォームに転記
これも二通りに読めます。
「なんらかのキーで抽出されたシートに対し、転記」
「全てのシートに対し、転記」
どちらでしょう？
後者だとしたら、３００×３シートで９００シート（！？）・・
まぁ、これは無いでしょうから、おそらく前者でしょうが、
これもハッキリしません。

あるいは
「全てのシートに対し転記して、都度印刷。消去・転記・印刷を繰り返し」
の可能性を入れると三通り、
見積もりなどのシートに「３００シート分を顧客番号順に列記」の可能性も見ると
四通り・・なのかもしれませんね。

> 転記できるようにならないでしょうか？
おそらく、できますよ。
でも、上記の事情から、詳細なアドバイスが出来ません。

例えば
・「sheet1のＡ１セルに入力されている値」を見て
・該当する「シート」の
・該当範囲「Ｂ４：Ｃ１３」を
・「見積もり」シートの同範囲に転記
と言う処理であれば

Sub Sample()
　　　　Worksheets(Format(Sheets("Sheet1").Range("A1"), "000")).Range("B4:C13").Copy
　　　　Sheets("見積もり").Range("B4").PasteSpecial Paste:=xlPasteValues
End Sub

これだけでできます。
他の
> B1に顧客番号、C1に日付、
に関しても同様にできます。

お礼

ご回答有難うございます。行いたいことはご回答の通りでした。処理するシートが多いのですが、顧客総数全てから発注があるわけではありません。シート名の検索が出来て、データコピーすることが目的でしたので感謝いたします。