Домашняя страница Undo Do New Save Карта сайта Обратная связь Поиск по форуму
МИР MS EXCEL - Гость.xls

Вход

Регистрация

Напомнить пароль

 

= Мир MS Excel/Переход по гиперссылке на данные с фильтром - Мир MS Excel

Регистрация · Логин: · Пароль: · · Забыли пароль?
  • Страница 1 из 1
  • 1
Модератор форума: _Boroda_, Manyasha, SLAVICK, китин  
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Переход по гиперссылке на данные с фильтром (Иное/Other)
Переход по гиперссылке на данные с фильтром
ANerovny Дата: Вторник, 11.02.2020, 09:48 | Сообщение № 1
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Здравствуйте!
Столкнулся с такой задачей.
На листе "Исполнение договоров" есть столбцы ИД и КСГ. В них планируется сделать гиперссылки на соседние листы таким образом, что когда нажимаешь к примеру на 41N18D-10UHG-375-HS изм.2 в столбце ИД - открывается отфильтрованный список по этому наименованию на листе с Исходными данными, а если нажать на гиперссылку в КСГ с таким же наименованием 41N18D-10UHG-375-HS изм.2 - открывается отфильтрованный список на листе "Изготовление и поставка".

По первой задаче с ИД я нашел решение, вставив вот такой код в VBA:

[vba]
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveSheet.Range("ИД").AutoFilter 2, Target.TextToDisplay
End Sub
[/vba]

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

Буду очень признателен за помощь и ценный совет!
Заранее спасибо!)
К сообщению приложен файл: 0332593.xlsm(71.1 Kb)
 
Ответить
СообщениеЗдравствуйте!
Столкнулся с такой задачей.
На листе "Исполнение договоров" есть столбцы ИД и КСГ. В них планируется сделать гиперссылки на соседние листы таким образом, что когда нажимаешь к примеру на 41N18D-10UHG-375-HS изм.2 в столбце ИД - открывается отфильтрованный список по этому наименованию на листе с Исходными данными, а если нажать на гиперссылку в КСГ с таким же наименованием 41N18D-10UHG-375-HS изм.2 - открывается отфильтрованный список на листе "Изготовление и поставка".

По первой задаче с ИД я нашел решение, вставив вот такой код в VBA:

[vba]
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    ActiveSheet.Range("ИД").AutoFilter 2, Target.TextToDisplay
End Sub
[/vba]

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

Буду очень признателен за помощь и ценный совет!
Заранее спасибо!)

Автор - ANerovny
Дата добавления - 11.02.2020 в 09:48
Nic70y Дата: Вторник, 11.02.2020, 10:12 | Сообщение № 2
Группа: Друзья
Ранг: Экселист
Сообщений: 5979
Репутация: 1308 ±
Замечаний: 0% ±

ru13;10;03
ну как-то так, наскоряк
[vba]
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    u = Application.Match("*ТТ*", ActiveSheet.Range("1:1"), 0)
    ActiveSheet.Range("$A$1:$H$18000").AutoFilter u, Target.TextToDisplay
End Sub
[/vba]


ЯД(poison) 41001841029809
 
Ответить
Сообщениену как-то так, наскоряк
[vba]
Код
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    u = Application.Match("*ТТ*", ActiveSheet.Range("1:1"), 0)
    ActiveSheet.Range("$A$1:$H$18000").AutoFilter u, Target.TextToDisplay
End Sub
[/vba]

Автор - Nic70y
Дата добавления - 11.02.2020 в 10:12
ANerovny Дата: Вторник, 11.02.2020, 15:41 | Сообщение № 3
Группа: Пользователи
Ранг: Прохожий
Сообщений: 6
Репутация: 0 ±
Замечаний: 0% ±

Excel 2016
Благодарю! То что нужно)
Спасибо большое!)
 
Ответить
СообщениеБлагодарю! То что нужно)
Спасибо большое!)

Автор - ANerovny
Дата добавления - 11.02.2020 в 15:41
Мир MS Excel » Вопросы и решения » Вопросы по Excel » Переход по гиперссылке на данные с фильтром (Иное/Other)
  • Страница 1 из 1
  • 1
Поиск:

Яндекс цитирования
© 2010-2020 · Дизайн: MichaelCH · Хостинг от uCoz · При использовании материалов сайта, ссылка на www.excelworld.ru обязательна!