Страницы: 1
RSS
Ошибка 1004 при использовании специальной вставки
 
Доброго времени суток, друзья.
При использовании специальной вставки с параметром Paste:=xlPasteValues выдает ошибку :  Application or object defined error.
Без этого параметра вставка происходит без проблем.
Суть задачи:
Скрытый текст

Код:
Код
Sub Test()
Dim copiedRange As Range
Dim c As Range
Set copiedRange = Range("P10:Z10")
Dim Rng As Range, rCell As Range
Set Rng = Range("A1:A30")
Set c = Rng.Find(copiedRange.Cells(1, 1), LookIn:=xlValues)
For Each rCell In Rng
    If IsEmpty(rCell) And c Is Nothing Then
        copiedRange.Copy
        rCell.Select
        ActiveSheet.PasteSpecial Paste:=xlPasteValues
        Exit For
    End If
Next
End Sub
Изменено: Alex Pozd - 01.07.2020 16:52:26
 
PasteSpecial с параметрами допустим для использования только в объекте Range, а не в листе:
Код
copiedRange.Copy
rCell.PasteSpecial Paste:=xlPasteValues
Даже самый простой вопрос можно превратить в огромную проблему. Достаточно не уметь формулировать вопросы...
Страницы: 1
Наверх