Цикл на удаление строк в умной таблице с условием - Страница 2

Старая форма входа

Страница 2 из 2 « 1 2
Модератор форума: китин, _Boroda_

Цикл на удаление строк в умной таблице с условием (Макросы/Sub)

Цикл на удаление строк в умной таблице с условием

Raven2009

Дата: Понедельник, 16.12.2019, 13:32 | Сообщение № 21

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата RAN, 16.12.2019 в 11:38, в сообщении № 20 ()

Измените строку удаления

Огромное спасибо! Заработало))

Ответить

Raven2009

Дата: Понедельник, 16.12.2019, 13:33 | Сообщение № 22

Группа: Проверенные

Ранг: Форумчанин

Сообщений: 151

Репутация: 0 ±

Замечаний: 0% ±

Excel 2013

Цитата китин, 16.12.2019 в 11:29, в сообщении № 19 ()

моя попыточка

Ваш код работает, если перед его запуском активировать лист Аномалии. Но кнопка для запуска на другом листе находится))

Ответить

bmv98rus

Дата: Понедельник, 16.12.2019, 13:58 | Сообщение № 23

Группа: Друзья

Ранг: Участник клуба

Сообщений: 4115

Репутация: 769 ±

Замечаний: 0% ±

Excel 2013/2016

Цитата Raven2009, 16.12.2019 в 09:37, в сообщении № 13 ()

Код на 1 раз.

[vba]

Код

Sub ClearAnomaly1()
    With Sheets("$Аномалии").ListObjects("tAnomaly").Range
        .AutoFilter Field:=6, Criteria1:="Недостача"
        With .Offset(1).Resize(.Rows.Count - 1)
            If .Height > 0 Then .EntireRow.Delete Shift:=xlUp
        End With
        .AutoFilter Field:=6
    End With
End Sub

[/vba]