Como inserir uma numeração automática em uma pasta de trabalho no Excel 2013

Veja como incrementar uma numeração automática em sua pasta de trabalho no Excel ou mesmo em uma determinada planilha. Trata-se de um código simples em Visual Basic que vai executar a auto-numeração a partir da abertura da respectiva pasta de trabalho. Opcionalmente pode-se adaptar o mesmo código para fazer a mesma operação em uma determinada planilha apenas com um clique em botão especifico. Sem mais enrolação, vamos lá:

1. Abra uma pasta de trabalho qualquer no Excel;
2. Esta etapa é opcional: Observe se a Guia Desenvolvedor está aparecendo, caso não esteja, clique no menu Arquivo, Opções, Personalizar Faixa de Opções e quadro Guias Principais selecione a caixa DESENVOLVEDOR e clique no botão OK.;
3. Clique no botão Visual Basic ;
4. Em Microsoft Excel Objetos dê dois cliques em EstaPasta_de_Trabalho;
5. Em Workbook o evento deverá ser Open;
6. Digite o código a seguir e feche o editor do Visual Basic. As linhas que estão em vermelho é opcional, eu coloquei apenas como informação do código. Lembre-se que tomei como padrão a célula A2 como incremento de +1, que pode ser alterado a seu critério.
7. Opcionalmente pode-se acrescentar um botão de comando (Guia Desenvolvedor, botão Inserir, Controles ActiveX (botão de comando))
8. Desenhe manualmente um botão e dê dois cliques sobre ele para acionar a criação de um módulo no editor Visual Basic (evento Click) e insira o mesmo código. Salve e feche o editor.
9. Faça o teste. Para alterar o nome do botão clique em Modo de Design para ativá-lo, selecione o botão recém criado e clique na opção Propriedades. Em Caption digite novo texto para o botão e pressione Enter. Feche a folha Propriedades.
10. Para que tudo funcione Salve a pasta de trabalho no formato de macro .xlsm. É isso, espero ter ajudado.

Private Sub Workbook_Open()

    

    'variáveis de ambiente

    Dim conta1 As Integer

    Dim conta2 As String

    

    ' A variável conta1 armazena em Plan1 o valor da célula A2

    conta1 = Sheets("Plan1").Range("A2").Value

    ' A variável conta2 faz o incremento de 1 (um) ao valor da célula A2 no formato de 4 digitos

    conta2 = Format(conta1 + 1, "0000")

    

    

    Sheets("Plan1").Range("A2").Value = "'" & conta2

    'salvando a planilha

    ActiveWorkbook.Save

    

End Sub