Обработка двойного клика мыши в сводной таблице (автор Щербаков Дмитрий - The_Pr

[PavelKs]

Добрый день. Использую макрос уважаемого The_Prist - очень помогает. Но как дело доходит до фильтра с датой - срабатывает не верно. Прошу помочь с макросом (с доп.столбцом вариант не рассматриваю). Спасибо.

[Дмитрий Щербаков(The_Prist)]

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

Код Выделить Развернуть

Set rSource = Application.Evaluate(Application.ConvertFormula(pt.SourceData, xlR1C1, xlA1))добавьте такую:

Код Выделить Развернуть

Set rSource = rSource.CurrentRegionи все заработает.

[PavelKs]

Дмитрий Щербаков(The_Prist), спасибо. Помогло но частично, как то не очень корректно работает - файл приложил. Наверное без доп столбца не получится?(

[Дмитрий Щербаков(The_Prist)]

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