複数のマクロを条件付きで実行する

質問

会社でエクセル2003を使っています。

縦にデータを入力する表を作りました。
(1)氏名　(2)〒　(3)住所　(4)電話番号　(5)生年月日　(6)性別・・・など20項目を入力します。

入力完了後、別シートにデータを転記してそちらの別シートを印刷するというマクロを作りました。

★ 例えば、その中で入力を絶対してほしい項目がありまして、それを忘れていたらメッセージボックスで「○○が未入力です」とお知らせしたいと思ってます。
★←このマクロは、昨日質問させていただいて、クリアになりました。

もう一つのマクロ(コード?)を教えていただきたいのです。

未入力のセルがあればメッセージボックスが出て、未入力のセルを知らせて未入力をなくします。
未入力がなくなった段階で、同じファイルの別シートに移りたいのです。

(1)未入力のセルがあればメッセージボックスで知らせて、そのままのシート（Sheet1)にとどまって未入力セルにデータを入力する。
(2)隣のシート（Sheet2)にジャンプする

今はcall macro01（メッセージボックス）、call macro02（隣のシートへジャンプ）　としているのですが、メッセージボックスが出て「OK」ボタンをクリックすると未入力のセルがあっても、Ｓｈｅｅｔ2に飛んでしまいます。

未入力のセルがあれば、メッセージボックスが出てそのシートに留まり
未入力がなければ隣のシートに移る…というマクロ(コード？）

同じ事ばかり書いていますが、なにとぞ、よろしくお願いします。

回答No.2

keithin · ベストアンサー

＞教えていただいたコードを実行してみますと、未入力があっても別シートへ移ってしまいます。

ということは、回答したのとは何か違うマクロで、勝手に回答したのとは別の事をしています。

では
１．マクロは次に変更し実行する

sub 印刷前点検と印刷()
　worksheets("Sheet1").activate
　if range("A1") = "" then
　　msgbox "Ａ１が未入力です"
　　end
　end if

　if range("A2") = "" then
　　msgbox "郵便番号が未入力です"
　　end
　end if

　if range("A3") = "" then
　　msgbox "Ａ３が未入力です"
　　end
　end if

　msgbox "全てのデータが記入されました" & vblf & "シート２を印刷します"
　worksheets("Sheet2").printout
end sub

２．他のマクロはすべて停止する

とします。

お礼

ありがとうございます。
補足の質問をさせていただいていたのですが、keithinさんのおかげで何とか形になりました。
本当にありがとうございました。

補足

何度もすいません。
「ど素人でマクロに手を出すな」と思われるかもしれませんが…

コピーして貼り付けているのですが…どうしてもだめなんです。

＞２．他のマクロはすべて停止する
と書いていただいているのですが、停止するというのはどの様にすればいいのでしょうか?

本当にすいません

回答No.1

keithin

ＡＬＴ＋Ｆ１１を押す
挿入メニューから標準モジュールを挿入する
下記をコピー貼り付ける

sub 印刷前点検と印刷()
　worksheets("Sheet1").activate
　if range("A1") = "" then
　　msgbox "Ａ１が未入力です"
　　exit sub
　end if

　if range("A2") = "" then
　　msgbox "郵便番号が未入力です"
　　exit sub
　end if

　if range("A3") = "" then
　　msgbox "Ａ３が未入力です"
　　exit sub
　end if

　msgbox "全てのデータが記入されました" & vblf & "シート２を印刷します"
　worksheets("Sheet2").printout
end sub

マクロを実行する。

補足

早速のアドバイスありがとうございます。

教えていただいたコードを実行してみますと、未入力があっても別シートへ移ってしまいます。
私としては、未入力セルがあるときはメッセージボックスで「未入力があります」と知らせて、シートは移動せずデータを入力し、その後再度クリックして未入力のセルがなければ別シートへ移動する。という形にしたいのですが…

そのような条件は可能でしょうか?