Sub update_button()
'
' update_button Makro
'
'
Set from = Sheet1
Set towards = Sheet5
With from
lastRowIndex = .Cells(.Rows.Count, "A").End(xlUp).Row
.Range(Cells(2, 1), Cells(lastRowIndex, 4)).Copy
End With
towards.Cells(7, 1).Paste
End Sub
Этот код должен копировать ячейки между A2 и последней строкой на первом листе. Затем вставьте его в определенную ячейку на другом листе. Запуск этого кода дает мне ошибку времени выполнения 1004. Ошибка приложения или объекта.
При переходе в режим отладки и наведении указателя мыши на ячейки (2,1) появляется сообщение о том, что ячейки (2,1) = "Обновлено?". Из того, что я вижу, Cells (2,1) хорошо определен, и с ним не должно быть проблем. Я не могу ничего найти по этому поводу, учитывая, как общее имя.
Обратите внимание, что у меня есть неанглийская версия Excel, и я перевел несколько слов, чтобы сделать код немного менее запутанным.