Удаление строки

[olik111]

В приведенном ниже коде почему-то не удаляется
строка данные из которой были скопированы на другой лист, подскажите
пожалуйста, что я делаю не так.

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim Dat As String
If Target.Column <> 7 Then Exit Sub

iRow = Target.Row
Set iListOne = Worksheets("Выполненные")
Set iListTwo = Worksheets("Выполняемые")
iRowLastOne = iListOne.Cells(65536, 1).End(xlUp).Row
For i = 6 To iRowLastOne

If iListOne.Cells(i, 1).Value = "" Then

iListOne.Cells(iRowLastOne+1, 1).Value = iListTwo.Cells(iRow, 1).Value
iListOne.Cells(iRowLastOne+1, 2).Value = iListTwo.Cells(iRow, 2).Value
iListOne.Cells(iRowLastOne+1, 3).Value = iListTwo.Cells(iRow, 3).Value
iListOne.Cells(iRowLastOne+1, 4).Value = iListTwo.Cells(iRow, 4).Value
iListOne.Cells(iRowLastOne+1, 5).Value = iListTwo.Cells(iRow, 5).Value
iListOne.Cells(iRowLastOne+1, 6).Value = iListTwo.Cells(iRow, 7).Value
iListTwo.Cells(iRow, 9).Copy
iListOne.Select
iListOne.Cells(iRowLastOne+1, 7).PasteSpecial Paste:=xlPasteAll
iRowLastOne = iRowLastOne + vbNull

iListTwo.EnableSelection = xlNoRestrictions
iListTwo.Protect Contents:=True

iListTwo.Unprotect Password:="123"
iListTwo.Rows(iRow).Delete
iRow = iRow - 1

iListTwo.Protect Password:="123", DrawingObjects:=True, Contents:=True, Scenarios:=True

Application.ScreenUpdating = True

end If
Next

End Sub

[SergeySV2]

Ну копировать надо лучше не по ячейкам, а сразу диапазонами и напрямую - у метода Copy еще аргументы есть - посмотри по справке

А на счет удаления...
iListTwo.Rows(iRow).Delete
ну тут вроде все правильно, если iRow это корректный номер строки и пароль на книгу снят, ...... что хоть за ошибку пишет

[olik111]

pashulkaт Я пробовала написать, говорит, что ваш ящик переполнен

[olik111]

SergeySV2, ошибку ни какую не пишет, просто, не переносит данные на другой лист и не удаляет строку на первоначальном

[olik111]

Буду вам очень признательна

[SergeySV2]

Буду вам очень признательна

Наверное тогда лучше, просто выложить файл с данными и этим макросом для экспериментов.... если это конечно возможно

[olik111]

уже проблема решена, спасибо pashulka