先ほどの続きです

質問

早速の回答ありがとうございました。

次月にコピーが必要なセルの判断は
各sheetのL2セルに"1"が入っていたら
コピーをする。
といた場合はどのようにすればよいでしょうか？
また、これを実行する際はフォームボタンをどこかのsheetに作ってマクロ登録するのが良いでしょうか？素人で申し訳ありません。

回答No.1

kon555 · ベストアンサー

先ほど回答した「複数sheet(可変）を別bookにコピーする」の質問の続きでしょうか。
このような場合は質問を締めずに補足で追加するほうがいいみたいですよ。
ともあれそのような場合は
「If Worksheets(i).Range("A1").Value = 10 Then Worksheets(i).Range("K1") = Worksheets(i).Range("A1")」
を
「If Worksheets(i).Range("L2").Value = 1 Then Worksheets(i).Range("K1") = Worksheets(i).Range("A1")」
に変更します。
軽く解説しておくとこれはif文などと言われるVBAの基本的かつ便利な構文の一つで、特定条件に合致する時に決まった動作をさせるのに使います。
ifは「もし」　thenは「ならば」と読み替えると、意味が掴めると思います。
『If Worksheets(i).Range("L2").Value = 1 then』とは『もし、ワークシート上のL2セルの値が1ならば』となります。
もしも別条件に変更したい時は(例えばL2ではなくL3が条件セルになる、など)この部分を変更すれば対応できます。
http://excelvba.pc-users.net/fol6/6_1.html

マクロ実行についてはボタン登録してもいいですし、「Alt+F8」でマクロを呼び出して実行してもいいとおもいます。今回のマクロは特に図形その他には影響しませんので、この辺りはご自由に。
ただ私の場合としては、特定業務用のマクロブックを作成する場合は、シート1を「使い方」シートなどにしてマクロの使用方法と注意点などを軽く記載しておいて、そこにボタンを置いておく事が多いです。こうしておくと誰かに業務を引き継いだり、欠勤時に対応してもらう時に楽なので。

お礼

ご丁寧に回答頂き有難う御座います。

補足したのですが、反映されていないので
改めてご質問してしまいました。
申し訳ありません。
こちらを参考にして実装してみます。
またつまづくようなことがありましたら
よろしくお願いいたします^_^