Коллеги, здравствуйте! Не любитель создавать темы, но часы безуспешного поиска по форумам прошли впустую.. И так, к сути: Сделал таблицу с поиском соответствующего значения двум соседним ячейкам.. Всё бы супер, но суть таблицы в редактировании основной части (диапазон A2:C13) Примерный алгоритм попробую объяснить по картинке: 1) Вводим Имя и Число в G4 и H4 2) Получаем соответстующее значение I4 из диапазона C:C 3) Вводим либо в том же I4 или вспомогательной ячейке J4 значение, чтобы поменялось значение также в диапазоне C:C (Своего рода условная взаимосвязь) Собственно вопрос к вам, как шарящим, можно ли это как-то реализовать? И если да, то может кто-то сможет помочь?) может я вообще время в пустую трачу..
2) Получаем соответстующее значение I4 из диапазона C:C 3) Вводим либо в том же I4 или вспомогательной ячейке J4 значение, чтобы поменялось значение также в диапазоне C:C (Своего рода условная взаимосвязь)
Со вторым пунктом вроде понятно, вот к третьему у меня и вопрос. Могу постараться подробнее описать
Макрос в модуль Лист1, при изменении ячейки J4 срабатывает и меняет значение
Код
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("J4")) Is Nothing Then
Application.EnableEvents = False
Dim FoundImja As Range
Dim FAdr As String
Set FoundImja = Columns(1).Find(Range("G4"), , xlValues, xlWhole)
If Not FoundImja Is Nothing Then
FAdr = FoundImja.Address
Do
If FoundImja.Offset(, 1) = Range("H4") Then
FoundImja.Offset(, 2) = Range("J4")
Exit Do
End If
Set FoundImja = Columns(1).FindNext(FoundImja)
Loop While FoundImja.Address <> FAdr
End If
End If
Application.EnableEvents = True
End Sub