если... то "копировать"

[aoaoo]

Имеется 5 столбцов. При совпадении с условием во 2ом столбце вся эта строка копируется на лист 2\очищается\удаляется со смещением вверх.

[Serge 007]

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

Имеется 5 столбцов. При совпадении с условием во 2ом столбце вся эта строка копируется на лист 2\очищается\удаляется со смещением вверх.

Круто.
Покажете?

[aoaoo]

такое возможно вообще?

[Serge 007]

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

такое возможно вообще?

Так это вопрос был?

[aoaoo]

ну да. как такое провернуть? =)

[Serge 007]

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

ну да.

По тексту непонятно было
Пример давайте, что с чем должно совпадать и что откуда куда должно переноситься.

[aoaoo]

вот пример )
если во 2ом столбике значение входит в диапазон от -70,5 до -40,5 , то все строки копируется на лист2 (или в соседние свободные ячейки).

[IgorGO]

вот макрос )

Sub MoveData22()
  Dim r1 As Long, r2 As Long
  If Sheets.Count = 1 Then
    Sheets.Add after:=Sheets(1)
    Sheets(1).Activate
  Else
    Sheets(2).Cells.ClearContents
  End If
  r1 = 1: r2 = 1
  Do While Cells(r1, 1) <> ""
    If Cells(r1, 2) >= -70.5 And Cells(r1, 2) <= -40.5 Then
      Rows(r1).Copy Sheets(2).Cells(r2, 1)
      r2 = r2 + 1
      Rows(r1).Delete Shift:=xlUp
    Else
      r1 = r1 + 1
    End If
  Loop
End Sub

выполните его с листа с данными - получите результат. отошлите этот макрос 10 своим знакомым - будет Вам счастье!

[aoaoo]

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

вот макрос )

Sub MoveData22()
  Dim r1 As Long, r2 As Long
  If Sheets.Count = 1 Then
    Sheets.Add after:=Sheets(1)
    Sheets(1).Activate
  Else
    Sheets(2).Cells.ClearContents
  End If
  r1 = 1: r2 = 1
  Do While Cells(r1, 1) <> ""
    If Cells(r1, 2) >= -70.5 And Cells(r1, 2) <= -40.5 Then
      Rows(r1).Copy Sheets(2).Cells(r2, 1)
      r2 = r2 + 1
      Rows(r1).Delete Shift:=xlUp
    Else
      r1 = r1 + 1
    End If
  Loop
End Sub

выполните его с листа с данными - получите результат. отошлите этот макрос 10 своим знакомым - будет Вам счастье!

гениально! спасибо большое!
вопрос не по теме: вы случайно не программируете на каком-нибудь языке?