Добрый день! Подскажите как сделать автоматическое заполнение ячейки справа. Слева наименования субъектов РФ и чтобы при их добавлении в столбце справа по этой же строке автоматом заполнялось наименование федерального округа к которому относится субъект. Пример во вложении
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:A1000")) Is Nothing Then
Application.EnableEvents = False
Dim Oblast As Range
Dim i As Integer
With Worksheets("Лист1")
Set Oblast = .Columns(1).Find(Target, , xlValues, xlWhole)
If Not Oblast Is Nothing Then
i = Oblast.Row
Do
i = i - 1
Loop While .Cells(i, "A").Interior.ColorIndex = -4142
End If
Target.Offset(, 1) = .Cells(i, "A")
End With
End If
Application.EnableEvents = True
End Sub