|
こんにちわ。お世話になります。
各sheetのE列に抜き出したいデータ、K列にOなどの任意の印が打ってあるとします。
それぞれE列には20〜数百のデータ(リスト名)が入っています。
K列の印の打ってある行のE列のリスト名をList.txtに吐き出したり、
そのList.txtを元に各sheetのリスト名を検索し、一致するリスト名のE列に印を戻したいのです。
リスト名の保存とリストアはUserformとオプションボタン(トグル)コマンドボタンを
使って行おうと思います。
E列のデータ数(行数)を
Range("E3").CurrentRegion.Rows.Count で抜いて
For〜NextにIf〜elseでK列の印があるかどうか判断させようと思っています。
やりたいことは判っているのですがコーディングが出来ません(トホホ
コマンドボタンのイベントで行う部分と、標準モジュールで行う部分の切り分けも
必要でしたら合わせてご教授ねがいたいと思います。
よろしくお願いいたします。
|
|