Страницы: 1
RSS
Нужно вставить две пустые ячейки, заполенные сместить вправо
 
Добрый день!

Дано: таблица в Nом-столбце каждой строки расположена кнопка.

Нужен макрос для кнопки: При нажатии на кнопку, справа от нее, вставляются две пустые ячейки, а заполненые ячейки соответственно смещаются право.

И еще вопрос, есть ли смысл вместо кнопки использовать гиперссылку в ячейки для "облегчения" таблицы (таких строк ~2000шт)?
 
Может проще одну кнопку и чтоб работало опираясь на активную ячейку?
Кому решение нужно - тот пример и рисует.
 
Код
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then
    If Target.Column = 3 Then
        Target.Range("B1:C1").Insert Shift:=xlToRight, CopyOrigin:=xlFormatFromLeftOrAbove
    End If
    End If
End Sub
В модуль листа. Будет срабатывать не по кнопке, а по выделению ячейки.
 
Спасибо!
Страницы: 1
Наверх