Почему данный код может не работать? Выдает ошибку "Метод PasteSpecial из класса Range завершен неверно". Лист куда копирую полностью пустой и только что созданный макросом.
Таблицу из которой копирует прикладываю. Столбец "W" заполняется макросом, там значения тоже будут.
Дмитрий(The_Prist) Щербаков, проблема может ещё ещё в том, что копируются несвязанные диапазоны. Может их сначала скопировать на служебный лист и потом одной областью перенести в другой файл…
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Нормально всё работает, если перед этим в коде всё правильно определить.
Код
Sub zzzz()
Dim wbImport As Workbook
Dim yearsArray() As Variant
Dim s As Long
Set wbImport = ActiveWorkbook
ReDim yearsArray(0 To 1)
yearsArray(0) = "Лист1"
yearsArray(1) = "Лист2"
s = 1
Range("A:A,B:B,D:D,E:E,L:L,N:N,O:O,W:W").Select
Selection.Copy
wbImport.Worksheets(yearsArray(s)).Range("a1").PasteSpecial (xlPasteAll)
End Sub