Перенос данных из книги в книгу

Вход

Регистрация

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

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

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных из книги в книгу (Макросы/Sub)

Перенос данных из книги в книгу

nord23

Дата: Вторник, 02.02.2016, 09:46 | Сообщение № 1

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

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

Сообщений: 1

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

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

Excel 2010

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

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

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

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

Ответить

Wasilich

Дата: Вторник, 02.02.2016, 10:15 | Сообщение № 2

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

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

Сообщений: 1232

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

Замечаний: 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]

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Перенос данных из книги в книгу (Макросы/Sub)

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