Cesar,
Bom dia!
Você deve alterar nas linjhas do código onde se refere ao número 20:
Sub mais()
'Nesta Linha
If [N1] + 20 < Application.WorksheetFunction.Max(Range("A:A")) Then
'E nesta linha
[N1] = [N1] + 20
End If
End Sub
Sub menos()
If [N1] > 1 Then
'E nesta linha
[N1] = [N1] - 20
End If
End Sub
Desenvolvo pequenas soluções em VBA Excel a valores que variam entre R$ 50,00 a R$ 200,00. Se te interessar, entre no meu instagran (vba_excel_desenvolvimento)
Atenciosamente
Wagner Morel
Postado : 08/12/2015 7:34 am