Копирование шаблонных строк в конце таблицы

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

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

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Копирование шаблонных строк в конце таблицы (Макросы/Sub)

Valerys

Дата: Понедельник, 24.04.2017, 23:35 | Сообщение № 1

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

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

Сообщений: 3

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

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

Excel 2013

Всем привет! Задача достаточно проста, но пока не могу разобраться, подскажите, пожалуйста. Есть лист с таблицей, которая заполняется по людям ежедневно (по каждому человеку 4строки и ряд столбцов с формулами). Нужно, что бы при нажатии кнопки добавлялся набор сток для ввода информации потновому человеку. Строки должны добавляться всегда в низ таблицы. Сделала через запись макроса. Добавила шаблонные строки (фиксированные), которые копируются и добавляются при нажатии кнопки в таблицу. Но у меня получилось, что диапазон, куда добавляются новые строки - зафиксирован. Подскажите, пожалуйста, как установить условие, что бы добавлялись в конце таблицы. Файл приложу чуть позже (нет доступа к компьютеру)

Ответить

Sancho

Дата: Вторник, 25.04.2017, 07:28 | Сообщение № 2

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

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

Valerys, Добрый день! Зачем макрос? для этого достаточно так называемой умной таблицы Вставка-таблица. строки с формулами будут добавляться как Вы и хотите, вниз таблицы.

В файле примера начните заполнять 4ю строку, таблица сама скопирует форматы и формулы

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

Сообщение отредактировал Sancho - Вторник, 25.04.2017, 07:35

Ответить

Valerys

Дата: Вторник, 25.04.2017, 08:27 | Сообщение № 3

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

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

Сообщений: 3

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

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

Excel 2013

руководству нужна кнопка(
И под таблицей подписи, которые должны перемещаться.
С помощью записи я сделала, но пока не разобралась, как условие прописать поиска пустой ячейки.
[vba]

Код

Sub Макрос5()
'
' Макрос5 Макрос
'
' Сочетание клавиш: Ctrl+a
'
Rows("1:4").Select
Range("F1").Activate
Selection.Copy
ActiveWindow.SmallScroll Down:=174
Rows("173:173").Select
Selection.Insert Shift:=xlDown
End Sub

[/vba]

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

Сообщение отредактировал Valerys - Вторник, 25.04.2017, 08:49

Ответить

китин

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

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

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

Как оформлять сообщения?
из правил форума:

Цитата

Обязательно используйте соответствующие теги при оформлении сообщений!
Нарушители этого пункта будут забанены без предупреждения!

Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852

Ответить

Sancho

Дата: Вторник, 25.04.2017, 09:41 | Сообщение № 5

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

Ранг: Обитатель

Сообщений: 279

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

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

2007, 2010, 2013

Valerys, вот. важно что бы подпись была на этом же количестве строк ниже, что сейчас, иначе меняйте lLastRow-7 в переменной на другое количество строк

[vba]

Код

Sub Макрос1()

Dim iLastRow As Long
    Rows("1:4").Copy

    lLastRow = Cells(Rows.Count, 1).End(xlUp).Row
    Rows(lLastRow - 7).Insert Shift:=xlDown
    Application.CutCopyMode = False

End Sub

[/vba]

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

Сообщение отредактировал Sancho - Вторник, 25.04.2017, 10:26

Ответить

китин

Дата: Вторник, 25.04.2017, 09:44 | Сообщение № 6

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

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

Сообщений: 7014

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

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

Excel 2007;2010;2016

мой(несколько ущербный ) вариант
[vba]

Код

Sub Макрос5()
Dim i&
i = Cells(Rows.Count, 1).End(xlUp).Row

   Sheets("Таймшит_образец").Activate
   Range("A" & i - 2 & " : " & "I" & i + 1).Insert
   Range("A1:I4").Copy
   Range("A" & i - 2).PasteSpecial
End Sub

[/vba]
[p.s.]Sancho , Александр просьба , при возможности ,формулы и коды выкладывать в теле поста: не всегда получается скачать файл, а посмотреть интересно