неправильно работает макрос в excel

[n1l]

Здравствуйте!
Есть макрос который я недавно написал, но не могу понять почему он неправильно работает.
В общем задача такая проверить выделенную ячейку из одного листа на совпадения с группой ячеек из другого и вставить значение если нашлись совпадения.
неправильность работы заключается в том что макрос вообще ничего не вставляет...

PHP код:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim x&, i&
x = Sheets("справочник").Cells(Rows.Count, 2).End(xlUp).Row
i = 0
For i = 3 To x
  If Sheets("рейсы").Cells(ActiveCell.Row, ActiveCell.Column).Value = Sheets("справочник").Cells(i, 2).Value Then
     Sheets("рейсы").Cells(ActiveCell.Row - 1, ActiveCell.Column - 1).Value = Sheets("справочник").Cells(3, 1).Value
  End If
Next
End Sub 


не увидел тегов к бэйсику и ставил все в пхп

[Hugo121]

Cells(Target.Row, Target.Column)

Там ещё есть ошибки, но не системные.
Ну и ещё на время работы события отключите - чтоб лишнюю работу не делать.
И ещё - обычно отслеживают, что изменилась одна ячейка. Если больше - то Exit Sub

[AKSENOV048]

не знаю правильно ли я понял.

[n1l]

Сообщение от AKSENOV048

не знаю правильно ли я понял.

Да помоему вы все правильно поняли, спасибо большое...
А можно коментарии к коду если вам не трудно, пожалуйста.

[n1l]

Сообщение от Hugo121

Ну и ещё на время работы события отключите - чтоб лишнюю работу не делать.

я не понял смысл предложения.

[n1l]

Спасибо вам всем!

[n1l]

Только что тестировал свою задумку и понял что при копировании мой макрос только абуза...
Как сделать так что бы макрос действовал при копировании?

[n1l]

Сообщение от Hugo121

И ещё - обычно отслеживают, что изменилась одна ячейка. Если больше - то Exit Sub

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim x&, i&
If Not Intersect(Target, ActiveSheet.UsedRange.Columns(2)) Is Nothing Then
With Sheets("справочник"): x = .Cells(Rows.Count, 2).End(xlUp).Row
    For i = 3 To x
       If Target.Value = .Cells(i, 2).Value Then Target.Offset(, -1).Value = .Cells(i, 1).Value
    Next
End With
End If
End Sub

как отследить то о чем вы говорите в таком коде?

[IgorGO]

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim x&, i&
if target.cells.count > 1 then exit sub
...

[Hugo121]

Собрал в кучку

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
Dim x&, i&
If Target.Cells.Count > 1 Then Exit Sub
If Not Intersect(Target, ActiveSheet.UsedRange.Columns(2)) Is Nothing Then
Application.EnableEvents = False
With Sheets("справочник"): x = .Cells(Rows.Count, 2).End(xlUp).Row
    For i = 3 To x
       If Target.Value = .Cells(i, 2).Value Then Target.Offset(, -1).Value = .Cells(i, 1).Value
    Next
End With
Application.EnableEvents = True
End If
End Sub

Вернее лучше так:

Private Sub Worksheet_Change(ByVal Target As Excel.Range)
    Dim x&, i&
    If Target.Cells.Count > 1 Then Exit Sub
    If Not Intersect(Target, ActiveSheet.UsedRange.Columns(2)) Is Nothing Then

        With Sheets("справочник"): x = .Cells(Rows.Count, 2).End(xlUp).Row
            For i = 3 To x
                If Target.Value = .Cells(i, 2).Value Then
                    Application.EnableEvents = False
                    Target.Offset(, -1).Value = .Cells(i, 1).Value
                    Application.EnableEvents = True
                    Exit For
                End If
            Next
        End With

    End If
End Sub