Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

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

 

= Мир MS Excel/Сохранить значения в предпоследней строке таблицы - Мир MS Excel

Старая форма входа
  • Страница 1 из 1
  • 1
Модератор форума: китин, _Boroda_  
Сохранить значения в предпоследней строке таблицы
Rurik56 Дата: Пятница, 30.08.2013, 16:15 | Сообщение № 1
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 4 ±
Замечаний: 0% ±

2007
Добрый день.
На лист1 две кнопки. кн. "добавить" добавляет строку в табл. на лист2, кн."сохранить" должна сохранить значения в предпосл. строке. Попытался записать макрорекодером, но не получилось. (о макросах знаю, что они есть). Табл. будет добавляться и адрес предпоследней строки - меняться. Помогите решить эту проблему.
К сообщению приложен файл: 8502496.xlsm (19.2 Kb)
 
Ответить
СообщениеДобрый день.
На лист1 две кнопки. кн. "добавить" добавляет строку в табл. на лист2, кн."сохранить" должна сохранить значения в предпосл. строке. Попытался записать макрорекодером, но не получилось. (о макросах знаю, что они есть). Табл. будет добавляться и адрес предпоследней строки - меняться. Помогите решить эту проблему.

Автор - Rurik56
Дата добавления - 30.08.2013 в 16:15
SergeyKorotun Дата: Пятница, 30.08.2013, 17:33 | Сообщение № 2
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 15 ±
Замечаний: 0% ±

Excel 2007
Вам надо последнюю строку на Лист2 скопировать на следующую строку?
К сообщению приложен файл: 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
Дата добавления - 30.08.2013 в 17:44
SergeyKorotun Дата: Пятница, 30.08.2013, 18:21 | Сообщение № 4
Группа: Проверенные
Ранг: Обитатель
Сообщений: 301
Репутация: 15 ±
Замечаний: 0% ±

Excel 2007
Так?
К сообщению приложен файл: 8821712.xlsm (24.1 Kb)
 
Ответить
СообщениеТак?

Автор - SergeyKorotun
Дата добавления - 30.08.2013 в 18:21
Rurik56 Дата: Пятница, 30.08.2013, 18:34 | Сообщение № 5
Группа: Пользователи
Ранг: Новичок
Сообщений: 32
Репутация: 4 ±
Замечаний: 0% ±

2007
SergeyKorotun, Спасибо, вроде оно! hands Теперь буду пробовать прикрутить в рабочую книгу.
 
Ответить
СообщениеSergeyKorotun, Спасибо, вроде оно! hands Теперь буду пробовать прикрутить в рабочую книгу.

Автор - Rurik56
Дата добавления - 30.08.2013 в 18:34
_Boroda_ Дата: Пятница, 30.08.2013, 22:09 | Сообщение № 6
Группа: Админы
Ранг: Местный житель
Сообщений: 16714
Репутация: 6503 ±
Замечаний: ±

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]
К сообщению приложен файл: 8502496_1.xlsm (20.6 Kb)


Скажи мне, кудесник, любимец ба’гов...
Платная помощь:
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
  • Страница 1 из 1
  • 1
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2024 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!