Обновление данных на листе данными с другой книги.

Страница 1 из 1 1
Модератор форума: китин, _Boroda_, DrMini

Обновление данных на листе данными с другой книги. (Макросы/Sub)

китин

Дата: Среда, 02.09.2015, 15:56 | Сообщение № 1

Группа: Модераторы

Ранг: Экселист

Сообщений: 7040

Репутация: 1080 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Всем доброго времени суток, господа!
Пришло время мне создавать темы и задавать вопросы!Попробовал написать макрос.Вот он[vba]

Код

Sub Макрос2()
'
' Макрос2 Макрос
'

'
       Windows("план сентябрь-ноябрь 2015.xlsx").Activate
       Sheets("ПЛАН").Select
       Range("A1:CA214").Select
       Selection.Copy
       Windows("Закупки СЕНТЯБРЬ 2015.xlsm").Activate
       Sheets("ПЛАН").Select
       Range("A1").Select
       ActiveSheet.Paste
End Sub

[/vba]вроде работает,но есть пара вопросов.Как сделать так, что бы он мог работать и с закрытой книгой "план сентябрь-ноябрь 2015.xlsx". И как сделать , что бы он срабатывал при открытии книги "Закупки СЕНТЯБРЬ 2015.xlsm"
[p.s.]записано макрорекордером,малость подредактировано мной.
и вдогонку:нажимаю исходный текст и не вижу макроса.где он?

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Сообщение отредактировал китин - Среда, 02.09.2015, 16:03

Ответить

wild_pig

Дата: Среда, 02.09.2015, 16:13 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 518

Репутация: 97 ±

Замечаний: 0% ±

2003, 2013

1. Открыть/поработать/закрыть
2. разместить макрос в модуле книги на событие Workbook_Open

Ответить

_Boroda_

Дата: Среда, 02.09.2015, 16:14 | Сообщение № 3

Группа: Админы

Ранг: Местный житель

Сообщений: 17005

Репутация: 6667 ±

Замечаний: ±

2003; 2007; 2010; 2013 RUS

Исходный текст показывает макрос в коде листа.
Ты пишешь макрорекодером в обычный модуль.
Для отработки при открытии тебе нужно писать в модуль книги (см рисунок)

Примерно вот так можно (основано на том, что формулы с прямыми ссылками работают с закрытыми книгами)
[vba]

Код

Private Sub Workbook_Open()
       put_ = "C:\Мои\Стереть\[how_to_remove_l.xlsx]"
       list_ = "Лист1"
       Sheets("ПЛАН").Range("A1:CA214").FormulaR1C1 = "='" & put_ & list_ & "'!RC"'пишем в диапазон формулы типа ='C:\Мои\Стереть\[how_to_remove_l.xlsx]Лист1'!RC
       Sheets("ПЛАН").Range("A1:CA214") = Sheets("ПЛАН").Range("A1:CA214").Value'в диапазон вместо формулы вставляем значения
End Sub

[/vba]

К сообщению приложен файл: 2243032.jpg (14.0 Kb)

Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
Boroda_Excel@mail.ru
Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995

Ответить

китин

Дата: Среда, 02.09.2015, 17:05 | Сообщение № 4

Группа: Модераторы

Ранг: Экселист

Сообщений: 7040

Репутация: 1080 ±

Замечаний: 0% ±

Excel 2007;2010;2016

Саш не гони лошадей.

.я туповат малость после недели подряд на работе.
[vba]

Код

Private Sub Workbook_Open()
       put_ = "C:\Мои\Стереть\[how_to_remove_l.xlsx]"  'Это путь к моей книге ,откуда обновлять?или где обновлять?
       list_ = "Лист1"                  'это мой лист "План" ?
       Sheets("ПЛАН").Range("A1:CA214").FormulaR1C1 = "='" & put_ & list_ & "'!RC"        '
       Sheets("ПЛАН").Range("A1:CA214") = Sheets("ПЛАН").Range("A1:CA214").Value'в диапазон вместо формулы вставляем значения
End Sub

[/vba]
а дальше?