Здравствуйте
Появились проблемы с макросом - при его выполнении стал зависать Excel.
Суть - при выполнении кода должно записываться количество переходов через отметку "-3" в выделенном диапазоне на скриншоте.
Помощь будет очень кстати!
Private Sub CommandButton1_Click()
Dim i As Integer, j As Integer, k As Integer
For j = 23 To 24
i = 24
k = 0
Do While i < 55
If Cells(i - 1, j).Value < -3 Then
If Cells(i, j).Value > -3 Then
k = k + 1
i = i + 1
End If
i = i + 1
End If
Loop
Cells(i, j + 7).Value = k
Next j
End Sub