Добрый день! Вопрос: требуется сделать гипперссылку на имя человека, с возможностью перехода на следующий лист книги (excel) с автофильтрацией именно

этого человека в таблице данных/если есть возможность сделать автоподбор по еще одному фильтру (итого получиться 2 фильтра: по имени и по статусу.) Использовал: Формулы — данные имен (установил верный диапазон поиска) Далее в VBA прописал Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink) Dim wsToFilter As Worksheet On Error GoTo SubErr If Right(Target.SubAddress, «PM») = "!L1" Then 'Hyperlink is to a worksheet within this document Set wsToFilter = ThisWorkbook.Worksheets(Replace(Target.SubAddress, "!L1", «PM»)) If wsToFilter.AutoFilterMode Then 'Hyperlink has an AutoFilter wsToFilter.AutoFilter.ShowAllData 'Remove existing filters wsToFilter.AutoFilter.Range.AutoFilter 12, Target.TextToDisplay 'Filter the First column for the text of the hyperlink End If Set wsToFilter = Nothing End If SubErr: End Sub Однако почему-то пересылает меня на весь столбец без необходимой фильтрации… Спасибо
Ответов пока нет

Сергей Климов

от 0 p.
Сейчас на сайте
Читать ответы

Александр

от 100 p.
Читать ответы

Антон

от 50 p.
Читать ответы
Посмотреть всех экспертов из раздела Технологии > Базы данных
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store