Применение фильтров к рабочему листу - PullRequest
0 голосов
/ 27 февраля 2020

Я выполняю набор фильтров на листе 2 моей рабочей книги, проблема в том, что я удаляю все данные, но когда я удаляю фильтр "= 0", он не удаляет все данные листа, но я думаю, что фильтр в порядке.

Dim wsToFilter As Worksheet
Dim wbToFilter As Workbook
Set wbToFilter = Workbooks("2. Detalle_Transacciones_pendientes_rechazadas_MDM_27Ene20.xlsx")
Set wsToFilter = wbToFilter.Worksheets("Rechazos_SSI_2019")

With wsToFilter
   .Range("A1").AutoFilter 1, "<>BATCH"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False

   .Range("A1:K1").AutoFilter 2, "<>SSI"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False

   .Range("A1:K1").AutoFilter 6, "<>CARGA DE ARCHIVO A MDM, CONTRATOS"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False

   .Range("A1:K1").AutoFilter 11, "=0"
   .AutoFilter.Range.Offset(1).EntireRow.Delete
   .AutoFilterMode = False
End With

Что я делаю, так это то, что я копирую все данные из другой рабочей книги, вставляю их и затем применяю фильтр, я не знаю, удаляет ли он все из-за количество данных или это мой код неэффективен, потому что, если я уменьшу нагрузку на работу, макрос работает отлично.

Добро пожаловать на сайт PullRequest, где вы можете задавать вопросы и получать ответы от других членов сообщества.
...