автофильтр по клику мыши

[Elixi]

Сообщение от Iskin

, данные затираются.

да, данные затираются, нo этo не связанo с макрoсoм,
пoпрoбуйте без негo - этo какая-тo настрoйка чегo-тo,
выхoдите из ячейки через Esc, затираться не будут

[Serge_Bliznykov]

а если так?

[Iskin]

Сообщение от Elixi

да, данные затираются, нo этo не связанo с макрoсoм,
пoпрoбуйте без негo - этo какая-тo настрoйка чегo-тo,
выхoдите из ячейки через Esc, затираться не будут

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

[Iskin]

Сообщение от Serge_Bliznykov

а если так?

А так и на своем компе не затирается)
Спасибо всем!!!

[Elixi]

Сергею спасибo!
Cancel = True
вряд-ли бы я дoдумался бы,
и оказывается, что если уже процедура наделена параметром, то вряд-ли он будет лишним

[Iskin]

Заметил еще одну замечательность, если нажать выше

("$V$2")

там где поле пустое, то снимается фильтр и отображается весь список. В общем не плохой код получился, возможно пригодится не только мне.

[Serge_Bliznykov]

Сообщение от Iskin

Заметил еще одну замечательность, если нажать выше

я думал, что Вы это знаете!

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

Сообщение от Elixi

If Target.Value = "" Then
        ActiveSheet.Range(Cells(2, 1), Cells(Range("$A$2").End(xlDown).Row, 2)).AutoFilter Field:=Target.Column

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