простой макрос

[runik]

Есть ячейки A1 и B1 .В А1 пишутся любые значения (например 1; 2.. или 5)
В ячейке В1 пишутся 1 или 2.Вопрос как прописать чтоб при вводе в B1=2 в ячейке А1 прописывался 0 (А1=0). Если прописать формулой в А1 , то при вводе цифр в А1=1 или 2... -формула удаляется.Нужен макрос

[SaLoKiN]

Sub ololo()
If (ThisWorkbook.ActiveSheet.Cells(1, 2) = 2) Then: ThisWorkbook.ActiveSheet.Cells(1, 1) = 0
End Sub

[DiemonStar]

Вот так будет правильнее:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([B1], Target) Is Nothing Then
    If IsNumeric([B1]) Then
      [A1] = Choose([B1], [A1], 0)
    End If
  End If
End Sub

з.ы. вставлять в код листа

[runik]

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

Вот так будет правильнее:

А как совместить этот код с этим:

PHP код:

Private Sub Worksheet_Change(ByVal Target As Range)
  If Target.Count > 1 Then Exit Sub
  If Not Application.Intersect(Range("F1"), Target) Is Nothing Then
     If Target.Address = "$F$1" Then
        If Range("F1") = Range("E1") Then
           MsgBox "Проверьте ДАТУ наряда"
          
        End If
     End If
   End If
End Sub 


если они вместе в корне листа то выдаёт ошибку

[runik]

Private Sub Worksheet_Change(ByVal Target As Range)
  If Not Intersect([B1], Target) Is Nothing Then
    If IsNumeric([B1]) Then
      [A1] = Choose([B1], [A1], 0)
    End If
  End If
 If Target.Count > 1 Then Exit Sub 
  If Not Application.Intersect(Range("F1"), Target) Is Nothing Then 
     If Target.Address = "$F$1" Then 
        If Range("F1") = Range("E1") Then 
           MsgBox "Проверьте ДАТУ наряда" 
           
        End If 
     End If 
   End If 
End Sub

Так тоже ошибка