Ошибка выполнения VBA 1004 «Ошибка приложения или объекта» при выборе диапазона
У меня возникла проблема с ошибкой 1004 «Ошибка приложения или объекта» при выборе диапазона.
Я все еще могу выбрать строки (т.е.Rows("21:21").select
) и выбрать диапазоны на других листах той же книги. Я не верю, что ошибка в коде. Может быть, некоторые настройки я не знаю?
Я использовал один и тот же код много раз прежде, но по какой-то причине я не могу заставить его работать в этом подпрограмме (я прокомментировал, где происходит ошибка) ...
Sub CopySheet1_to_PasteSheet2()
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
'>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1
'Copy Data
Range("A21:C" & CLastFundRow).Select
Selection.Copy
'Paste Data Values
Sheets("PalTrakExport PortfolioAIdName").Select
Range("A21").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
'Bring back to top of sheet for consistancy
Range("A21").Select
Range("A1").Select
End Sub
Мне нужно сделать все возможное, чтобы копировать, так как количество строк будет часто меняться. Опять же, приведенный ниже код был использован раньше без ошибок ... но не в этом случае.
Dim CLastFundRow As Integer
Dim CFirstBlankRow As Integer
'Finds last row of content
Windows("Excel.xlsm").Activate
Sheets("Sheet1").Activate
Range("C21").Select
'>>>Error 1004 "Application-defined or Object-defined error" Occurs
Selection.End(xlDown).Select
CLastFundRow = ActiveCell.Row
'Finds first row without content
CFirstBlankRow = CLastFundRow + 1