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

Вход

Регистрация

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

 

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

Регистрация · Логин: · Пароль: · · Забыли пароль?
Страница 1 из 11
Модератор форума: _Boroda_, Pelena, Manyasha, SLAVICK 
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк в соответствии со списком с условием (Макросы/Sub)
Удаление строк в соответствии со списком с условием
CHEVRYACHOK Дата: Среда, 09.11.2016, 13:11 | Сообщение № 1
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Добрый день!
Пришел снова к Вам за помощью.
Есть список материала, позиции которого удаляются макросом, если он есть в списке исключений.
Но некоторый материал, который имеет порядковый номер, но тоже присутствует в списке исключать не нужно.
В этом и прошу помощи.
Как удалить весь материал, который находится в списке исключений, но не трогать те, которые имеют порядковый номер.
Заранее благодарен!
К сообщению приложен файл: Material.xlsm(34Kb)
 
Ответить
СообщениеДобрый день!
Пришел снова к Вам за помощью.
Есть список материала, позиции которого удаляются макросом, если он есть в списке исключений.
Но некоторый материал, который имеет порядковый номер, но тоже присутствует в списке исключать не нужно.
В этом и прошу помощи.
Как удалить весь материал, который находится в списке исключений, но не трогать те, которые имеют порядковый номер.
Заранее благодарен!

Автор - CHEVRYACHOK
Дата добавления - 09.11.2016 в 13:11
Karataev Дата: Среда, 09.11.2016, 13:43 | Сообщение № 2
Группа: Проверенные
Ранг: Ветеран
Сообщений: 641
Репутация: 226 ±
Замечаний: 0% ±

Excel
[vba]
Код
Sub Удаление_позиций()

    Dim shMat As Worksheet, shIskl As Worksheet, arrMat()
    Dim msg As Long, lr As Long, i As Long
    
    Application.ScreenUpdating = False
    
    Set shMat = Sheets("Материал")
    Set shIskl = Sheets("Исключить")
    
    lr = shMat.Cells(shMat.Rows.Count, "B").End(xlUp).Row
    arrMat() = shMat.Range("A1:B" & lr).Value
    
    For i = UBound(arrMat) To 1 Step -1
        If arrMat(i, 1) = Empty Then
            If WorksheetFunction.CountIf(shIskl.Columns("A"), arrMat(i, 2)) <> 0 Then
                shMat.Rows(i).Delete
                msg = msg + 1
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Удалено строк: " & msg, vbInformation
    
End Sub
[/vba]


 
Ответить
Сообщение[vba]
Код
Sub Удаление_позиций()

    Dim shMat As Worksheet, shIskl As Worksheet, arrMat()
    Dim msg As Long, lr As Long, i As Long
    
    Application.ScreenUpdating = False
    
    Set shMat = Sheets("Материал")
    Set shIskl = Sheets("Исключить")
    
    lr = shMat.Cells(shMat.Rows.Count, "B").End(xlUp).Row
    arrMat() = shMat.Range("A1:B" & lr).Value
    
    For i = UBound(arrMat) To 1 Step -1
        If arrMat(i, 1) = Empty Then
            If WorksheetFunction.CountIf(shIskl.Columns("A"), arrMat(i, 2)) <> 0 Then
                shMat.Rows(i).Delete
                msg = msg + 1
            End If
        End If
    Next
    
    Application.ScreenUpdating = True
    
    MsgBox "Удалено строк: " & msg, vbInformation
    
End Sub
[/vba]

Автор - Karataev
Дата добавления - 09.11.2016 в 13:43
CHEVRYACHOK Дата: Среда, 09.11.2016, 14:05 | Сообщение № 3
Группа: Пользователи
Ранг: Участник
Сообщений: 91
Репутация: 0 ±
Замечаний: 0% ±

Excel 2010
Karataev, круто! hands
Спасибо!
 
Ответить
СообщениеKarataev, круто! hands
Спасибо!

Автор - CHEVRYACHOK
Дата добавления - 09.11.2016 в 14:05
Мир MS Excel » Вопросы и решения » Вопросы по VBA » Удаление строк в соответствии со списком с условием (Макросы/Sub)
Страница 1 из 11
Поиск:

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