Копирование информации в разные книги (Макрос)

Старая форма входа

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование информации в разные книги (Макрос) (Формулы/Formulas)

Kombinator

Дата: Понедельник, 12.01.2015, 01:00 | Сообщение № 1

Группа: Пользователи

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

Добрый вечер ув.форумчане.

Прошу помочь создать макрос который при нажатии кнопки, с одного файла в данном случае (Дата) при заполнении ячеек
Переносит (копирует) информацию в файл (Бланк) в свободные ячейки.

К сообщению приложен файл: 9372431.xls (18.5 Kb) · 2305332.xls (18.0 Kb)

Сообщение отредактировал Kombinator - Понедельник, 12.01.2015, 02:22

Ответить

light26

Дата: Понедельник, 12.01.2015, 01:17 | Сообщение № 2

Группа: Друзья

Ранг: Старожил

Сообщений: 1350

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

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

2007, 2010, 2013

Срочно читайте правила и меняйте тему, если не хотите, чтобы ее заблокировали.

Что касается решения проблемы, то если имя файла, содержащего бланк, структура бланка и структура таблицы с исходными данными не меняется, то можно просто воспользоваться макрорекордером.
Получится примерно так:[vba]

Код

Sub Перенос()

         Range("B3:D10").Copy
         Windows("2305332.xls").Activate
         Range("A2").Select
         Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
             :=False, Transpose:=False
         Windows("9372431.xls").Activate
         Range("B3").Select
         Application.CutCopyMode = False
       End Sub

[/vba]Где Windows("*******.xls") - месторасположение и имя файла (в первом случае - откуда копируем, во втором - куда копируем)
Это не панацея, но как вариант....

Я не волшебник. Я только учусь

Сообщение отредактировал light26 - Понедельник, 12.01.2015, 01:37

Ответить

Kombinator

Дата: Понедельник, 12.01.2015, 21:47 | Сообщение № 3

Группа: Пользователи

Ранг: Новичок

Сообщений: 48

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

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

Excel 2003

light26, скажите, а в случае если дело происходит в одной книге но на разных листах как в таком случае будет выглядеть скрипт ?

Ответить

Cheshir0067

Дата: Понедельник, 12.01.2015, 21:53 | Сообщение № 4

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

Ранг: Новичок

Сообщений: 35

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

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

Excel 2010

Эту строчку :
[vba]

Код

Windows("2305332.xls").Activate

[/vba]
Надо поменять на эту:
[vba]

Код

Worksheets("Лист2").Activate

[/vba]

irelandzp@gmail.com

Ответить

babbyfase

Дата: Воскресенье, 24.05.2015, 08:56 | Сообщение № 5

Группа: Пользователи

Ранг: Прохожий

Сообщений: 3

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

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

Excel 2003

А подскажите, получается командой Activate нужный нам лист(книга) открывается и все, остается открытой. А как сделать так , чтобы не запускался лист(книга) к которой мы обращаемся?
[moder]А причем здесь копирование данных в книги?
Создайте свою тему в соответствии с правилами форума![/moder]

Сообщение отредактировал Manyasha - Воскресенье, 24.05.2015, 11:42

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование информации в разные книги (Макрос) (Формулы/Formulas)

Страница 1 из 1
1