Форма или надстройка добавления строки при условии

[Michael Holbrook]

Всем привет!
Встретился с проблемой добавления строки. Задача состоит в том, чтобы я мог добавлять новую пустую строку под необходимым мне под-меню в раскрывающемся дереве.

К примеру, если у меня есть 1. Модульные приборы и я хочу добавить 2. Оборудование для защиты - в этом особой проблемы нет. А если я хочу добавить новую позицию глубже в дереве - добавить новую строку в подпункте 1.1.1. Автоматические выключатели? Т.е чтобы у меня из тех 4х позиций, которые находятся в подпункте 1.1.1. Автоматические выключатели добавилась новая пустая строка?!

Конечно это можно делать просто добавляя вручную строки, но задачу поставили - сделать это автоматизировано.

Спасибо!

[Michael Holbrook]

Всем еще раз привет! Как понимаю - вариантов нет?

[Wasilic]

Вставка строки над курсором

Код Выделить Развернуть

Sub InsRow()
    Rows(Selection.Row).Insert Shift:=xlDown
End Sub


[Michael Holbrook]

Вставка строки над курсором

Код Выделить Развернуть

Sub InsRow()
    Rows(Selection.Row).Insert Shift:=xlDown
End Sub


Спасибо! Попробую завтра и отпишусь!

[Michael Holbrook]

Wasilic, спасибо! То, что надо!