удалить все кроме выбранного цвета

[Cayman]

Добрый день,
появилась необходимость в таком макросе:

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

желательно - только в выделенном диапазоне.
реально и такое сделать?

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

спасибо

[Hugo121]

Условное форматирование и цвет заливки - это разные вещи.
Вообще сделать конечно можно - но с УФ сложнее будет.
Но Вам сперва нужно определится - УФ или заливка, или то и другое?
P.S. Это не значит, что я взялся делать - времени мало...
Вернее так - с УФ вообще делать не берусь. Посмотрел только что код Дмитрия ActiveCondition() - не, не буду...

[motorway]

Вам нужен именно Color Picker (палитра), или можно чтобы цвет выбирался путём выделения нужной ячейки?

[Cayman]

Добрый день,
интересует именно условное форматирование, пусть даже цвет будет фиксированным, если выбор сделать сложно.

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

[Hugo121]

Выбор цвета - можно запускать код при уже выделенной области, тогда сперва код запоминает выделение, затем запрашивает инпутбоксом типа 8 "тыркнуть" ячейку с нужным цветом.
Ну или два инпутбокса - сперва область, затем цвет (или наоборот).
Но с "по условиям закрашивать" мне непонятно - так это УФ или заливка вручную нужным цветом?

[DiemonStar]

Как я понял, требуется заливка выделения цветом. Такое можно даже обычной записью макроса сделать:

Sub Макрос1()
'
' Ìàêðîñ1 Ìàêðîñ
'
'
    With Selection.Interior
        .Pattern = xlSolid
        .PatternColorIndex = xlAutomatic
        .Color = 65535
        .TintAndShade = 0
        .PatternTintAndShade = 0
    End With
End Sub

[Cayman]

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

реально?

[Cayman]

2Hugo121

Выбор цвета - можно запускать код при уже выделенной области, тогда сперва код запоминает выделение, затем запрашивает инпутбоксом типа 8 "тыркнуть" ячейку с нужным цветом.

да, это мне подходит

[Hugo121]

Но обрабатывать УФ сложно - другое дело что можно в выделенной области удалить все, которые не больше 0
Или все не/залитые вручную.

[Cayman]

ок, понял. ну если это тяжело,
подскажите как сделать хотя бы так: в выделенном диапазоне удалить все данные с ячеек к которым не было примененно УФ, возможно?