[[20120424141919]]　『マクロでコピペ→印刷を任意のNまで行いたい』（新人）　ページの最後に飛ぶ

『マクロでコピペ→印刷を任意のNまで行いたい』（新人）
Excel2010で下記マクロを記憶させたのですが、このマクロをN行まで
実行させたいと思っています。
Sub 印刷()
'
' 印刷 Macro
'

    Range("HB1").Select
    Selection.Copy
    Range("GB8:GK13").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
    Range("HB2").Select
    Application.CutCopyMode = False
    Selection.Copy
    Range("GB8:GK13").Select
    ActiveSheet.Paste
    ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
End Sub

お力をお貸しくださいm(_ _)m

宜しくお願い致します。

 N行目はHB列のデータが入力されている最後の行までと解釈しました｡

 Sub 印刷()

 Dim lastRow As Long
 Dim n As Long

    lastRow = Range("HB" & Rows.Count).End(xlUp).Row '←HB列のデータが入力されている最後の行=N行目

    For n = 1 To lastRow '←コピー範囲は1～n行目まで
        Range("HB" & n).Copy '←HBのｎ行をコピー
        Range("GB8:GK13").Paste '←GB8:GK13に貼付け

        ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
            IgnorePrintAreas:=False '←印刷
    Next n'←nが最終行になるまで繰り返し。
 End Sub

 (毛虫通過中)

 すでに完璧な回答がでているので蛇足だけど。

 もし、転記が「値のみ」でいいのなら
Range("HB" & n).Copy '←HBのｎ行をコピー
Range("GB8:GK13").Paste '←GB8:GK13に貼付け
 この２行は
Range("GB8:GK13").Value = Range("HB" & n).Value
 これでもいいね。

 (ぶらっと)

 >Range("GB8:GK13").Paste '←GB8:GK13に貼付け
 エラーになると思うんだけど？？
 BJ

 BJ様のご指摘どおりです。失礼しました!

 Range("GB8:GK13").PasteSpecial

 ですよね…
 (毛虫通過中)

皆様、早速のご回答有難うございます。
無事に解決できました！

毛虫通過中様、ぶらっと様、BJ様有難うございます！

今後ともご指導宜しくお願い致しますm(_ _)m

（新人）

コメント返信：

[ 一覧(最新更新順) ]

[[20120424141919]] 『マクロでコピペ→印刷を任意のNまで行いたい』（新人） ページの最後に飛ぶ

[[20120424141919]]　『マクロでコピペ→印刷を任意のNまで行いたい』（新人）　ページの最後に飛ぶ