перенос строки на другой лист по условию

[TimoXEi]

Добрый день! Нужна небольшая помощь по написанию макроса.
Есть файлик, используемый для ведения учёта поручения.
Задача: что бы при вводе в столбце статус значения "выполнено", вся строка с поручением переносилась на лист "архив". Заранее спасибо

[EugeneS]

можно, например, так, см. вложение

[TimoXEi]

честно говоря, не заметил что что то изменилось....

[doober]

честно говоря, не заметил что что то изменилось....

Да нет,изменилось.Все работает правильно

[Skif-F]

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

Да нет,изменилось.Все работает правильно

Возможно надо не копировать, а переносить?

[doober]

Да Skif-F ,Вы правы.как всегда прочитал между строчек.Глянул-строка копируется.а надо было переносить

[TimoXEi]

Сообщение от Skif-F

Возможно надо не копировать, а переносить?

Да, вот так работает. А можно ли как-нибудь заполучить код макроса? А то у меня почему то в макросах ничего нет, хотя при запуске ехель пишет, что запуск макросов отключен и предлагает включить...Возможно загвоздка в 2010 офисе?

[Skif-F]

Private Sub Worksheet_Change(ByVal Target As Range)
With Sheets("Задания")
    .Select
    If Target.Count > 1 Then Exit Sub
    If Not Intersect(Target, [e:e]) Is Nothing And Target.Value = "выполнено" Then
        .Rows(Target.Row).Copy Sheets("Архив").Rows(WorksheetFunction.CountA(Sheets("Архив").[a:a]) + 1)
        .Rows(Target.Row).Delete
    End If
End With
End Sub

Процедура не в модулях, а в листе (щёлкни двойным кликом на "Лист1(Задания)")

[TimoXEi]

Спасибо большое, уже и сам нашёл. Всем большое спасибо за помощь

[rovser]

переносится постоянно на одну и туже строку, как сделать чтобы переносилось на следующую?