ＶＢマクロ 色の付いたセルを含む行をコピーしたい。

質問

ＶＢ初心者です。
こちらでご指導頂きながら勉強しております。
今回もどなたかご教授お願い致します。

Ｇ列～Ｒ列内の色の付いたセルを含む行を
次のシートにコピーしたいのですが…
マクロを組んで実行したいと思っております。

どなたかアドバイス宜しくお願い致します。

回答No.2

myRange

例えば、
データシートが、Sheet1
転記のシートが、Sheet2
というようにシート名が決まっている場合のコードは書けるのでしょうか。
もし、それも書けないということであれば、

＞次のシートにコピーしたい

これは次の段階のような気もしますが。。。
（別に難しいと言ってるわけではありませんが）

ま、それは置いといて、

質問の文言どおりに
アクティブシートのＧ～Ｒ列で色付きセルがあったら
その行を
アクティブシートの「次の」シートへコピーする場合

'------------------------------------------　
Sub test()
　Dim R As Long
　Dim Clm As Long
　Dim Cnt As Long
　Dim NextSheet As Worksheet

　Set NextSheet = Worksheets(ActiveSheet.Index + 1)
　NextSheet.Cells.Clear

　For R = 1 To Cells(Rows.Count, "G").End(xlUp).Row
　　　For Clm = 7 To 18
　　　　　If Cells(R, Clm).Interior.ColorIndex <> xlNone Then
　　　　　　　Cnt = Cnt + 1
　　　　　　　Rows(R).Copy NextSheet.Cells(Cnt, "A")
　　　　　　　Exit For
　　　　　End If
　　　Next Clm
　Next R
End Sub
'---------------------------------------------

なお、Ｇ列で最終行を取得していますので
データの最終行のＧ列には何らかのデータがないといけません。

以上、ここまで。