Excel VBA 一覧表のふたつの列のどちらかに値がある場合だけデータを別のシートへ...

Excel VBA 一覧表のふたつの列のどちらかに値がある場合だけデータを別のシートへ転記して一括印刷するコード


【作業環境】

OS：Windows7 Excel：2013

【現在の状況】

〇スイミングスクールの夏休み短期教室の参加者一覧表を作成しています。
〇夏休み短期教室には、通常のスイミングスクールに在籍している会員の他にも一般の方（非会員）や他のスポーツスクール（体操やテニス等）に在籍している会員も参加します。
〇スイミングスクール在籍会員に関しては、夏休み短期教室のテスト結果を通常スクールの担当コーチへ引き継ぐ必要があるため、テスト結果引継票を作成します。


【実現したいこと】

VBAを使用して参加者一覧表シートのスイミング会員のデータだけをテスト結果引継票シートへ転記して一括印刷したいのです。その際に、
①スイミング会員は参加者一覧表シートの欠席（Y列・データの入力規則でリストを設定）または種目（Z列）のどちらかに値（文字列）を必ず入力するので、ふたつの列のどちらかに値がある行のデータだけを転記して印刷する
②参加者情報一覧表シートのクラス2（M列）に値（数値または文字列）がある場合はテスト結果引継票を2部印刷する
③テスト結果引継票の印刷は、マクロを登録した「引継票発行」という図形（AE1:AG2）をクリックすることで実行し、図形をクリックした時に「印刷にはA4用紙の裏紙を使用して下さい。」というメッセージボックスを表示させる
上記3点を実現するためのコードをご教示下さい。どうか宜しくお願い致します。


【ファイル構成】

1.参加者一覧表シート（参考画像・一覧表の一部を表示）
〇短期水泳教室参加者のデータを入力する一覧表です。
〇一覧表の範囲はA2：AC402までで、最大400名を登録可能にしてあります。
〇参加者がスイミングを含むスポーツスクール会員の場合は、氏名（D列）とフリガナ（E列）は会員番号を入力することでIF関数＋VLOOKUP関数を使用して在籍者一覧表シート（後述）から値を転記します。その他の項目は手入力です。参加者が非会員（会員番号列に"N"と入力）の場合は、全ての項目を手入力します。

2.在籍者一覧表シート
〇スイミングを含む各スポーツスクール会員の会員番号・氏名・フリガナの一覧表です。A列：会員番号、B列：氏名、C列：フリガナ です。

3.テスト結果引継票シート
〇スイミング会員のデータを参加者一覧表シートから転記して一括印刷するシートです。
〇印刷範囲は、A1：G30です。
〇参加者一覧表シートから転記するデータ項目と転記するセル位置は、
①会員番号（参加者一覧表シート：C列／テスト結果引継票へ転記するセル位置：D5）②氏名（D列／D6）③級（I列／D7）④クラス1（J列／D13）⑤組1（K列／D14）⑥担当者1（L列／D12）⑦クラス2（M列／F13）⑧組2（N列／F14）⑨担当者2（O列／F12）⑩コース（U／D20）⑪組（V列／D21）⑫担当者（W列／D19）⑬テスト欠席（Y列／D25）⑭種目（Z列／D26）⑮タイム/距離/他（AA列／D27）⑯認定級（AB列／D28）⑰備考（AC列／D29）です。
29）です。