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

[cheshiki1]

макрос однако. ALT+F11

[Wasilic]

ПКМ на листе "По_клиентам" -  Исходный текст.
Но, если диапазон будет меняться, то надо так

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

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Dim ps&, isk$
  ps = Range("B" & Rows.Count).End(xlUp).Row
  If Not Application.Intersect(Range("K2:K" & ps), Target) Is Nothing Then
     If Target.Count > 1 Then Exit Sub
     If Target = "a" Then
       isk = Cells(Target.Row, "C")
       With Sheets("По_поставщикам")
         .Activate
         .Cells.Find(What:=isk, After:=.Cells(1, 1)).Activate
       End With
     End If
  End If
End Sub


[runner]

C макросами, однако, я пока "на Вы", копаю помаленьку.
В окно VB заходил, но модулей не увидел и дальше пошёл...
Спасибо! Утащил в берлогу, по косточкам разбирать )