' i - индекс для Sheet2, j - индекс для Sheet1
- Код: Выделить всё
Private Sub Worksheet_Change(ByVal Target As Range)
Dim i As Integer, j As Integer
Dim iSect As Range
Dim rngGenAgrmnts As Range
Set rngGenAgrmnts = Range("GenAgrmnts")
Set iSect = Application.Intersect(Target, Range("G:G"))
j = ActiveCell.Row
If Not (iSect Is Nothing) Then
For i = 1 To rngGenAgrmnts.Rows.Count
If ActiveCell.Value = rngGenAgrmnts(i, 1).Value Then
Cells(j, 13).Value = "Уря!!!!!"
Exit For
End If
Next i
End If
End Sub
Почему на Set rngGenAgrmnts = Range("GenAgrmnts") идет сбой??? (GenAgrmnts - принадлежит диапазону данных из Sheet2)