Копирование строк с определенной заливкой

[sonata]

Проблема в том, что эта процедура не копирует нужные строчки...
А как сделать так, чтобы она копировала?
В чем ошибка?Никак не могу понять...

Код: Выделить всё

Sub Копирование_с_условием()
'
' Копирование строк с определенной заливкой

For i = 1 To 2000

Rows(i).Select
j = 1
If (Selection.Interior.ColorIndex = 7) Then
      Selection.Copy
    Sheets("Лист2").Select
Rows(j).Select
ActiveSheet.Paste
j = j + 1
End If
Next
End Sub

[corgi]

а так

Код: Выделить всё

Sub Копирование_с_условием()
'
' Копирование строк с определенной заливкой

j = 1
For i = 1 To 2000

Rows(i).Select
If (Selection.Interior.ColorIndex = 7) Then
      Selection.Copy
      Sheets("Лист2").Select
      Rows(j).Select
      ActiveSheet.Paste
      j = j + 1
End If
Next
End Sub


[sonata]

А так копирует только одну строчку...

[corgi]

да надо было проверить

Код: Выделить всё

Sub Копирование_с_условием()
'
' Копирование строк с определенной заливкой
j = 1
For i = 1 To 2000
If (Rows(i).Interior.ColorIndex = 7) Then
      Rows(i).Copy
      Sheets("Лист2").Select
      Sheets("Лист2").Rows(j).Select
      ActiveSheet.Paste
      Sheets("Лист1").Select
      j = j + 1
End If
Next
End Sub


[sonata]

Да, так-все СУПЕР!!!
Получается, дело было только в том, чтобы лишний раз обращаться к имени листа....

[corgi]

да и еще надо было j=1 вынести за пределы for чтобы каждый раз j не "обнулялась"