Excel Gerar um número de controle sequencial

iPauchner · 18 de junho de 2019

Olá,

Trabalha em uma empresa de construção civil e utilizo duas planilhas para fazer meus orçamentos (uma vertical e outra horizontal) e sempre que finalizo, salvo as mesmas dentro de pastas dos clientes e mantenho as originais como base. . Gostaria de criar um número de controle sequencia, para toda vez que eu abrisse essa 'planilha base' o número de controle dela acrescentasse +1, como por exemplo 201906001 (onde 2019 é o ano, 06 é o mês e o 001 é a sequência) e da próxima vez que abrisse ficaria 201906002,201906003... e assim por diante e atualizasse o mês e o ano conforme a data atual. Nas planilhas em anexo seria para ficar no campo Proposta Nº xxxxxxx

PLANILHA OFICIAL ALBATROZ - HORIZONTAL.xlsx PLANILHA OFICIAL ALBATROZ - VERTICAL.xlsx

18 de junho de 2019

Instale uma cópia dos códigos abaixo no módulo de EstaPasta_de_trabalho dos respectivos arquivos (que você trata por planilha), conforme indicado, assim:
1. copie o código daqui
2. a partir de qualquer planilha tecle 'Alt+F11' para acessar o editor de VBA
3. no lado esquerdo da tela dê duplo clique em EstaPasta_de_trabalho
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

arquivo HORIZONTAL

Private Sub Workbook_Open()
 Sheets("Planilha1").[F3] = "PROPOSTA Nº " & Format(Date, "yyyymm") & Format(Right([F3], 3) + 1, "000")
End Sub

arquivo VERTICAL

Private Sub Workbook_Open()
 Sheets("Planilha1").[E3] = "PROPOSTA Nº " & Format(Date, "yyyymm") & Format(Right([E3], 3) + 1, "000")
End Sub

iPauchner · 24 de junho de 2019

Muito obrigado, funcionou perfeitamente.

iPauchner · 13 de janeiro de 2020

Olá, novamente obrigado pela ajuda. Agora gostaria de saber se é possível gerar esse comando para que ele reinicie do "000" a contagem todo início de mês. A planilha que estou utilizando o código está em anexo.

PLANILHA OFICIAL ALBATROZ - HORIZONTAL.xlsx

14 de janeiro de 2020

9 horas atrás, iPauchner disse:

... para que ele reinicie do "000" a contagem todo início de mês.

Não seria "001" ?

If Mid(Sheets("Planilha1").[F3], 17, 2) * 1 = Month(Date) Then
  Sheets("Planilha1").[F3] = "PROPOSTA Nº " & Format(Date, "yyyymm") & Format(Right([F3], 3) + 1, "000")
 Else: Sheets("Planilha1").[F3] = "PROPOSTA Nº " & Format(Date, "yyyymm") & "001"
 End If