Ошибка выполнения VBA 1004 при копировании вставки из листа на другой

Я пытаюсь скопировать только значения из одного листа в другой в той же книге, но всегда получаю сообщение об ошибке.

Вот код:

For Each turn In test.Range("A6:" & test.Range("A6").End(xlDown).Address)

    For i = LastRow To 2 Step -1
        If CDate(i1.Range("B" & i).Value) > CDate(turn.Value) Then
            'i1.Rows(i).Delete
        End If
    Next i

    turn.Offset(, 1).Copy
    Sheets("PRONO").Range("B8").Select
    Selection.PasteSpecial xlPasteValues

'            turn.Offset(, 2).Select
'            Selection.Copy
'            prono.Range("B9").Select
'            Selection.PasteSpecial xlPasteValues

    Application.CutCopyMode = False
Next                    

0 ответов

Другие вопросы по тегам