| |
う〜ん、"元"シートは甲Bookだとばかり思っていたので、
逆に良く分からなくなってきました・・・
とりあえず各ブックのシート構成は
・乙Book
"元"、"ＯＫ"、"ＯＫ２"、"抽出"、"エラー"、"joblog"
・甲Book
"甲"（データ６万行）
ということですか？
そうすると、
>1.マクロ11
>Sub test1()
でやっているのは、
１．甲Bookの"甲"シートのA1:B4を、乙Bookの"ＯＫ"シート、"ＯＫ２"シートの同じ場所にコピー
２．乙Book内で、"joblog"からオートフィルターで抽出したものを"ＯＫ"シート、"ＯＫ２"シート、
"元"シートにそれぞれ転記
>2.マクロ12（1-2-1と1-2-2をくっつけました）
>Sub FromTo作成()
でやっているのは、
１．乙Book内で、"元"シートの"N2"セルと"P2"セルを比較して条件分岐して
"抽出"シート、または"エラー"シートに"元"シートの一部を転記
ということになります。
これでは甲Bookの"甲"シート（データ６万行）のデータは、”A1:B4”だけしか使われてなく、
６万行の意味が無くなってしまうので、たぶん違いますよね？
ということで、このままコードを書いても無駄に終わると思うので、
やりたいことを具体的に書いてみてください。
例）
インプットボックスに”ア”と入力されたら、甲Bookの"甲"シートの
Ａ列で”ア”のものを抽出して乙Bookの"ＯＫ"シートに転記したい
それと、↓のような各シートのシートイメージがあると回答者もより回答しやすくなります。
Ａ Ｂ Ｃ Ｄ Ｅ Ｆ
１ 項目 品名 数量 金額 区分 備考
２ ア Ａ ３ 1000 ３ 東京Ｃ
３ ウ Ｇ ８ 5000 ０ 東京Ｂ
４ エ Ｌ ４ 4000 ２ 大阪Ａ
５ イ Ｗ １ 8000 ３ 東京Ａ
６ ア Ｆ ５ 2000 １ 大阪Ｂ
|
|
maverick
- 06/10/27(金) 11:58 -
