Всем привет! Задача достаточно проста, но пока не могу разобраться, подскажите, пожалуйста. Есть лист с таблицей, которая заполняется по людям ежедневно (по каждому человеку 4строки и ряд столбцов с формулами). Нужно, что бы при нажатии кнопки добавлялся набор сток для ввода информации потновому человеку. Строки должны добавляться всегда в низ таблицы. Сделала через запись макроса. Добавила шаблонные строки (фиксированные), которые копируются и добавляются при нажатии кнопки в таблицу. Но у меня получилось, что диапазон, куда добавляются новые строки - зафиксирован. Подскажите, пожалуйста, как установить условие, что бы добавлялись в конце таблицы. Файл приложу чуть позже (нет доступа к компьютеру)
Всем привет! Задача достаточно проста, но пока не могу разобраться, подскажите, пожалуйста. Есть лист с таблицей, которая заполняется по людям ежедневно (по каждому человеку 4строки и ряд столбцов с формулами). Нужно, что бы при нажатии кнопки добавлялся набор сток для ввода информации потновому человеку. Строки должны добавляться всегда в низ таблицы. Сделала через запись макроса. Добавила шаблонные строки (фиксированные), которые копируются и добавляются при нажатии кнопки в таблицу. Но у меня получилось, что диапазон, куда добавляются новые строки - зафиксирован. Подскажите, пожалуйста, как установить условие, что бы добавлялись в конце таблицы. Файл приложу чуть позже (нет доступа к компьютеру)Valerys
Valerys, Добрый день! Зачем макрос? для этого достаточно так называемой умной таблицы Вставка-таблица. строки с формулами будут добавляться как Вы и хотите, вниз таблицы.
В файле примера начните заполнять 4ю строку, таблица сама скопирует форматы и формулы
Valerys, Добрый день! Зачем макрос? для этого достаточно так называемой умной таблицы Вставка-таблица. строки с формулами будут добавляться как Вы и хотите, вниз таблицы.
В файле примера начните заполнять 4ю строку, таблица сама скопирует форматы и формулыSancho
руководству нужна кнопка( И под таблицей подписи, которые должны перемещаться. С помощью записи я сделала, но пока не разобралась, как условие прописать поиска пустой ячейки. [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]
руководству нужна кнопка( И под таблицей подписи, которые должны перемещаться. С помощью записи я сделала, но пока не разобралась, как условие прописать поиска пустой ячейки. [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
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 , Александр просьба , при возможности ,формулы и коды выкладывать в теле поста: не всегда получается скачать файл, а посмотреть интересно
мой(несколько ущербный ) вариант [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 , Александр просьба , при возможности ,формулы и коды выкладывать в теле поста: не всегда получается скачать файл, а посмотреть интереснокитин