Я не понимаю, почему, когда я запускаю свой код из панели разработчика, мой код работает гладко, но когда я использую кнопку для его запуска, он работает неправильно. Вот мой код и примеры того, когда он работает, а когда нет
Sub Comment()
Dim x As Integer
x = 3
Do Until Sheets(2).Cells(x, 19) = ""
If Sheets(2).Cells(x, 19) <> "N/A" Then
If Sheets(2).Cells(x, 7).Value = Sheets(2).Cells(x + 1, 3).Value And Sheets(2).Cells(x, 16).Value = Sheets(2).Cells(x + 1, 16).Value And Sheets(2).Cells(x, 2).Value = Sheets(2).Cells(x + 1, 2).Value Then
'copy the value of the missing label and delete the missing label row
'Application.ScreenUpdating = False
Sheets(2).Cells(x + 1, 3).Copy (Cells(x, 3))
Sheets(2).Cells(x + 1, 4).Copy (Cells(x, 4))
Sheets(2).Cells(x + 1, 5).Copy (Cells(x, 5))
Sheets(2).Cells(x + 1, 6).Copy (Cells(x, 6))
Sheets(2).Rows(x + 1).Delete Shift:=xlShiftUp
'calculate the delta for the frequecy and the %
Sheets(2).Cells(x, 11).Value = Abs(Cells(x, 5).Value - Cells(x, 9).Value)
Sheets(2).Cells(x, 12).Value = Abs(Cells(x, 6).Value - Cells(x, 10).Value)
'replace the comment to identify witch one have been change by the tool
If Sheets(2).Cells(x, 19) = "Orphan Label" Then Sheets(2).Cells(x, 19).Value = "Was Orphan Label"
If Sheets(2).Cells(x, 19) = "Orphan Label - Rate instability" Then Sheets(2).Cells(x, 19).Value = "Was Orphan Label - Rate instability"
Sheets(2).Rows(x).Interior.ColorIndex = 0
Sheets(2).Rows(x).Interior.ColorIndex = 36
'Application.ScreenUpdating = True
GoTo next_row
End If
End If
next_row:
x = x + 1
Loop
End Sub
Это правильный код (при запуске с панелью разработчика)
Это не тот (при запуске с кнопкой)