Доброго времени суток, друзья. При использовании специальной вставки с параметром 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