EXCEL VBA マクロ 印刷

・Aさん、Bさん、Cさん、～　Xさんと26人がいます。
・A列には、それぞれ上記の担当者名が入ってます。
・B列以降には、担当の商品名・数量などが入っているとします。
・必ずしも、全員のデータが入っているとは限りません。（その日により、違います。）

→上記のうち、A列がCさんのデータ(行)だけを抜き出し、印刷することは可能でしょうか？該当がなければ、マクロを終了させたいのですが・・

よろしくお願いいたします。

No.2 回答者： keithin 回答日時： 2013/02/12 22:11

sub macro1()

’＞該当がなければ、マクロを終了させたい
　if application.countif(range("A:A"), "Cさん") = 0 then exit sub

’＞A列がCさんのデータ(行)だけを抜き出し、印刷する
　range("A:A").autofilter field:=1, criteria1:="Cさん"
　activesheet.printout
　activesheet.autofiltermode = false
end sub

No.1 回答者： bin-chan 回答日時： 2013/02/12 22:10

１）オートフィルタを適用

２）オートフィルタで、列Aが「"Ｃさん"に等しい」だけ抽出する。
３）選択した結果の可視セルだけ選択する
４）選択行を印刷する

４）までを「マクロの記録」で生成して
４にＩＦ文で件数の判断を追加する。

でどうですか？

＃Ｘさんまでだと24人か。