一覧表から特定の行のみを選択して印刷するマクロですが、もう一歩のところで悩んでいます。

質問

'リストを1行1枚の伝票形式で印刷するマクロ
Sub 個票発行()
Worksheets("個票").Activate
Dim 個票カウンタ As Integer
For 個票カウンタ = 1 To _
Application.WorksheetFunction.CountA(Worksheets("一覧表").Range("A1:A88"))
Range("B1") = 個票カウンタ
印刷
Next 個票カウンタ
End Sub
これだとＡ１からＡ８８まですべて印刷してしまうのですが特定のセルに★印のある行のみ選択後印刷したければどういうマクロを組みいれればいいですか？お教えください。

回答No.1

shishishishi · ベストアンサー

印刷したいデータには、シート"一覧表"のデータのとなりＢ列(B1からB88)に★印を入れることにした場合、下記でいけるはずです。

Sub 個票発行()
Worksheets("個票").Activate
Dim 個票カウンタ As Integer
For 個票カウンタ = 1 To _
Application.WorksheetFunction.CountA(Worksheets("一覧表").Range("A1:A88"))
Range("B1") = 個票カウンタ
If Worksheets("一覧表").Range("B" & 個票カウンタ) = "★" Then 印刷
Next 個票カウンタ
End Sub

お礼

早速ありがとうございました。感激です。ぜひやってみます。