перенос данных

[medved_program]

Доброго времени суток. Необходимо скопировать данные с одного листа на другой, если это разрешает условие. у меня копируется, но копируется лишь первое число, удовлетворяющее условию. вот мой код

PHP код:

Private Sub CommandButton1_Click()
Dim i, j As Variant
For i = 1 To 1000
If Worksheets("Ëèñò1").Cells(i, 4) > 199 Then
 
Rows(i).Select
        Rows(i).Copy
Rows(i).Select
                Worksheets("Ëèñò2").Paste
End If
Next i
End Sub 


[Hugo121]

Вообще-то должны копироваться все, но оставаться должно последнее. При выполнении всех условий конечно. Но раз одно копируется, то значит выполняются...
Файл давайте, а то так ни о чём...

[27102014]

Private Sub CommandButton1_Click() 
Dim i, j As Variant 
r = 1
For i = 1 To 1000 
If Worksheets("Ëèñò1").Cells(i, 4) > 199 Then 
  Rows(i).Copy 
  Worksheets("Ëèñò2").Select
  cells (r,1) .Select
   ActiveSheet.Paste
   r=r+1

End If 
Next i 
End Sub

[medved_program]

Вот пример документа Лист Microsoft Excel.xls

[Hugo121]

И что?.................

[medved_program]

Нет, так же выбирает лишь первое значение

[medved_program]

Сообщение от Hugo121

И что?.................

Я скинул файл, может в него добавить форму с кодом?

[Hugo121]

Причём там форма? Первый раз вижу...
Где там кнопка с корявым кодом?
Куда что нужно копировать? Или всёж переносить - это сильно разные действия по факту.

P.S. вообще у меня в плане обед - так что не торопитесь, подготовьтесь

[27102014]

Сообщение от medved_program

Я скинул файл, может в него добавить форму с кодом?

Конечно нужно добавить - Вам же требуется помощь, или кому?
Допилил свой вариант, у меня отработало нормально

Sub CommandButton1_Click()
Dim i, r As Variant
r = 1
For i = 2 To Worksheets("Лист1").Cells(Rows.Count, 4).End(xlUp).Row

If Worksheets("Лист1").Cells(i, 4).Value > 199 Then
  Rows(i).Copy
  Worksheets("Лист2").Select
  Cells(r, 1).Select
   ActiveSheet.Paste
   r = r + 1
Worksheets("Лист1").Select
End If
Next i
End Sub

[medved_program]

Лист Microsoft Excel.xls
Там добавлена форма с кнопкой, если поместить кнопку на лист с кодом, то программа ругается