Добавить/удалить строку нажатием на кнопку из сохранением формул

[gleod]

Люби Друзи Форумчане!!!
Неужели никто не знает как написать макрос для добавления новых строк и удаления старых строк из таблицы. И желательно чтобы перед добавлением строки Ексель спрашивал в какое место ее вставить, а при удалении существующей строки - Ексель также спрашивал: строку из каким ФИО работника надо удалить со списка нажатием на спецкнопки.
Пример файла, вверху.

[pivas]

Уважаемые, проверьте работоспособность файла, а то совесть мучает, если брак.

[gleod]

Сообщение от pivas

Уважаемые, проверьте работоспособность файла, а то совесть мучает, если брак.

Если Вы имеете ввиду тот примерчик, что висит на первой странице, то я уже сообщал ВамЮ что он не работает как надо.
С уважением Gleod!!!

[EducatedFool]

Сообщение от gleod

Если Вы имеете ввиду тот примерчик, что висит на первой странице, то я уже сообщал Вам, что он не работает как надо.
С уважением Gleod!!!

Что значит - не работает?
У всех работает, а у Вас - нет...
Что у Вас происходит при нажатии на кнопки "Вставить строку" и "Удалить строку"?
Пробовали ли Вы запускать эти макросы через Alt + F8?

PS: На форуме множество примеров по вставке\удалению строк с сохранением формул.
Я только делал 2 или 3 макроса (в том числе с добавлением пунктов в контекстное меню ячеек). Вам остаётся только поискать...

[gleod]

Ответ Gleod. Автора обсуждаемой темы.
Отвечаю: «Что значит - не работает?».
1) При нажатии на кнопки "Вставить строку" или "Удалить строку". После вызова на экран монитора соответственного диалогового окна Ексель продолжает что то искать. Например, когда ставиш курсор на само диалоговое окно, то он принимает обычную, в таких случаях форму. А если этот курсор ставлю в любую ячейку таблицы (при выпавшем окне), то курсор принимает форму режима поиска (впечатление такое, вроди бы Ексель продолжает поиск неизвестно чего).
2) При вставке новой строки в самый конец именованого диапазона (в даном случае строки под номером 31, то есть, строки которая будет располагаться над\перед строкой Всего, формулы этой строки выдают ошибку типа #ЗНАЧ!.
3) При копировании листа на следующий месяц, при вызове макросов с помощью кнопок, они перестают работать.И только при вызове этих макросров с помощью клавиш, либо через меню Сервис, начинают работать, но с теми же ошибками, что и выше.
4) Хотелось бы, чтобы запись № удаляемой либо № добавляемой строки, в окошко соответственного диалогового окна (вставка/удаление строки), можно было вносить посредством одного или двух щелчков мышки на ячейках с ФИО работников, выбраных пользователем.
5) А что касается «У всех работает, а у Вас - нет...», то я думаю, описаные мною выше неполадки, может обнаружить, лишь тот пользователь, который соприкоснется с даной програмкой на практике. А именно, когда ему придется добавлять новых сотрудников в самый конец существующего списка.
С уважением к Вам, Gleod!!!

[pivas]

Для работы без диалога замените

x = InputBox("Введите номер новой строки")

на

x = ActiveCell.Rows.Row

на встаку и

x = InputBox("Введите номер удаляемой строки")

на

x = ActiveCell.Rows.Row

на удаление. Теперь выбираете ячейку и нажимаете кнопку. Для работы макроса на каждом листе перенесите их в общий модуль книги. С 31 строкой буду разбираться.

[pivas]

Нашлась ошибка 31 строки. У Вас формулы составлены на основе диапазонов. При вставке строки между строк диапазона он расширяется автоматически, а при вставке в конец, строка в диапазон не добавляется. Вывод надо писать макрос на расширение диапазона или переписывать формулы по ячейкам.

[gleod]

И снова Gleod. Автор обсуждаемой темы.
Господин Pivas! А что, тоже самое, но из сохранением диалога, сделать нельзя? Потому что без такого диалога, можно случайно удалить нужную строку, либо добавить ненужную. И было бы великолепно, если удаляемое со списка ФИО, появлялось в окошке формы. А при вставке новой строки ФИО нового работника, можно было ввести через окошко этой формы. Но второе - так, на Ваше усмотрение!!!
И, что касается 31 строки. Подскажите, пожалуйста, где такой макрос можно найти (потому как я, ЧАЙНИК, в этом деле не силен), либо предложите свой вариант.
И в отношении переделки формул, например, если я пробую вручную расширить в существующих формулах именованые диапазоны, то вставка 31-ой строки происходит без предыдущей ошибки, но эта строка почему то не попадает в итоговую сумму Всего:.И в новую строку копируются не только формулы, но и форматы нижней строки. Что в конкретном случае (последней 31строки), является неприемлимым вариантом. Так как копирует жирные линии нижней (32-ой) строки в добавляемую строку.
Очевидно, что без специального макроса здесь не обойтись.
С безграничным уважением к Вам, Gleod!!!
Файл с изменениями додаю.

[pivas]

Если можно, чуть позже. Доберусь до дома.

[pivas]

Посмотрите пока вставку и удаление: