Как удалить выделенные строки в области со сдвигом вверх с условием.

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

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

16.02.2018 21:43:53

Здравствуйте, записала макрос макро рекордером, макрос удаляет выделенную область со сдвигом вверх. Рабочая область располагается (таблица) B:H хотелось бы уйти от ошибок, допустим, чтобы макрос не реагировал если я выделяю область больше чем положено или меньше чем положено.

Прикрепленные файлы

01.xlsm (17.94 КБ)

Изменено: Лина - 16.02.2018 21:45:18

ZVI

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

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

16.02.2018 22:12:28

Добрый вечер! Такой код будет вставлять/удалять только зацепленные выделением строки в диапазоне B:H и не трогать ячейки вне этого диапазона.

Код

Sub вставить_выделенные_строки()
  Dim rng As Range
  Set rng = Intersect(Range("B:H"), Selection)
  If Not rng Is Nothing Then
    Set rng = Intersect(rng.EntireRow, Range("B:H"))
    rng.Insert Shift:=xlDown, CopyOrigin:=xlFormatFromLeftOrAbove
  End If
End Sub

Sub удалить_выделенные_строки()
  Dim rng As Range
  Set rng = Intersect(Range("B:H"), Selection)
  If Not rng Is Nothing Then
    Set rng = Intersect(rng.EntireRow, Range("B:H"))
    rng.Delete Shift:=xlUp
  End If
End Sub

Прикрепленные файлы

01.xlsm (18.2 КБ)

Изменено: ZVI - 16.02.2018 22:15:51

Лина Пользователь Сообщений: 223 Регистрация: 03.11.2014	#3 16.02.2018 22:29:05 ZVI, Вне диапазона работает, строки за пределами не вставляются! а вот внутри диапазона если я выделяю например, В7:Е6 срабатывает, чего не хотелось бы(

Лина Пользователь Сообщений: 223 Регистрация: 03.11.2014	#4 16.02.2018 22:36:38 ZVI, пардон) не досмотрела всей прелести кода все работает как и хотелось! Спасибо за решение!

ZVI Пользователь Сообщений: 4609 Регистрация: 23.12.2012	#5 16.02.2018 22:52:21 Лина, да, отличается от того, что требовалось, но это сознательно сделано, вроде так более универсально. Удачи Вам!

Читают тему