eu coloquei como valor de incremento
mas se vc quer que o valor limite seja o mesmo do incremento é só mudar na macro
Sub mais()
n = Cells(2, "n").Value2 + Cells(2, "n").Value2
If n < Cells(1, "l").Value2 + 19 Then Cells(2, "n").Value2 = n Else Cells(2, "n").Value2 = Cells(1, "l").Value2 - 19
End Sub
Sub menos()
n = Cells(2, "n").Value2 - Cells(2, "l").Value2
If n > 0 Then Cells(2, "n").Value2 = n Else Cells(2, "n").Value2 = 1
End Sub
Postado : 10/12/2015 4:32 pm