Поиск  Пользователи  Правила  Войти
Форумы "Планета Excel" » Вопросы по Microsoft Excel
Страницы: 1
RSS
Копирование диапазона ячеек на другой лист
 
#1
10.12.2019 15:01:20
Добрый день, форумчане!
Обращаюсь за помощью, в простой операции копировании диапазона ячеек с одного листа на другой.
Пример кода:
Код
Sub люди_на_проектах()
Worksheets("люди_на_проектах").Cells.Clear
k = Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Range("A1").CurrentRegion.Rows.Count
Set d = Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Range(Cells(1, 1), Cells(k, 3))
d.Copy Destination:=Workbooks("Ежедневная_сводка").Worksheets("люди_на_проектах").Cells(1, 1)
End Sub
появляется ошибка Run-time error '1004':  Application-defined or object-defined  error

Буду признателен за помощь!
 
 
 
#2
10.12.2019 15:03:39
Как макрос узнает путь к книге-источнику? Если это все в одной кгиге, ее указывать не обязательно.
 
 
 
#3
10.12.2019 15:05:51
vikttur, не совсем понял вопрос. Я ведь прописываю путь, начиная с Workbooks("Ежедневная_сводка").
 
 
 
#4
10.12.2019 15:06:02
Выглядит, как будто у книги не указано расширение.
Код
Workbooks("Ежедневная_сводка")
 
 
 
#5
10.12.2019 15:08:01
Добрый день.
Мне кажется, если вы в момент выполнения макроса не находитесь на листе "Сводная_таблица_ГК", то у вас ошибка в обращении к ячейкам рабочего листа:
Код
Set d = Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Range(Cells(1, 1), Cells(k, 3))
'мне кажется перед каждой Cell надо прописывать полный путь.
Set d = Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Range _
(Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Cells(1, 1), Workbooks("Ежедневная_сводка").Worksheets("Сводная_таблица_ГК").Cells(k, 3))
Кому решение нужно - тот пример и рисует.
 
 
 
#6
10.12.2019 15:09:20
Цитата
galver написал: не совсем понял вопрос.
Если обращение к другой книге, должен быть указан полный путь к ней.

Диапазон формируется из ячеек АКТИВНОГО листа (у Cells  не указан родитель):
Код
Worksheets("Сводная_таблица_ГК").Range(Cells(1, 1), Cells(k, 3))

И если активен другой лист (не "Сводная_таблица_ГК")...
 
 
 
#7
10.12.2019 15:10:39
vikttur,Пытливый,МатросНаЗебре   спасибо за помощь!
Действительно, если я не нахожусь на листе "Сводная_таблица_ГК" в момент выполнения макроса, то появляется ошибка.
Подскажите, пожалуйста, а как я могу обойти этот момент?


Изменено: galver - 10.12.2019 15:17:02
 
 
 
#8
10.12.2019 15:16:31
В какой строке ошибка? Или выложите файл.
 
 
 
#9
10.12.2019 15:20:37
Пробуем угадать без примера. А так?
Код
Sub люди_на_проектах()
    Workbooks("Ежедневная_сводка.xlsm").Worksheets("люди_на_проектах").Cells.Clear
    k = Workbooks("Ежедневная_сводка.xlsm").Worksheets("Сводная_таблица_ГК").Range("A1").CurrentRegion.Rows.Count
    With Workbooks("Ежедневная_сводка.xlsm").Worksheets("Сводная_таблица_ГК")
    Set d = .Range(.Cells(1, 1), .Cells(k, 3))
    End With
    d.Copy Destination:=Workbooks("Ежедневная_сводка.xlsm").Worksheets("люди_на_проектах").Cells(1, 1)
End Sub
 
 
 
#10
10.12.2019 15:23:34
Так я ж, вроде, правильный синтаксис там написал уже выше, нет?
Кому решение нужно - тот пример и рисует.
 
 
 
#11
10.12.2019 15:24:33
МатросНаЗебре, извиняюсь, не успеваю отвечать быстро.
Прикладываю пример
 
 
 
#12
10.12.2019 15:33:52
МатросНаЗебре, спасибо за исправленный код, он работает.
Можете подсказать, почему мой код не работал полноценно?
 
 
 
#13
10.12.2019 15:38:36
Пытливый, благодарю за разъяснение!
 
 
 
#14
10.12.2019 15:45:03
Ещё раз всем спасибо за помощь!
Тему можно закрывать
 
 
 
#15
10.12.2019 15:55:53
galver, а можно же было вернуться и дополнить сообщение, а не множить "тихо сам с собою я веду беседу"...
 
 
 
#16
10.12.2019 16:09:20
vikttur, урок усвоил)
У меня еще интернет лагает на работе, плохо грузит сообщения.
 
 
 
Страницы: 1
Наверх