Автозапуст

[Kramorm]

Чего-то я видимо не понимаю. На Лист1 в ячейке A1 написана такая формула: =Лист2!$A$2. В VBA на Лист1 написал такой код:

Private Sub Worksheet_Change(ByVal Target As Range)
    Set rng = [A1:A1]
    If Not Intersect(rng, Target) Is Nothing Then Control
End Sub

Только теперь, если изменить значение в Лист2 ячейки A1, то этот код даже не начинает выполняться. В интернете нашел такой вариант:

Private Sub Worksheet_Change(ByVal Target As Range)
    Dim Test As Range
    Set Test = Range("A1")
    Static Oldvalue As Variant
    If Test <> Oldvalue Then
        Control
        Oldvalue = Test
    End If
End Sub

Но он тоже не работает. Подскажите, пожалуйста, как починить это?

[Казанский]

Пересчет ячеек не вызывает события Worksheet_Change, но вызывает событие Worksheet_Calculate. Наверно в коде, который Вы нашли, первая строка

Private Sub Worksheet_Calculate()

[Step_UA]

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

В VBA на Лист1 написал такой код...
... если изменить значение в Лист2 ячейки A1

Вы записали обработку события, возникающего на первом листе ... если хотите, чтоб событие обрабатывалось на всех листах, то используйте Workbook_SheetChange всей книги

[Kramorm]

Сообщение от Казанский

Пересчет ячеек не вызывает события Worksheet_Change, но вызывает событие Worksheet_Calculate. Наверно в коде, который Вы нашли, первая строка

Private Sub Worksheet_Calculate()

Да вот нет, специально откопал: http://www.cyberforum.ru/vba/thread926626.html пост 4. А с Private Sub Worksheet_Calculate() действительно работает как надо. Большое спасибо за помощь.