Перенос рабочей таблицы на другой лист

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

Перенос рабочей таблицы на другой лист (Формулы/Formulas)

Deluxe

Дата: Пятница, 18.12.2015, 15:47 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2007

Добрый день!
Есть необходимоть переносить рабочую таблицу на другой лист (из "Смета" в "Акт").
Чаще всего приходится редактировать смету, добавляя строчки.
Вопрос: возможно ли перенести рабочую таблицу на другой лист с полным копированием содержимого.
Т.е. изменяя смету срузу вносятся изменения в акте.
Шапка, подписи должны оставаться.
Пример прикрепляю.

К сообщению приложен файл: 3622708.xlsx (21.0 Kb)

Ответить

SLAVICK

Дата: Пятница, 18.12.2015, 16:13 | Сообщение № 2

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

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

Сообщений: 2290

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

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

2019

Почитайте здесь (последние сообщения)
Вроде то,что Вам нужно.

Иногда все проще чем кажется с первого взгляда.

Сообщение отредактировал SLAVICK - Пятница, 18.12.2015, 16:14

Ответить

Deluxe

Дата: Понедельник, 04.01.2016, 11:35 | Сообщение № 3

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

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

Сообщений: 3

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

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

Excel 2007

Да. Принцип тот, что нужно.
Реализовать его не хватает опыта работы с макросами.
Запутался в диапазонах копируемых и вставяемых ячеек.
Если будет время у кого-нибудь, сможет подсказать?

Ответить

ShAM

Дата: Вторник, 05.01.2016, 02:33 | Сообщение № 4

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

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

Сообщений: 1347

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

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

Excel 2010

Слегка изменил структуру листа "Акт". В ячейке В7 вместо А1, В1, С1... вставите свои ссылки (в файле все равно они битые).
Тогда можно так (просто нажать на кнопку):
[vba]

Код

Sub aa()
Dim lr1 As Integer, lr2 As Integer
    With Worksheets("Акт")
        lr1 = .Cells(.Rows.Count, 2).End(xlUp).Row - 4
        lr2 = Cells(Rows.Count, 2).End(xlUp).Row - 4
        .Rows("11:" & lr1).Delete Shift:=xlUp
        Rows("9:" & lr2).Copy
        .Cells(11, 1).Insert Shift:=xlDown
    End With
Application.CutCopyMode = False
End Sub

[/vba]

К сообщению приложен файл: Deluxe.xlsm (25.2 Kb)

Ответить

Deluxe

Дата: Понедельник, 11.01.2016, 17:36 | Сообщение № 5

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

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

Сообщений: 3

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

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

Excel 2007

Спасибо огромное hands

!
Буду тестировать.

Ответить

Перенос рабочей таблицы на другой лист (Формулы/Formulas)

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