Подскажите, как сделать макрос: При двойном щелчке мыши по ячейке, должен происходить переход на другую страницу с авто-фильтром по значению этой ячейки.
Пример: "Лист1", щелкаем дважды по ячейке "Петров" --> открывается"лист2" с фильтром по значению "петров"
Добрый день,
Подскажите, как сделать макрос: При двойном щелчке мыши по ячейке, должен происходить переход на другую страницу с авто-фильтром по значению этой ячейки.
Пример: "Лист1", щелкаем дважды по ячейке "Петров" --> открывается"лист2" с фильтром по значению "петров"Стю
Здравствуйте. Пример не убедительный. При выборе фильтра указывается № фильтра (номер столбца с фильтром). Нужен Файл-пример. Да, и про макросы это рядом "Вопросы по VBA" [moder]Тему перенес
Здравствуйте. Пример не убедительный. При выборе фильтра указывается № фильтра (номер столбца с фильтром). Нужен Файл-пример. Да, и про макросы это рядом "Вопросы по VBA" [moder]Тему перенесgling
ЯД-41001506838083
Сообщение отредактировал gling - Среда, 17.09.2014, 20:43
Наверно надо это его её первое сообщение, может не найти. [moder]Настя Правила не прочитала, пример не приложила, в другую ветку запостила. Короче, безобразница. Да и по-любому ответа без примера не будет. Только угадайка может прокатить. Но, уж коли уважаемый человек беспокоится, сейчас напишу ей сообщение.
Наверно надо это его её первое сообщение, может не найти. [moder]Настя Правила не прочитала, пример не приложила, в другую ветку запостила. Короче, безобразница. Да и по-любому ответа без примера не будет. Только угадайка может прокатить. Но, уж коли уважаемый человек беспокоится, сейчас напишу ей сообщение.gling
ЯД-41001506838083
Сообщение отредактировал gling - Четверг, 18.09.2014, 21:22
Каюсь! Не было времени заглянуть и проверить появился ли ответ, искала уже готовые варианты в нете, но похоже их нет
Зато поняла как описать пример)
Имеетя два листа с разными таблицами в одной краткая информацию по клиентам, в другой заказы этих клиентов (постоянно пополняется). Суть макроса не просто в фильтре, а в переходе на другой лист и там запуск фильтра не по цифре или наличию галочки и прочего, а именно по тексту в ячейке по которой совершаю двойной клик
насколько я разобралась в макросах (2 день как узнала об их существовании) должно выглядеть примерно так:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If clickCell("=*=значение*") Then Sheets("заказы").Select ActiveSheet.Range("$A$1:$P$1202").AutoFilter Field:=6, Criteria1:= _ "=*=значение*" End Sub
Если в переводе, то: Если 2click на определенной ячейке со значением " Петров" то переход на лист2 и активация фильтра по значению ячейки на которую кликала "петров"
раньше пользовалась гиперссылкой, а фильтр вручную, но в данный момент разнообразие "ивановых", "петровых" и "сидоровых", вышло за пределы разумного и приходится долго искать их в выпадающем списке фильтра.
Так понятнее? [moder]Это было понятно и из первого сообщения. Смотрите здесь. Особенно внимательно п. 3. Следующее неисполнение какого-либо пункта правил форума повлечет за собой замечание.
Каюсь! Не было времени заглянуть и проверить появился ли ответ, искала уже готовые варианты в нете, но похоже их нет
Зато поняла как описать пример)
Имеетя два листа с разными таблицами в одной краткая информацию по клиентам, в другой заказы этих клиентов (постоянно пополняется). Суть макроса не просто в фильтре, а в переходе на другой лист и там запуск фильтра не по цифре или наличию галочки и прочего, а именно по тексту в ячейке по которой совершаю двойной клик
насколько я разобралась в макросах (2 день как узнала об их существовании) должно выглядеть примерно так:
Private Sub Workbook_SheetBeforeDoubleClick(ByVal Sh As Object, ByVal Target As Range, Cancel As Boolean) If clickCell("=*=значение*") Then Sheets("заказы").Select ActiveSheet.Range("$A$1:$P$1202").AutoFilter Field:=6, Criteria1:= _ "=*=значение*" End Sub
Если в переводе, то: Если 2click на определенной ячейке со значением " Петров" то переход на лист2 и активация фильтра по значению ячейки на которую кликала "петров"
раньше пользовалась гиперссылкой, а фильтр вручную, но в данный момент разнообразие "ивановых", "петровых" и "сидоровых", вышло за пределы разумного и приходится долго искать их в выпадающем списке фильтра.
Так понятнее? [moder]Это было понятно и из первого сообщения. Смотрите здесь. Особенно внимательно п. 3. Следующее неисполнение какого-либо пункта правил форума повлечет за собой замечание.Стю
gling, Это он? Можете расписать подробно что есть что?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False If Not Intersect(Target, Range("A2:A4")) Is Nothing Then Sheets("Лист1").Range("$A$1:$A$20").AutoFilter Field:=1, Criteria1:=Target Cancel = True Sheets("Лист1").Activate End If Application.ScreenUpdating = True End Sub
gling, Это он? Можете расписать подробно что есть что?
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Application.ScreenUpdating = False If Not Intersect(Target, Range("A2:A4")) Is Nothing Then Sheets("Лист1").Range("$A$1:$A$20").AutoFilter Field:=1, Criteria1:=Target Cancel = True Sheets("Лист1").Activate End If Application.ScreenUpdating = True End SubСтю
Объединенные ячейки - это зло, так меня научили. Теперь я и сам это вижу, не привыкайте к ним. Сами понимаете если ячейки объединены, это уже диапазон, в нем и пустые ячейки и со значением, при двойном клике на диапазон по каким данным фильтровать, пустых ячеек или со значением? В файле скрыл условным форматированием другие значения, чем не объединенные ячейки по виду? Выделите весь столбец и увидите там записи, можете кликать в любую ячейку фильтр все равно сработает.
Объединенные ячейки - это зло, так меня научили. Теперь я и сам это вижу, не привыкайте к ним. Сами понимаете если ячейки объединены, это уже диапазон, в нем и пустые ячейки и со значением, при двойном клике на диапазон по каким данным фильтровать, пустых ячеек или со значением? В файле скрыл условным форматированием другие значения, чем не объединенные ячейки по виду? Выделите весь столбец и увидите там записи, можете кликать в любую ячейку фильтр все равно сработает.gling
ЯД-41001506838083
Сообщение отредактировал gling - Четверг, 18.09.2014, 23:24
gling, Ясно, буду работать правильно) Спасибо огромное за помощь! каждый раз узнавая новые возможности Excel, прихожу в восторг! Обрадую завтра коллег и продолжу изучать макросы - гениальная вещь!!!! Два дня разбиралась в них, открыла столько возможностей!!!
gling, Ясно, буду работать правильно) Спасибо огромное за помощь! каждый раз узнавая новые возможности Excel, прихожу в восторг! Обрадую завтра коллег и продолжу изучать макросы - гениальная вещь!!!! Два дня разбиралась в них, открыла столько возможностей!!!Стю