Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Перенос данных из книги в книгу - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных из книги в книгу (Макросы/Sub)
Перенос данных из книги в книгу
nord23 Дата: Вторник, 02.02.2016, 09:46 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 1
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Доброе время суток!

На форуме находил похожую тему, но у меня есть особенность. Суть: имеются две одинаковые книги. Задача: перенести несколько определенных диапазонов ячеек (каждый месяц будет увеличиваться на один столб) на такие же листы. Имена листов совпадают. Есть одно НО! надо задать имена переносимых листов, так как нужны не все.

Думаю файл можно не прикреплять, так как надеюсь, что скелет макроса смогу изменить.

Спасибо.
[moder]Действительно, зачем здесь файл?
 
Ответить
СообщениеДоброе время суток!

На форуме находил похожую тему, но у меня есть особенность. Суть: имеются две одинаковые книги. Задача: перенести несколько определенных диапазонов ячеек (каждый месяц будет увеличиваться на один столб) на такие же листы. Имена листов совпадают. Есть одно НО! надо задать имена переносимых листов, так как нужны не все.

Думаю файл можно не прикреплять, так как надеюсь, что скелет макроса смогу изменить.

Спасибо.
[moder]Действительно, зачем здесь файл?

Автор - nord23
Дата добавления - 02.02.2016 в 09:46
Wasilich Дата: Вторник, 02.02.2016, 10:15 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1195
Репутация: 316 ±
Замечаний: 0% ±

2003
Такой скелет подойдет?
[vba]
Код
Sub Макрос()
    Set wb = ThisWorkbook
    Set wb1 = Workbooks.Open(ThisWorkbook.Path & "база.xlsx")
    wb.Sheets(1).Columns("A:C").Clear
    wb1.Sheets(1).Columns("A:C").Copy wb.Sheets(1).Columns("A")
    wb.Sheets(1).Columns("B").Cut
    wb.Sheets(1).Columns("A").Insert Shift:=xlToRight
    wb1.Close False
End Sub
[/vba]
 
Ответить
СообщениеТакой скелет подойдет?
[vba]
Код
Sub Макрос()
    Set wb = ThisWorkbook
    Set wb1 = Workbooks.Open(ThisWorkbook.Path & "база.xlsx")
    wb.Sheets(1).Columns("A:C").Clear
    wb1.Sheets(1).Columns("A:C").Copy wb.Sheets(1).Columns("A")
    wb.Sheets(1).Columns("B").Cut
    wb.Sheets(1).Columns("A").Insert Shift:=xlToRight
    wb1.Close False
End Sub
[/vba]

Автор - Wasilich
Дата добавления - 02.02.2016 в 10:15
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных из книги в книгу (Макросы/Sub)
Страница 1 из 11
Поиск:

Яндекс цитирования
© 2010-2017 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!