Фильтрация ячеек по цвету

Фильтрация ячеек по цвету, Результат фильтрации макросом отличается от результата "вручную"

Пользователь

Сообщений: 32 Регистрация: 30.05.2019

31.05.2019 15:43:12

Мне требуется отфильтровать значения в столбце по цвету, то есть оставить в столбце только красные ячейки. Делаю фильтрацию через excel, как бы вручную, у меня остаются все значения помеченные красным (те, рядом с которыми есть текст и те, рядом с которыми пустые ячейки)(скриншот1), а после макроса остаются только те значения, рядом с которыми нет информации (скриншот2). Подскажите как сделать фильтр, чтобы оставались только те данные рядом с которыми есть информация. Буду очень благодарна
Вот мой фильтр

Код
Set q = sw.UsedRange.Columns: i = q.Count + 1 q(i).AutoFilter 8, Criteria1:=RGB(255, 0, 0), Operator:=xlFilterFontColor, VisibleDropDown:=False

Прикрепленные файлы

Снимок5.JPG (45.81 КБ)
Снимок6.JPG (16.09 КБ)

Mershik Пользователь Сообщений: 8277 Регистрация: 03.12.2015	#2 31.05.2019 16:04:01 Lisaaaa, а файл приложить не судьба? Изменено: Mershik - 31.05.2019 16:04:10 Не бойтесь совершенства. Вам его не достичь.

RAN Пользователь Сообщений: 7207 Регистрация: 21.12.2012	#3 31.05.2019 16:07:56 Какой файл! Угадайка - наше все!

Lisaaaa Пользователь Сообщений: 32 Регистрация: 30.05.2019	#4 31.05.2019 16:26:11 Mershik, прикладываю файл пример Прикрепленные файлы 4.xls (30 КБ)

Mershik

Пользователь

Сообщений: 8277 Регистрация: 03.12.2015

31.05.2019 16:39:57

Lisaaaa,

Скрытый текст
Sub Макрос2() ActiveSheet.Range("$A3:$L$10").AutoFilter Field:=8, Criteria1:=RGB(255, 199 _ , 206), Operator:=xlFilterCellColor ActiveSheet.Range("$A3:$L$10").AutoFilter Field:=7, Criteria1:="<>" End Sub

Прикрепленные файлы

4.xls (35.5 КБ)

Изменено: Mershik - 31.05.2019 16:41:26

Не бойтесь совершенства. Вам его не достичь.

Lisaaaa Пользователь Сообщений: 32 Регистрация: 30.05.2019	#6 31.05.2019 16:45:19 Mershik, Большое спасибо, очень помогли

Юрий М Модератор Сообщений: 61037 Регистрация: 14.09.2012 Контакты см. в профиле	#7 31.05.2019 19:49:31 Зачем красить, а потом фильтровать? Можно ведь сразу сформировать итоговую таблицу на втором листе (говорил об этом в "старой" теме).