Некорректная работа фильтра по условиям

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

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

Некорректная работа фильтра по условиям (Макросы/Sub)

gge29

Дата: Пятница, 11.10.2024, 17:55 | Сообщение № 1

Группа: Проверенные

Ранг: Обитатель

Сообщений: 302

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

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

Добрый вечер!Записал макрос фильтрации ячеек по условиям.При запуске с другой страницы очень жестко тупит.
Можно ли как-то подправить или это нормально для фильтра

К сообщению приложен файл: filtrtup.xlsm (23.4 Kb)

Ответить

i691198

Дата: Суббота, 12.10.2024, 10:55 | Сообщение № 2

Группа: Проверенные

Ранг: Обитатель

Сообщений: 337

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

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

Добрый день. Вы лучше словами опишите что должен делать этот макрос. В вашем макросе слишком много мусора, трудно понять что он выполняет.

Ответить

gge29

Дата: Суббота, 12.10.2024, 19:45 | Сообщение № 3

Группа: Проверенные

Ранг: Обитатель

Сообщений: 302

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

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

Цитата i691198, 12.10.2024 в 10:55, в сообщении № 2 (

)

ы лучше словами опишите что должен делать этот макрос

1 Сортировка Фамилии (B) от А до Я
2 Сортировка время(F) от мин до макс
3 что это я не понял "With ThisWorkbook.Worksheets(""ПЕРВЫЙ"").Range(""$A$2:$F$494"")
.AutoFilter Field:=2, Criteria1:=""<>"""
4 Сортировка заказа(G) от мин до макс
5 Сортировка дней(E) от мин до макс

как-то так вроде

К сообщению приложен файл: filtrtup1.xlsm (30.3 Kb)

Ответить

i691198

Дата: Воскресенье, 13.10.2024, 10:59 | Сообщение № 4

Группа: Проверенные

Ранг: Обитатель

Сообщений: 337

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

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

gge29, Пункты 1, 2, 4 и 5 практически взаимоисключающие, в макросе нужен выбор столбца для сортировки или несколько макросов. Пункт 3 - это фильтр скрывающий строки у которых в столбце B пусто (в Criteria1 ошибка, лишние кавычки). В столбце "Дата работа" некорректные данные, в строках 3-14 даты, а в остальных текст. Нужно привести к одному типу, иначе сортировка сработает неправильно. .

Ответить

Некорректная работа фильтра по условиям (Макросы/Sub)

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