Вы ведь не со мной спорите
Надо поменять что-то.
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
Есть еще какие-то варианты?
PS. Я просил их самих настроить мне рекламу, прошло 3 раб.дня. Сегодня звонил, сказали, что в работе. Позвоню в понедельник, пройдет 7 календарных дней, если опять "прокатят", то хз, наверно уже все.