Удаление строк под фигурой

Пользователь

Сообщений: 10 Регистрация: 26.06.2019

15.07.2019 11:19:41

Добрый день, прошу помощи

На листе есть фигура (кнопка) на которую завязан макрос удаления строки, на которой эта фигура расположена.
Как увеличить количество строк, которые подлежат удалению? Тот код, который работает, удаляет только одну строку, а мне нужно удалить еще и нижеследующие 15 относительно фигуры

Код
Sub delete_rows() With ActiveSheet.Shapes(Application.Caller) .TopLeftCell.EntireRow.Delete .Delete End With End Sub

Изменено: mapuo - 15.07.2019 14:47:08

mapuo

Пользователь

Сообщений: 10 Регистрация: 26.06.2019

15.07.2019 13:11:12

решилось само.

Код
Sub delete_rows() With ActiveSheet.Shapes(Application.Caller) .TopLeftCell.Select Rows.Range(ActiveCell.Row & ":" & ActiveCell.Row + 15).Select Selection.Delete Shift:=xlUp End With End Sub