Автоматический свдиг строк вниз

[Михаил С.]

Вот все что мне нужно, это автоматически добавлять пустую строку перед "Итого"(сдвигать строку "Итого"), например когда происходит очередное выполнение формулы в ячейке столбца G.

Если автоматически то можно макросом.
Пробуйте - двойной клик по любой ячейке таблицы

[Михаил С.]

Файл забыл

[Volodshan]

Klendathu! Вам было предложено использовать для оформления данных список/таблицу - в них строка добавляется автоматом, когда переходите по ентер из последней заполненной строки в новую, к тому же формулы продлеваются автоматом - чем не выход из вашей "промблемы"?..

[Klendathu]

Сообщение от Михаил С.

Файл забыл

Спасибо Вам и всем кто помогал! А как Вы это сделали?)

[Михаил С.]

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

А как Вы это сделали?)

Это сделано макросом, посмотреть его можно, нажав Alt+F11.
Только там небольшая ошибка, надо добавить одну строчку
On Error Resume Next

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
On Error Resume Next
Selection.ListObject.ListRows.Add AlwaysInsert:=True
End Sub

Иначе при двойном клике вне таблице будет выскакивать ошибка.

[Klendathu]

Не понял, а куда это писать? Альт+Ф1 нажимаю - вылазит конструктор

[Hugo121]

Попробуйте нажать Alt+F11

[Klendathu]

Ладно, достал честно говоря иксель этот - кривой как и все продукты от microsoft, лучше на QT или Delphi програмку сделаю(

[kuklp]

М-да... А нам нравится. Я, если в QT или Delphi баран, не стану называть их огульно кривыми:-) И про плохого танцора стараюсь не забывать.