Saberexcel - o Site das Macros

Essas macros do Aplicativo Microsoft Excel VBA, incrementa e decrementa um determinadado número em um célula escolhida, neste exemplo de planilha foi feito para execução da macro manualmente, mas você poderá inserir no Evento Auto_Open do Objeto Workook, ao abrir incrementa mais um número.

Sub Incrementa_autonumeracao()
Dim ValVelho As Integer
Dim ValNovo As String

'retorna o valor corrente (atual)
ValVelho = Sheets("Autonumeracao").Range("A2").Value
ValNovo = Format(ValVelho + 1, "0000")

'insere o novo valor na celula(A2)
Sheets("Autonumeracao").Range("A2").Value = "'" & ValNovo
End Sub


Essa macro decrementa o número na célula (A2)
Sub Decrementa_autonumeracao_manual()
Dim ValVelho As Integer
Dim ValNovo As String

'retorna o valor corrente (atual)
ValVelho = Sheets("Autonumeracao").Range("A2").Value
ValNovo = Format(ValVelho - 1, "0000")

' insere o novo valor na celula(A2)
Sheets("Autonumeracao").Range("A2").Value = "'" & ValNovo
End Sub

Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel




  Baixe o exemplo de planilha contendo as macros acima
Excel planilha vba autonumeracao incrementa ou decrementa um numero (22.04 kB)