Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

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

Старая форма входа
  • Страница 2 из 2
  • «
  • 1
  • 2
Модератор форума: китин, _Boroda_  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл на удаление строк в умной таблице с условием (Макросы/Sub)
Цикл на удаление строк в умной таблице с условием
Raven2009 Дата: Понедельник, 16.12.2019, 13:32 | Сообщение № 21
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

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


Огромное спасибо! Заработало))
 
Ответить
Сообщение
Измените строку удаления


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

Автор - Raven2009
Дата добавления - 16.12.2019 в 13:32
Raven2009 Дата: Понедельник, 16.12.2019, 13:33 | Сообщение № 22
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

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


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


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

Автор - Raven2009
Дата добавления - 16.12.2019 в 13:33
bmv98rus Дата: Понедельник, 16.12.2019, 13:58 | Сообщение № 23
Группа: Друзья
Ранг: Участник клуба
Сообщений: 3944
Репутация: 724 ±
Замечаний: 0% ±

Excel 2013/2016
Код на 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]


Замечательный Временно просто медведь , процентов на 20.
 
Ответить
Сообщение
Код на 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]

Автор - bmv98rus
Дата добавления - 16.12.2019 в 13:58
Raven2009 Дата: Понедельник, 16.12.2019, 14:39 | Сообщение № 24
Группа: Проверенные
Ранг: Форумчанин
Сообщений: 151
Репутация: 0 ±
Замечаний: 0% ±

Excel 2013
Спасибо! С автофильтром тоже интересно)) Оба варианта сохраню)
 
Ответить
СообщениеСпасибо! С автофильтром тоже интересно)) Оба варианта сохраню)

Автор - Raven2009
Дата добавления - 16.12.2019 в 14:39
китин Дата: Понедельник, 16.12.2019, 14:44 | Сообщение № 25
Группа: Модераторы
Ранг: Экселист
Сообщений: 6895
Репутация: 1056 ±
Замечаний: 0% ±

Excel 2007;2010;2016
если перед его запуском активировать лист Аномалии

да лаадно...
К сообщению приложен файл: 6551579.xlsm(26.3 Kb)


Не судите очень строго:я пытаюсь научиться
ЯД 41001877306852
 
Ответить
Сообщение
если перед его запуском активировать лист Аномалии

да лаадно...

Автор - китин
Дата добавления - 16.12.2019 в 14:44
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Цикл на удаление строк в умной таблице с условием (Макросы/Sub)
  • Страница 2 из 2
  • «
  • 1
  • 2
Поиск:

Яндекс.Метрика Яндекс цитирования
© 2010-2022 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!