|
こんばんわ。
オートフィルタの絞り込みは、どこかの列に○×とか付けてるって
ことなんかな?
まず前提として、「連番の付け直しはしない」ってことに
したほうがええと思います。
1.住所録を全行再表示させて、連番を振りなおす。
2.オートフィルタで印刷対象のデータのみを表示させる。
ここまでは手動でやっておいて・・・
3.宛名印刷用のコードを次のようにする。
Sub 宛名差込印刷()
Dim Target As Range
Dim r As Range
With Worksheets("住所録")
Set Target = .Range(.Cells(2, 1), .Cells(.Rows.Count, 1).End(xlUp))
If Target.Row = 2 Then
With Worksheets("宛名印刷")
For Each r In Target
If Not r.EntireRow.Hidden Then
.Range("E1").Value = r.Value
.PrintOut
End If
Next
End With
End If
Set Target = Nothing
End With
End Sub
・・・なんてので、ええんとちゃいまっか?
試してみてな。
ほな。
|
|