Sub
CommandButton3_Click()
If
Val(Cells(ActiveCell.Row, 9).Value) = 0
Then
Cells(ActiveCell.Row, 9).Value = 1
If
Cells(ActiveCell.Row, 10) = 70
Then
Cells(ActiveCell.Row, 9).Value = Cells(ActiveCell.Row, 9) + 1
Cells(ActiveCell.Row, 10).Value = 1
Else
Cells(ActiveCell.Row, 10).Value = Cells(ActiveCell.Row, 10).Value + 1
End
If
End
Sub