Ir ao conteúdo
  • Cadastre-se
RogérioOliveira

RESOLVIDO Criar uma planilha com n° sequencial e nome arquivo

Recommended Posts

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 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

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



 

Compartilhar este post


Link para o post
Compartilhar em outros sites

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.

Compartilhar este post


Link para o post
Compartilhar em outros sites

 

... 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

 

Compartilhar este post


Link para o post
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisar ser um membro para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora





Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas publicações sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×