Criar uma planilha com n° sequencial e nome arquivo

[RogérioOliveira]

Prezados, olá.

 

Peço desculpa se postei o mesmo assunto por outro membro é que sou novo em Excel e estou com dificuldades.

Estou tentando montar um formulário de cadastro e queria que na hora que abrisse a planilha o número de controle fosse sequencial e que a pessoa clicasse em um botão e salvasse direto, mas com o nome do número do controle.

Consegui criar o botão de enviar, mas não consigo criar o número sequencial assim que abre a planilha e o botão que consiga salvar direto com o nome novo.

 

Atenciosamente,

 

Rogério 

[Visitante]

Olá, Rogério.

Bem vindo ao fórum.

 

Para facilitar a ajuda sugiro que você disponibilize uma amostra do seu arquivo, coloque as explicações do que deseja obter na própria planilha.

[RogérioOliveira]

Boa tarde, Osvaldo.

 

Segue o link, aqui no trabalho não tenho permissão para compactar para a extensão .rar, mas em casa consigo.

 

https://www.sendspace.com/ arquivo / h3a29w

 

Obrigado pela ajuda.

 

Rogério

[Visitante]

Olá, Rogério.

Veja se é isso que você quer.

 

-----------------------------------------------------------------------------------------

O código abaixo acrescenta 1 ao valor da célula 'D6' da 'plan1' a cada vez que o arquivo for aberto, instale-o no módulo de EstaPasta_de_trabalho, 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

Private Sub Workbook_Open() Sheets("plan1").[D6] = Sheets("plan1").[D6] + 1End Sub

---------------------------------------------------------------------------------------------

 

Os dois códigos abaixo são para salvar o arquivo. Teste-os e escolha com qual quer trabalhar.

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

para rodar os códigos:
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).


este código abre a caixa de diálogo 'Salvar Como' já preenchida com o nome do arquivo, o tipo e pasta onde salvar

Sub AbreCaixaSalvarComo() Application.Dialogs(xlDialogSaveAs).Show Format([D6], "000")End Sub

este código salva direto, sem abrir a caixa de diálogo; salva com o nome que está em 'D6' da 'plan1', no formato "000", habilitado para macros e na mesma pasta

Sub SalvaComo() ActiveWorkbook.SaveAs Filename:=Format([D6], "000") & ".xlsm"End Sub

 

[RogérioOliveira]

Osvaldo, bom dia.

 

Resolveu sim o meu problema, mas se eu quisesse usar o segundo código e definir uma pasta certa para salvar teria como ?

Porque na verdade após preenchido esse formulário apenas algumas pessoas teriam acesso, para evitar alterações.

 

"este código salva direto, sem abrir a caixa de diálogo; salva com o nome que está em 'D6' da 'plan1', no formato "000", habilitado para macros e na mesma pasta

Sub SalvaComo()
 ActiveWorkbook.SaveAs Filename:=Format([D6], "000") & ".xlsm"
End Sub"

 

 

Obrigado pela ajuda.

[Visitante]

 

... mas se eu quisesse usar o segundo código e definir uma pasta certa para salvar teria como ?

 

 

Sub SalvaComo() ActiveWorkbook.SaveAs Filename:="C:\PastaSecreta\" & Format([D6], "000") & ".xlsm"End Sub

acerte o drive e o nome da pasta

 

[RogérioOliveira]

Obrigado osvaldo, deu certo.