Страницы: 1
RSS
Перенос строк с одного листа на другой по условию
 
Добрый день всем !

Как перенести строки с листа на лист по условию  макросом?

В книге два листа - лист Практика и лист Результат

Таблица на листе Практика идентична таблице на листе Результат - диапазон таблиц А3:Q

Из листа Практика на лист Результат нужно перенести строки, содержащие в столбце O значение "Назначена встреча"

Строки переносятся в последнюю незаполненную строку по столбцу C листа Результат

При этом с листа Практика строка удаляется

Пример прилагаю.

 
OlegE, Добрый день. Можно так
Код
Sub ПереносСтрок()
Dim r As Range, lr As Long
lr = Cells(Rows.Count, 15).End(xlUp).Row
For Each r In Range(Cells(3, 15), Cells(lr, 15))
  If r = "Назначена встреча" Then
    Rows(r.Row).Copy Sheets("Результат").Cells(Rows.Count, 1).End(xlUp).Offset(1)
    Rows(r.Row).Delete
  End If
Next
End Sub
 
casag  благодарю за ответ ! то что нужно
Страницы: 1
Наверх