マクロでの可視セルのコピー＆ペーストについて
いつもお世話になってます。
マクロに関してですが、
見えているセル（可視セル）のみコピー＆ペーストをする方法についての質問です。
請求書を連続印刷するマクロを質問させていただいたことがありまして。
（http://okwave.jp/qa/q6948578.html）
色々ありまして現在この形で使用しています。
Sub sample()
Dim lastrow As Long
Dim i As Long
Dim hassou_column As Integer
hassou_column = Range("W3").Column '条件項目のある列を指定（発送列）
'「発送」列の最終行を取得
lastrow = Range("W3").End(xlDown).Row
For i = 4 To lastrow
If Cells(i, hassou_column) = "●" Then
Call mySeikyusyoPrint(i)
End If
Next i
MsgBox "実行しました"
End Sub
Sub mySeikyusyoPrint(ByVal rowNum As Long)
Dim koumoku(24) As String
Dim j As Integer
Sheets("売上").Select
'「売上」側の処理
For j = 1 To 24
koumoku(j) = Cells(rowNum, j)
Next j
'「請」側の処理
Sheets("請").Select
For j = 1 To 24
Cells(1, j) = koumoku(j)
Next j
ActiveWindow.SelectedSheets.PrintOut From:=2, To:=32766, Copies:=1
Sheets("売上").Select
End Sub
「売上」「請」の2つシートがあり、「売上」のW列において●があるところを判定し、
●があるところだけ連続印刷していくという仕様になっています。
「売上シート」の1行目コピー→「請」シート1行目に貼り付け→印刷→
「売上シート」の次の行をコピー→「請」シート1行目に貼り付け→印刷
という繰り返しになっています。
「売上」シートには非表示列が存在しまして。
現在は非表示部分を削除して使用していますが、本来は消したくないという事もあり
今回このマクロに「可視セル」だけコピー＆ペーストさせるにはどうすればいいか、
という話になり、その点でつまずきまして質問をさせていただきました。
何度か修正を加えたのですがうまくいかず。
可視セルと言うと
Selection.SpecialCells(xlCellTypeVisible).Select
で、可視セルを選択して、という流れかと思います。
しかし勉強不足以外の何物でもないのですが、結局わからず。
上記のマクロを修正でも全く別の形でも構いませんので、
皆様の知恵をお借しいただけないでしょうか。
いつも申し訳ございません。何卒よろしくお願い致します。
