Макрос при изменении ячеек. Ячейка уходит в отрицательное значение

[AlexPuaro]

Необходимо чтобы как только в ячейке B2 будет 2 или больше, в ячейке B3 3 или больше , то в ячейке A1 увеличивалось значение на +1, а в B2 B3 уменьшалось на 2 и 3.
Проблема в том что ячейка B3 уходит в минус. К примеру если B2 50, а B3 4, то в B3 будет -71, а должно останавливаться при значении B3 1.

Код в листе
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B2:B3")) Is Nothing Then
If [b2] >= 2 And [b3] >= 3 Then
[a1] = [a1] + 1
[b2] = [b2] - 2
[b3] = [b3] - 3
End If
End If
End Sub

[Hugo121]

Если B3 4, и по коду [b3]=[b3]-3, то с какого в минус?
Тем более что проверка выше есть... Лукавите

[AlexPuaro]

Hugo121, поэтому и спрашиваю, что вроде бы условия прописаны.
Можете по быстрому вставить в пустой файл и написать в ячейках B2 B3 по 4. и сразу B3 уходит в минус.
Получается что для ячейки B2 выполняется условие, и он останавливается когда [B2]<2. А ячейка B3 постоянно вычитает 3, пока [B2]>= 2 и свое условие [b3] >= 3 как-будто не замечает

[Elixi]

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

Private Sub Worksheet_Change(ByVal Target As Range)
    If Not Intersect(Target, Range("B2:B3")) Is Nothing Then
        If [b2] >= 2 And [b3] >= 3 Then
            Application.EnableEvents = False
                [a1] = [a1] + 1
                [b2] = [b2] - 2
                [b3] = [b3] - 3
            Application.EnableEvents = True
        End If
    End If
End Sub

[AlexPuaro]

Elixi, по итогу это нужно для подсчета изготовленных изделий.
Ещё такой вопрос, если учитывать изменение нужно ячеек не стоящих рядом, то как это можно записать формулой? Или можно просто Range(“A1:S100”) написать и на работу эту не повлияет?

[IgorGO]

сделать можно все (если это не противоречит логике и понимать что именно нужно сделать)
обьясните как это должно работать - может кто-то поможет с реализацией
не можете обьяснить - занимайтесь реализацией свой идеи сами. все просто, понимаете?