Страницы: 1
RSS
Добавление строк через макрос по нажатию кнопки с сохранением параметров и настроек строки выше в умной таблице
 
Добрый день!
Коллеги, помогите разобраться с вопросом, сломал всю голову.
Есть файл в котором несколько умных таблиц, в конце каждой таблицы есть кнопка добавления строчки.
В первой таблице (таблица1) по нажатию кнопки всё нормально добавляется и добавленная строка имеет теже формулы, что и строка выше.

Со второй таблицей (таблица5) проблема.
При нажатии на кнопку добавляется строчка, но она не имеет настроек (формулы и ниспадающий список) строчки выше, совсем другие настройки.
Макросы вроде одинаковые прописаны.
Подскажите, что не так?
Или можно как-то указать данные с какой строчки копировать при нажатии кнопки и вставке строчки.
 
Сергей Богданов,
удалите строчку с "Закуски" и все будет ок
 
Спасибо большое, помогло.
Доделал я таблицу и под конец столкнулся с проблемой.
Итого строка "ИТОГОВАЯ СТОИМОСТЬ ПРОВЕДЕНИЯ МЕРОПРИЯТИЯ" при добавлении строки выше кнопкой некорректно отображается
Почему-то все переносится неправильно. Сложно описать, файл прилагаю.
Подскажите, что сделать надо
 
Сергей Богданов,
как вариант, можно итоговую строку убрать из сводной и просто добавить ниже.
 
Добрый день!
Подскажите, это как убрать итоговую строку и добавить ниже?
не силён в этом(
 
Сергей Богданов,
сделал пример на доп услугах
 
спасибо, я вижу что выведи строгу с итогами отдельно, но при добавлении новых строк всё смещается вниз только под таблицей, а по бокам остается на месте.
 
При добавлении строки добавьте
Код
.EntireRow
 
я прошу прощения, но не понимаю, куда добавить (в какое место) .EntireRow?
 
А выложите, пжста, код сюда.
 
Вот такой у меня макрос

Sub Макрос6()
   With Sheets("ДР").ListObjects("Таблица6")
       .ListRows.Add
'        ActiveSheet.Shapes("Кнопка 98").Top = .TotalsRowRange.Offset(1).Top
   End With
End Sub
 
Код
Sub Макрос6()
   With Sheets("ДР").ListObjects("Таблица6")
       .Range.Rows(.Range.Rows.Count + 1).EntireRow.Insert
       .Resize .Range.Resize(.Range.Rows.Count + 1)
       '.ListRows.Add
   End With
End Sub
 
Спасибо.
Если строку итогов убрать, то всё работает
 
Со строкой итогов.
Код
Sub Макрос6()
   With Sheets("ДР").ListObjects("Таблица6")
       .Range.Rows(.Range.Rows.Count).EntireRow.Insert
   End With
End Sub
 
Если что — строку итогов можно отключить (проверить, включена ли она), сделать дела и включить обратно
Изменено: Jack Famous - 03.08.2022 17:06:00
Во всех делах очень полезно периодически ставить знак вопроса к тому, что вы с давних пор считали не требующим доказательств (Бертран Рассел) ►Благодарности сюда◄
Страницы: 1
Читают тему (гостей: 1)
Наверх