Добрый день. Фильтровал столбец в таблице по слову, выделил то, что получилось, удалил строки таблицы и снял автофильтр. Без ошибок все получилось. Записал макрорекордером, получился такой код. [vba]
[/vba] - не допускается сдвиг ячеек в диапазоне с примененным фильтром Строк в фильтре иногда вооббще может не быть, иногда будет 1-10 Пока написал перебором, работает, но хотелось бы узнать, в чем подвох?
Добрый день. Фильтровал столбец в таблице по слову, выделил то, что получилось, удалил строки таблицы и снял автофильтр. Без ошибок все получилось. Записал макрорекордером, получился такой код. [vba]
[/vba] - не допускается сдвиг ячеек в диапазоне с примененным фильтром Строк в фильтре иногда вооббще может не быть, иногда будет 1-10 Пока написал перебором, работает, но хотелось бы узнать, в чем подвох?lFJl
Поскольку Вы файл не приложили, то переделывайте свои названия и номера столбцов [vba]
Код
Sub Макрос1() ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=3, Criteria1:="77" On Error Resume Next Range("Таблица1[Столбец3]").SpecialCells(xlCellTypeVisible).EntireRow.Delete Range("Таблица1[Столбец3]")(1).Select ActiveSheet.ShowAllData End Sub
[/vba] Там вообще-то и попроще все можно, только сейчас навскидку не помню, а искать сейчас времени нет
Поскольку Вы файл не приложили, то переделывайте свои названия и номера столбцов [vba]
Код
Sub Макрос1() ActiveSheet.ListObjects("Таблица1").Range.AutoFilter Field:=3, Criteria1:="77" On Error Resume Next Range("Таблица1[Столбец3]").SpecialCells(xlCellTypeVisible).EntireRow.Delete Range("Таблица1[Столбец3]")(1).Select ActiveSheet.ShowAllData End Sub
[/vba] Там вообще-то и попроще все можно, только сейчас навскидку не помню, а искать сейчас времени нет_Boroda_