Как написать макрос, чтобы при определенных условиях (к примеру А1=В1) в ячейке, например, С к содержимому прибавлялось значение 1 (т.е. каждый раз +1, +1, +1, до бесконечности) и наоборот
В
модуль листа:
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 любое добавляемое число (положительное или отрицательное)
спасибо, тоже как вариант, но я искала вот это, но все равно спасибо
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