Cezar, veja se é isso que precisa.
Obs: Retirei o tratamento de erro das formulas pois uso o excel 2003 que não reconhece a função seerro()
Caso queira somente o código vba segue:
Option Explicit
Sub mais()
If [N1] + 20 < Application.WorksheetFunction.Max(Range("A:A")) Then
[N1] = [N1] + Range("l2")
End If
End Sub
Sub menos()
If [N1] > 1 Then
[N1] = [N1] - Range("l2")
End If
End Sub
[]
Guilherme Domingos
Se a mensagem foi util Favor Clicar na mãozinha ao lado de "citar".
Quando necessário, lembre se de marcar o tópico como [RESOLVIDO].
Postado : 08/12/2015 8:42 am