Новости:

Новая редакция правил форума: 2.4. Если вопрос или ответ содержится во вложенном файле, все-равно кратко описывайте в сообщении вопрос или суть решения. Это необходимо, чтобы тему можно было найти через поиск.

Главное меню

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

Автор Наталья Колинько, 07.12.2015, 13:38

« назад - далее »

cheshiki1


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 заходил, но модулей не увидел и дальше пошёл...
Спасибо! Утащил в берлогу, по косточкам разбирать )