Сохранить значения в предпоследней строке таблицы
Rurik56
Дата: Пятница, 30.08.2013, 16:15 |
Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
4
±
Замечаний:
0% ±
2007
Добрый день. На лист1 две кнопки. кн. "добавить" добавляет строку в табл. на лист2, кн."сохранить" должна сохранить значения в предпосл. строке. Попытался записать макрорекодером, но не получилось. (о макросах знаю, что они есть). Табл. будет добавляться и адрес предпоследней строки - меняться. Помогите решить эту проблему.
Добрый день. На лист1 две кнопки. кн. "добавить" добавляет строку в табл. на лист2, кн."сохранить" должна сохранить значения в предпосл. строке. Попытался записать макрорекодером, но не получилось. (о макросах знаю, что они есть). Табл. будет добавляться и адрес предпоследней строки - меняться. Помогите решить эту проблему. Rurik56
Ответить
Сообщение Добрый день. На лист1 две кнопки. кн. "добавить" добавляет строку в табл. на лист2, кн."сохранить" должна сохранить значения в предпосл. строке. Попытался записать макрорекодером, но не получилось. (о макросах знаю, что они есть). Табл. будет добавляться и адрес предпоследней строки - меняться. Помогите решить эту проблему. Автор - Rurik56 Дата добавления - 30.08.2013 в 16:15
SergeyKorotun
Дата: Пятница, 30.08.2013, 17:33 |
Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация:
15
±
Замечаний:
0% ±
Excel 2007
Вам надо последнюю строку на Лист2 скопировать на следующую строку?
Вам надо последнюю строку на Лист2 скопировать на следующую строку? SergeyKorotun
К сообщению приложен файл:
xxx.xlsm
(22.4 Kb)
Ответить
Сообщение Вам надо последнюю строку на Лист2 скопировать на следующую строку? Автор - SergeyKorotun Дата добавления - 30.08.2013 в 17:33
Rurik56
Дата: Пятница, 30.08.2013, 17:44 |
Сообщение № 3
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
4
±
Замечаний:
0% ±
2007
SergeyKorotun, нет,мне нужно сохранить значения в предпоследней строке. Т.е формульная связь с лист1 должна оставаться только в последней строке таблицы
SergeyKorotun, нет,мне нужно сохранить значения в предпоследней строке. Т.е формульная связь с лист1 должна оставаться только в последней строке таблицы Rurik56
Ответить
Сообщение SergeyKorotun, нет,мне нужно сохранить значения в предпоследней строке. Т.е формульная связь с лист1 должна оставаться только в последней строке таблицы Автор - Rurik56 Дата добавления - 30.08.2013 в 17:44
SergeyKorotun
Дата: Пятница, 30.08.2013, 18:21 |
Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация:
15
±
Замечаний:
0% ±
Excel 2007
Так?
Ответить
Сообщение Так? Автор - SergeyKorotun Дата добавления - 30.08.2013 в 18:21
Rurik56
Дата: Пятница, 30.08.2013, 18:34 |
Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация:
4
±
Замечаний:
0% ±
2007
SergeyKorotun, Спасибо, вроде оно! Теперь буду пробовать прикрутить в рабочую книгу.
SergeyKorotun, Спасибо, вроде оно! Теперь буду пробовать прикрутить в рабочую книгу. Rurik56
Ответить
Сообщение SergeyKorotun, Спасибо, вроде оно! Теперь буду пробовать прикрутить в рабочую книгу. Автор - Rurik56 Дата добавления - 30.08.2013 в 18:34
_Boroda_
Дата: Пятница, 30.08.2013, 22:09 |
Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16738
Репутация:
6534
±
Замечаний:
±
2003; 2007; 2010; 2013 RUS
Предлагаю все повесить на одну кнопку с таким макросом [vba]Код
Sub V_Ar() r_ = Лист2.Range("A" & Rows.Count).End(xlUp).Row Лист2.ListObjects(1).Resize Range("$A$1:$I$" & r_ + 1) Лист2.Range("$A$1:$I$" & r_) = Лист2.Range("$A$1:$I$" & r_).Value MsgBox "Строка добавлена в архив" End Sub
[/vba]
Предлагаю все повесить на одну кнопку с таким макросом [vba]Код
Sub V_Ar() r_ = Лист2.Range("A" & Rows.Count).End(xlUp).Row Лист2.ListObjects(1).Resize Range("$A$1:$I$" & r_ + 1) Лист2.Range("$A$1:$I$" & r_) = Лист2.Range("$A$1:$I$" & r_).Value MsgBox "Строка добавлена в архив" End Sub
[/vba] _Boroda_
Скажи мне, кудесник, любимец ба’гов... Платная помощь: Boroda_Excel@mail.ru Яндекс-деньги: 41001632713405 | Webmoney: R289877159277; Z102172301748; E177867141995
Ответить
Сообщение Предлагаю все повесить на одну кнопку с таким макросом [vba]Код
Sub V_Ar() r_ = Лист2.Range("A" & Rows.Count).End(xlUp).Row Лист2.ListObjects(1).Resize Range("$A$1:$I$" & r_ + 1) Лист2.Range("$A$1:$I$" & r_) = Лист2.Range("$A$1:$I$" & r_).Value MsgBox "Строка добавлена в архив" End Sub
[/vba] Автор - _Boroda_ Дата добавления - 30.08.2013 в 22:09