Как написать макрос, чтобы при определенных условиях в ячейке С прибавлялось 1

[Оксана33]

Как написать макрос, чтобы при определенных условиях (к примеру А1=В1) в ячейке, например, С к содержимому прибавлялось значение 1 (т.е. каждый раз +1, +1, +1, до бесконечности) и наоборот

[vikttur]

В модуль листа:

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Application.Intersect(Range("A1:B1"), Target) Is Nothing Then
       
        If Range("A1").Value = Range("B1").Value Then _
                    Range("C1").Value = Range("C1").Value + Range("D1").Value
    End If
End Sub
В D1 любое добавляемое число (положительное или отрицательное)

[Оксана33]

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

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

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("A1:B1")) Is Nothing Then
  If Range("A1").Value = Range("B1").Value Then
    On Error Resume Next
    Application.EnableEvents = False
    Range("C1").Value = Range("C1").Value + 1
    Application.EnableEvents = True
  End If
End If
End Sub