Удаление строк по условию

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

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

Мир 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

Ответить

krosav4ig

Дата: Четверг, 02.08.2018, 00:21 | Сообщение № 2

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

Ранг: Старожил

Сообщений: 2347

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

Замечаний: 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]

email:krosav4ig26@gmail.com WMR R207627035142 WMZ Z821145374535 ЯД 410012026478460

Ответить

AnonAnon

Дата: Четверг, 02.08.2018, 06:55 | Сообщение № 3

Группа: Пользователи

Ранг: Прохожий

Сообщений: 6

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

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

10

krosav4ig, благодарю!

Ответить

Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк по условию (Макросы/Sub)

Страница 1 из 1
1