Excel criar uma macro para gerar um numero sequencial automatico

[ADRIANO SANTOS SOUSA]

Bom dia Caros Prezados.

 

Tenho uma planilha que uso para fazer solicitações de compra aos fornecedores, depois de alguns problemas observei que seria necessário criar uma macro para numerar essas solicitações como uma espécie de controle útil.

Pois bem criei a seguinte macro: 

Sub Imprime()
ActiveWindow.SelectedSheets.PrintOut Copies:=1, Collate:=True, _
        IgnorePrintAreas:=False
Range("G1").Value = Range("G1").Value + 1
End Sub
 

Acontece que todas as vezes que gero uma nova solicitação tenho que executar a macro de forma manual.

Teria uma forma dela gerar este numero automaticamente todas as vezes em que eu abrir a planilha?

 

Desde já grato a uma eventual ajuda.

 

 

PLANILHA EM ANEXO (RESUMO DE ESTOQUE-->GERAR SOLICITAÇÃO)

[Visitante]

Instale uma cópia do código abaixo no módulo de EstaPasta_de_trabalho.

 

Private Sub Workbook_Open()
 Sheets("EFETURAR SOLICITAÇÃO").Range("G1").Value = Sheets("EFETURAR SOLICITAÇÃO").Range("G1").Value + 1
End Sub

 

[ADRIANO SANTOS SOUSA]

@osvaldomp Fiz como indicou, mas não aconteceu nada, quando abro a planilha não aparece numeração e quando peço pra imprimir também não aparece...

 

Teria algum e-mail pra que eu possa estar enviando a planilha de e você estar vendo ela de perto?

 

Desde já grato!

[Visitante]

Disponibilize aqui no fórum uma amostra do seu arquivo Excel com o código que passei instalado.

 

Para anexar, compacte antes o arquivo com macros, e após clicar em Responder, localizado abaixo da última postagem, clique em escolha os arquivos.

 

[ADRIANO SANTOS SOUSA]

@osvaldomp Ok.

 

 

Segue arquivo...

 

Att;

[Visitante]

  Em 21/06/2019 às 14:20, ADRIANO SANTOS SOUSA disse:

Segue arquivo...

Não seguiu

Expandir  

 

[ADRIANO SANTOS SOUSA]

segue agora.

controle_de_estoue_mês_junho.rarBuscando informações...

[Visitante]

  Em 21/06/2019 às 14:07, ADRIANO SANTOS SOUSA disse:

Fiz como indicou, ..

Expandir  

 

Não exatamente!

Eu indiquei módulo de EstaPasta_de_trabalho e no entanto você instalou no Módulo10.

[ADRIANO SANTOS SOUSA]

Boa Tarde.

Está correto?

[Patropi]

Boa tarde @ADRIANO SANTOS SOUSA

 

O teu código está instalado no módulo 10.

 

Para ver como é verdade clique 2 vezes Em esta pasta de Trabalho e verá o Módulo em branco.

 

Acabei de abaixar o teu arquivo e constatar isso.

 

Confira e dê retorno.

 

[]s

[Visitante]

  Em 21/06/2019 às 16:28, ADRIANO SANTOS SOUSA disse:

 

Está correto?

 

Expandir  

 

Exatamente! Agora está correto!

Observe o valor em G1:H1, salve, feche, reabra o arquivo e observe o novo valor em G1:H1.

 

dica - não mescle células, como você fez em G1:H1, pois células mescladas são inúteis, desnecessárias e ainda podem provocar erros em fórmulas e em macros.

[Patropi]

@osvaldomp

 

A imagem que ele postou mostra a macro instalada no Modulo 11

 

[]s

[ADRIANO SANTOS SOUSA]

Senhores.

 

 

Exclui os módulos que estavam abertos à toa e add o código no local correto e a macro funcionou da forma que eu queria!

 

Mesmo as células estando mescladas a macro funcionou corretamente como era o pretendido.

 

Primeiramente agradeço todos os senhores envolvidos e meu muito obrigado pela ajuda, agora com essa macro em funcionamento irei eliminar os argumentos de que não solicitei determinadas compras.

 

Grato senhores!

[Patropi]

@ADRIANO SANTOS SOUSA

 

Não se esqueça de clicar em curtir e nossas respostas e marcar a resposta do Osvaldo como Resolvido, conforme link com instrução na minha assinatura.

 

[]s

[ADRIANO SANTOS SOUSA]

Segue arquivo para que possam verificar.

 

 

 

CONTROLE_DE_ESTOUE_MÊS_JUNHO.rarBuscando informações...

[Visitante]

  Em 21/06/2019 às 16:43, Patropi disse:

@osvaldomp

A imagem que ele postou mostra a macro instalada no Modulo 11

 

Expandir  

 

Você tem razão, Mestre.

Eu dei mais atenção à seta preta que ele colocou apontando para EstaPasta, para o código e na caixa de seleção à direita do módulo, onde consta Workbook_Open.

E não prestei atenção à descrição do módulo que está realmente Módulo11. Mais estranho é que à esquerda está selecionado o módulo de uma planilha.

 

Mas parece que ele acabou instalando corretamente.

 

 

adicionado 5 minutos depois

  Em 21/06/2019 às 16:51, ADRIANO SANTOS SOUSA disse:

Segue arquivo para que possam verificar.

Expandir  

 

Correto.

 

O Módulo3 pode ser excluído também.

[ADRIANO SANTOS SOUSA]

  Em 21/06/2019 às 16:57, osvaldomp disse:

 

Você tem razão, Mestre.

Eu dei mais atenção à seta preta que ele colocou apontando para EstaPasta, para o código e na caixa de seleção à direita do módulo, onde consta Workbook_Open.

E não prestei atenção à descrição do módulo que está realmente Módulo11. Mais estranho é que à esquerda está selecionado o módulo de uma planilha.

 

Mas parece que ele acabou instalando corretamente.

 

 

adicionado 5 minutos depois

 

Correto.

 

O Módulo3 pode ser excluído também.

Expandir  

Ok!

 

Excluído com sucesso!

 

Obrigado.