Ошибка в макросе

[Оксана33]

Почему макрос не работает?

Private Sub Worksheet_Change(ByVal Target As Range)
    i = Target.Row

    If Cells(i, 2) = 200 Then
    Cells(i, 1) = Date
    Else: Cells(i, 1).ClearContents
    End If
    
    If Cells(i, 8) <> Empty Then
    Cells(i, 9) = Date
    ElseIf Cells(i, 8) = ClearContents Then
    Cells(i, 9).ClearContents
    End If

End Sub

[IgorGO]

напишите вверху модуля:

Option Explicit

и этот код вообще перестанет выполняться, как и должно быть

[Оксана33]

так что же с ним не так? с одним условием выполняется, значит дело в конфликте условий...но где же там конфликт?

[IgorGO]

я не уверен, что понимаю что Вы хотите добиться от этого макроса
но вооружившись методом дедукции предлагаю написать такой

Private Sub Worksheet_Change(ByVal Target As Range)
  i = Target.Row
  If Cells(i, 2) = 200 Then Cells(i, 1) = Date Else Cells(i, 1).ClearContents
  If IsEmpty(Cells(i, 8)) Then Cells(i, 9) = Date Else Cells(i, 9).ClearContents
End Sub

[Оксана33]

кажется разобралась сама, ща напишу

Private Sub Worksheet_Change(ByVal Target As Range)

If Target.Column = 2 Then

    i = Target.Row

    If Cells(i, 2) = 200 Then
    Cells(i, 1) = Date
    Else: Cells(i, 1).ClearContents
    End If
    
End If
 
If Target.Column = 8 Then

    i = Target.Row
 
    If Cells(i, 8) <> Empty Then
    Cells(i, 9) = Date
    ElseIf Cells(i, 8) = ClearContents Then
    Cells(i, 9).ClearContents
    End If
    
End If

End Sub

[Оксана33]

IgorGO, 2-е условие должно начинаться по всей видимости If Not IsEmpty

но и с этим кодом тоже что-то не так

[IgorGO]

видите-ли, пока Вы не рассказали простыми словами что должно происходить на листе (чего Вы добиваетесь)
написать корректный код Вам может только очень опытный экстрасенс,
а когда расскажете - любой начинающий программист (видимо, кроме Вас)

[Казанский]

Сообщение от Оксана33

Почему макрос не работает?

Потому что зацикливается. Добавьте

Private Sub Worksheet_Change(ByVal Target As Range)
   Application.enableevents = false
  on error resume next
'...
   Application.enableevents = true
End Sub

[IgorGO]

Семен Семеныч...

стандартные строки в Worksheet_Change
отключить обработку событий
и...
включить как было

но даже при вовремя отключенной обработке событий
это
Else: Cells(i, 1).ClearContents
и это
ElseIf Cells(i, 8) = ClearContents
будет работать так как написано, а это может сильно отличаться от того, что Вы хотели

[Оксана33]

всем спасибо за внимание)