Gerar numero sequencial em nova aba

[Luiz1961]

Bom dia pessoal. Tenho um modelo de orçamento em excel. Ele tem um número de orçamento e preciso que a todo novo orçamento, ele aumente o número automaticamente e grave em uma nova planilha ou em uma nova aba, alterando o nome do arquivo ou o nome da aba para o nome fantasia do cliente. Por exemplo, na célula G9 consta o número do orçamento e na célula b10, consta o nome fantasia do cliente. Alguém tem este código em vba?

Modelo de orçamento.xlsx

[Visitante]

 

Sub CópiaDePlanilha()
 Sheets("Planilha1").[G2] = Sheets("Planilha1").[G2] + 1
 Sheets("Planilha1").Copy After:=Sheets(Sheets.Count)
 ActiveSheet.Name = [B6]
End Sub

 

[Luiz1961]

Osvaldo, ainda não sou expert em VBA. Devo colocar este código em um módulo?

[Visitante]

Exato, Luiz.

Instale uma cópia do código em um módulo comum, assim:
1. copie o código daqui
2. a partir da planilha em que estão os dados tecle 'Alt+F11' para acessar o editor de VBA
3. no menu do editor / Inserir / Módulo
4. cole o código na janela em branco que vai se abrir
5. feito! 'Alt+Q' para retornar para a planilha e testar

para rodar o código:
6. tecle 'Alt+F8' / selecione a macro correspondente / Executar, ou insira um botão na planilha e vincule-o à macro ou vincule-a a um atalho de teclado (Alt+F8 / Opções).
Essas três opções para rodar o código podem ser implantadas isoladamente ou em conjunto.

[Luiz1961]

Osvaldo, ficou melhor que encomenda. Muitíssimo obrigado.

Abraços.

[Patropi]

Boa noite @Luiz1961

 

Faltou você clicar em Curtir nas respostas do Osvaldo e como a resposta solucionou a dúvida, faltou também você marcar o tópico como Resolvido (Na minha assinatura tem um link para uma instrução de como proceder).

 

[]s