Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


66507 / 76734 ←次へ | 前へ→

【14790】Re:オートフィルター後のナンバーの読み取り(宛名印刷について)
回答  kein  - 04/6/8(火) 0:38 -

引用なし
パスワード
   質問文とコードの内容がちぐはぐでよく理解できませんが、フィルターで抽出した
"行"を、1行づつ宛名印刷シートの1行目にコピーして印刷する。というマクロなら

Sub 葉書宛名差込印刷()
  Dim MyR As Range, C As Range

  On Error GoTo ErLine
  With Worksheets("顧客リスト")
   Set MyR = .Range("B2", .Range("B65536").End(xlUp)) _
   .SpecialCells(xlCellTypeVisible)
  End With
  For Each C In MyR
   With Sheets("宛名印刷")
     .Rows(1).ClearContents
     C.EntireRow.Copy .Range("A1")
     .PrintOut Copies:=1
   End With
  Next
ErLine:
  Set MyR = Nothing
  If Err.Number > 0 Then
   MsgBox Err.Number & vbLf & Err.Description
  Else
   MsgBox "印刷を終了しました", 64
  End If
End Sub

1 hits

【14771】オートフィルター後のナンバーの読み取り(宛名印刷について) YN61 04/6/7(月) 19:37 質問
【14790】Re:オートフィルター後のナンバーの読み取... kein 04/6/8(火) 0:38 回答
【14881】Re:オートフィルター後のナンバーの読み取... YN61 04/6/9(水) 6:20 お礼
【14791】Re:オートフィルター後のナンバーの読み取... しん 04/6/8(火) 0:40 回答
【14882】Re:オートフィルター後のナンバーの読み取... YN61 04/6/9(水) 6:46 お礼
【14885】Re:オートフィルター後のナンバーの読み取... しん 04/6/9(水) 11:33 回答
【14903】Re:オートフィルター後のナンバーの読み取... しん 04/6/9(水) 19:55 回答
【14906】Re:オートフィルター後のナンバーの読み取... IROC 04/6/9(水) 22:29 回答
【14909】Re:オートフィルター後のナンバーの読み取... しん 04/6/9(水) 23:08 発言
【14941】Re:オートフィルター後のナンバーの読み取... YN61 04/6/10(木) 22:53 お礼

66507 / 76734 ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free