Как по клику по строчке показывать определенные данные?

Question

[Анатолий]

У меня Excel 2007, если на нем задача не решается, могу поставить другую версию.
Также подойдет реализация на Google Sheets.
Имеется 3 листа: Менеджеры, Клиенты и Заказы.
Как сделать, чтобы при клике по строке с товарами, сверху менялись данные.
Данные связаны по id клиента и id менеджера.
На последней картинке клик был по ячейке "Мясо", сверху должны быть данные как указаны на картинке.

Листы Менеджеры и Клиенты

Updt. Через "Исходный код" добавил скрипт вида:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("D5:E9"), Target) Is Nothing Then Exit Sub
    Range("B1").Value = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;2;0)"
    Range("C1").Value = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;3;0)"
    Range("B2").Value = "=ВПР(С" & ActiveCell.Row & ";менеджеры!A:C;2;0)"
    Range("C2").Value = "=ВПР(С" & ActiveCell.Row & ";менеджеры!A:C;3;0)"
End Sub

Получаю ошибку 1004 при событии.
Хотя формула рабочая и без макроса прекрасно работает:
=ВПР(B5;клиенты!A:C;2;0)
Не могу понять, что не так?
Функция ВПР не может работать через макрос? Чем тогда ее заменить?

Comments

[Анатолий]

John Smith, сделал так:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("D5:E9"), Target) Is Nothing Then Exit Sub
    Range("B1").Formula = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;2;0)"
    Range("C1").Formula = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;3;0)"
    Range("B2").Formula = "=ВПР(C" & ActiveCell.Row & ";менеджеры!A:C;2;0)"
    Range("C2").Formula = "=ВПР(C" & ActiveCell.Row & ";менеджеры!A:C;3;0)"
End Sub

ничего не изменилось, ошибка 1004

[Анатолий]

John Smith, я уже удалил файл.

Answer 1

[Анатолий]

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Intersect(Range("D5:E9"), Target) Is Nothing Then Exit Sub
    Range("B1").FormulaLocal = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;2;0)"
    Range("C1").FormulaLocal = "=ВПР(B" & ActiveCell.Row & ";клиенты!A:C;3;0)"
    Range("B2").FormulaLocal = "=ВПР(C" & ActiveCell.Row & ";менеджеры!A:C;2;0)"
    Range("C2").FormulaLocal = "=ВПР(C" & ActiveCell.Row & ";менеджеры!A:C;3;0)"
End Sub

Answer 2

[Григорий Боев]

Для Google sheets есть onSelectionChange(event).

1. Получаете адрес ячейки, и содержимое
   let value = range.getCell(1, 1).getValue()
   
   
2. Ищите данные по этому запросу
   data.filter(row=>row[0]===value)
   
   
3. И пишите результат в нужные ячейки
   range.setValues(outData)
   
   

Или можно выделить одну ячейку для текущего значения выделения, а искать значения формулами с ВПР/FILTER, такой гибридный способ и быстрее работать будет и более устойчив к редактированию структуры таблицы
Если нужно готовое решение - пишите в личку