Копирование шапки табл. с ПРЕДЫДУЩЕГО листа в АКТИВНУЮ яч.

Вход

Регистрация

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

= Мир MS Excel/Копирование шапки табл. с ПРЕДЫДУЩЕГО листа в АКТИВНУЮ яч. - Мир MS Excel

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование шапки табл. с ПРЕДЫДУЩЕГО листа в АКТИВНУЮ яч. (Макросы/Sub)

Копирование шапки табл. с ПРЕДЫДУЩЕГО листа в АКТИВНУЮ яч.

Ромашка

Дата: Среда, 21.01.2015, 19:26 | Сообщение № 1

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

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

Сообщений: 7

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

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

Excel 2007

Возможно ли с помощью VBA копировать шапку таблицы с ПРЕДЫДУЩЕГО листа и добавить ее в АКТИВНУЮ ячейку? Как указать в коде что копируем всегда именно с ПРЕДЫДУЩЕГО листа и добавляем в АКТИВНУЮ ячейку (не ту, что на предыдущем листе, а та что выделена!)? Спасибо.

К сообщению приложен файл: __5___.xls (55.0 Kb)

Ответить

RAN

Дата: Среда, 21.01.2015, 20:31 | Сообщение № 2

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

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

Сообщений: 5660

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

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

2010

[vba]

Код

Sub Мяу()
     Dim rr As Range
     Set rr = Sheets(ActiveSheet.Index - 1).UsedRange.Find("Отчет", , , xlWhole)
     rr.CurrentRegion.Resize(2).Copy
     Selection(1).PasteSpecial Paste:=xlPasteColumnWidths
     Selection(1).PasteSpecial Paste:=xlPasteAll
End Sub

[/vba]

Быть или не быть, вот в чем загвоздка!

Ответить

Ромашка

Дата: Среда, 21.01.2015, 22:44 | Сообщение № 3

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

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

Сообщений: 7

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

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

Excel 2007

Спасибо!

Ответить

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