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

[kzld]

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

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

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

Куда вставить этот код
Лист1(shahmatka) или
ЭтаКнига

[kzld]

Сообщение от 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

Run-time error 1004
Нельзя изменять часть массива

[pivas]

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

Куда вставить этот код
Лист1(shahmatka) или
ЭтаКнига

Куда удобнее, по Вашему усмотрению.

[pivas]

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

Run-time error 1004
Нельзя изменять часть массива

Без Вашего файла врядли смогу прокомментировать

[kzld]

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

Run-time error 1004
Нельзя изменять часть массива

Попробовал на другом файле, не массиве.
Работает, но немножко не так как хотелось бы.
Вновь вставляемая строка сдвигает имеющиеся вниз
А вновь создаваемый столбец становится перед нужными.
Пример во вложении

[pivas]

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

Работает, но немножко не так как хотелось бы.
Вновь вставляемая строка сдвигает имеющиеся вниз
А вновь создаваемый столбец становится перед нужными.

А как хотелось бы?

[kzld]

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

А как хотелось бы?

В приложенном файле три листа
до_макроса
после_макроса
надо

[pivas]

Добавить нумерацию строк и столбцов или они должны сдвигаться по-другому?

[kzld]

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

Добавить нумерацию строк и столбцов или они должны сдвигаться по-другому?

Нумерация строк будет осуществляться вручную

[pivas]

Ошибку массива выдаёт "=ТРАНСП", если убрать - работает. Для соответствия номера столбца номеру строки измените в коде "+0" на"+1".