|
う〜ん、"元"シートは甲Bookだとばかり思っていたので、
逆に良く分からなくなってきました・・・
とりあえず各ブックのシート構成は
・乙Book
"元"、"OK"、"OK2"、"抽出"、"エラー"、"joblog"
・甲Book
"甲"(データ6万行)
ということですか?
そうすると、
>1.マクロ11
>Sub test1()
でやっているのは、
1.甲Bookの"甲"シートのA1:B4を、乙Bookの"OK"シート、"OK2"シートの同じ場所にコピー
2.乙Book内で、"joblog"からオートフィルターで抽出したものを"OK"シート、"OK2"シート、
"元"シートにそれぞれ転記
>2.マクロ12(1-2-1と1-2-2をくっつけました)
>Sub FromTo作成()
でやっているのは、
1.乙Book内で、"元"シートの"N2"セルと"P2"セルを比較して条件分岐して
"抽出"シート、または"エラー"シートに"元"シートの一部を転記
ということになります。
これでは甲Bookの"甲"シート(データ6万行)のデータは、”A1:B4”だけしか使われてなく、
6万行の意味が無くなってしまうので、たぶん違いますよね?
ということで、このままコードを書いても無駄に終わると思うので、
やりたいことを具体的に書いてみてください。
例)
インプットボックスに”ア”と入力されたら、甲Bookの"甲"シートの
A列で”ア”のものを抽出して乙Bookの"OK"シートに転記したい
それと、↓のような各シートのシートイメージがあると回答者もより回答しやすくなります。
A B C D E F
1 項目 品名 数量 金額 区分 備考
2 ア A 3 1000 3 東京C
3 ウ G 8 5000 0 東京B
4 エ L 4 4000 2 大阪A
5 イ W 1 8000 3 東京A
6 ア F 5 2000 1 大阪B
|
|