Из бухгалтерии. Шахматка

[kzld]

Номеров счетов в бухучёте куча. Если сделать шахматку и предусмотреть всевозможные варианты корреспонденции счетов, то никакого Excel`a не хватит. Поэтому оставляем только нужные. Но жизнь штук непредсказуемая и иногда приходится составлять нестандартные проводки.
Так вот вопрос следующий. Вставляем новую строчку, допустим между 42 и 43 строкой. Таким образом бывшая 42 строка стала 43. Может ли Excel по этому событию вставить новый столбец между AQ и AR, тогда столбец AR станет столбцом AS.

[pivas]

Столбец фиксированный или зависит от номера вставленной строки? строки

[kzld]

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

Столбец фиксированный или зависит от номера вставленной строки? строки

Новый столбец зависит от вновь вставляемой строки

[SAS888]

Можно. Опишите задачу вставки более подробно.

[slan]

проверять соответствие количества строк и столбцов при событии change листа..

[kzld]

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

проверять соответствие количества строк и столбцов при событии change листа..

Оба на. Сам не ожидал. Был созданный мною лист Excel.
В столбце шли циферки. Теперь эти циферки надо было прописать в строку. На форуме нашёл формулу =ТРАНСП(C3:C53)
Попробовал свою задачу. Вуаля - столбец автоматически вставляется при вставке новой строки
См. пример

[slan]

нет не совсем так..

столбцов не вставляет, просто формула переписывается, включая новую строку(т.е было трансп(с1:с54) - стало трансп(с1:с55) ), но если посмотреть до конца вправо, то одного столбца(последнего) не хватает..

[kzld]

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

Оба на. Сам не ожидал. Был созданный мною лист Excel.
В столбце шли циферки. Теперь эти циферки надо было прописать в строку. На форуме нашёл формулу =ТРАНСП(C3:C53)
Попробовал свою задачу. Вуаля - столбец автоматически вставляется при вставке новой строки
См. пример

Рано обрадовался. В самом первом файле цифирок в столбце было несколько многовато, потому функция =ТРАНСП(C3:C53) понаделала мне много лишних столбцов, которые я не смог ни очистить, ни вырезать. Потому я их временно скрыл.
Так что задача остаётся

[pivas]

Так не подойдёт?

Sub StrStolb()
    i = InputBox("Введите номер новой строки")
    Rows(i).Insert Shift:=xlDown
    Columns(i+0).Insert Shift:=xlToRight
End Sub

[pivas]

Или по двойному клику в любой ячейке строки:

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
    Rows(ActiveCell.Rows.Row).Insert Shift:=xlDown
    Columns(ActiveCell.Rows.Row + 0).Insert Shift:=xlToRight
End Sub