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

[medved_program]

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

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

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

А можете дать пояснение про цикл, что это

PHP код:

Cells(Rows.Count, 4).End(xlUp).Row 


[medved_program]

Спасибо большое, все работает. Можете дать пояснение, что вы задали в цикле?

PHP код:

Cells(Rows.Count, 4).End(xlUp).Row 


[IgorGO]

это не цикл. это номер последней строки с данными в колонке 4 (Д)
и это задал не я

[Hugo121]

Можно иначе и проще (для случая, когда переносить не нужно ):

    With Sheets(1)
        If .FilterMode Then .ShowAllData
        .Range("D1").AutoFilter Field:=4, Criteria1:=">199"
        .Range("A1").CurrentRegion.Copy Sheets("Лист2").Range("A1")
        Application.CutCopyMode = False
        .UsedRange.AutoFilter
    End With

Код хоть в кнопку (на листе или в форме), хоть в Sub в модуль...
Правда скопирует с шапкой, но если мешает - можно её удалить.