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

Вход

Регистрация

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

 

= Мир MS Excel/Удаление строк по условию - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по условию (Макросы/Sub)
Удаление строк по условию
AnonAnon Дата: Среда, 01.08.2018, 12:25 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

10
всем привет!
Нужна небольшая помощь:
Есть файл, нужно удалить статью 214050000.
С этой статьёй есть 5 строк, в общем нужно оставить одну строку с ПБФ 91301 и в этой строке заменить ZKF с 3 на 10.
Прилагаю файл, там есть макрос, но он зашивается на определённые строки, нужно сделать автоматизированно, чтобы искал строки с нужным значением, изменял ZKF, а остальные удалить до тех пор пока статья равна 214050000.
Заранее спасибо!
К сообщению приложен файл: 5729826.xls(97.5 Kb)


Сообщение отредактировал AnonAnon - Среда, 01.08.2018, 12:30
 
Ответить
Сообщениевсем привет!
Нужна небольшая помощь:
Есть файл, нужно удалить статью 214050000.
С этой статьёй есть 5 строк, в общем нужно оставить одну строку с ПБФ 91301 и в этой строке заменить ZKF с 3 на 10.
Прилагаю файл, там есть макрос, но он зашивается на определённые строки, нужно сделать автоматизированно, чтобы искал строки с нужным значением, изменял ZKF, а остальные удалить до тех пор пока статья равна 214050000.
Заранее спасибо!

Автор - AnonAnon
Дата добавления - 01.08.2018 в 12:25
krosav4ig Дата: Четверг, 02.08.2018, 00:21 | Сообщение № 2
Группа: Друзья
Ранг: Старожил
Сообщений: 1735
Репутация: 728 ±
Замечаний: 0% ±

Excel 2007,2010,2013
Здравствуйте
как-то так
[vba]
Код
Sub Кнопка2_Щелчок()
    Dim c As Range
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With ActiveSheet.UsedRange
        .AutoFilter Field:=1, Criteria1:="214050000"
        .AutoFilter Field:=3, Criteria1:="3"
        .AutoFilter Field:=4, Criteria1:="91301"
        With .SpecialCells(12).Areas
            Set c = .Item(.Count).Rows(IIf(.Count > 1, 1, 2))
            c.Cells(3) = 10
        End With
        .AutoFilter Field:=3
        .AutoFilter Field:=4
        c.Rows.Hidden = True
        .Offset(1).SpecialCells(12).Rows.Delete xlUp
        .AutoFilter
    End With
    .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]


(_)Õvõ(_)
 
Ответить
СообщениеЗдравствуйте
как-то так
[vba]
Код
Sub Кнопка2_Щелчок()
    Dim c As Range
    With Application: .ScreenUpdating = 0: .EnableEvents = 0
    With ActiveSheet.UsedRange
        .AutoFilter Field:=1, Criteria1:="214050000"
        .AutoFilter Field:=3, Criteria1:="3"
        .AutoFilter Field:=4, Criteria1:="91301"
        With .SpecialCells(12).Areas
            Set c = .Item(.Count).Rows(IIf(.Count > 1, 1, 2))
            c.Cells(3) = 10
        End With
        .AutoFilter Field:=3
        .AutoFilter Field:=4
        c.Rows.Hidden = True
        .Offset(1).SpecialCells(12).Rows.Delete xlUp
        .AutoFilter
    End With
    .ScreenUpdating = 1: .EnableEvents = 1: End With
End Sub
[/vba]

Автор - krosav4ig
Дата добавления - 02.08.2018 в 00:21
AnonAnon Дата: Четверг, 02.08.2018, 06:55 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

10
krosav4ig, благодарю!
 
Ответить
Сообщениеkrosav4ig, благодарю!

Автор - AnonAnon
Дата добавления - 02.08.2018 в 06:55
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по условию (Макросы/Sub)
  • Страница 1 из 1
  • 1
Поиск:

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