Как исправить код Worksheet_Calculate ()

[Алексей Змётный]

Помогите, пожлста. Необходимо, чтобы и при изменении ячейки A2 на листе Лист2 срабатывали также макросы Макрос3 и Макрос4. С ячейкой A1 вроде все работает, а вот дальше часть кода не срабатывает.

Код Выделить Развернуть


Private Sub Worksheet_Calculate()
Application.EnableEvents = False
If [A1] = "1" Then
If bInsert = False Then Макрос1: bInsert = True
If [A1] <> "1" Then
If bInsert = False Then Макрос2: bInsert = True
End If
End If
If [A2] = "1" Then
If bInsert = False Then Макрос3: bInsert = True
If [A2] <> "1" Then
If bInsert = False Then Макрос4: bInsert = True
End If
End If
Application.EnableEvents = True
End Sub


[kuklp]

Алексей Змётный, читаем правила форума и выкладываем файл-пример. Оформляйте код тегами, значок # на панели инструментов.

[Wasilic]

чтобы и при изменении ячейки A2 на листе Лист2 срабатывали также макросы Макрос3 и Макрос4.

Глядя на код, пока А1=1,  делайте в А2 что хотите, макросы 3 и 4 не сработают.
А вообще то, не понятно, что надо с такими условиями? Хотя правильно их записать надо бы так.

Код Выделить Развернуть

  If [A1] = "1" Then
      If bInsert = False Then Макрос1: bInsert = True
  Else
      If bInsert = False Then Макрос2: bInsert = True
  End If
  If [A2] = "1" Then
      If bInsert = False Then Макрос3: bInsert = True
  Else
      If bInsert = False Then Макрос4: bInsert = True
  End If

Но, в таком случае, макросы 3 и 4, вообще никогда не сработают.