Excel Macro Númeração Sequencial RDV

Wagneroliveirrah · 16 de abril de 2019

Prezados, bom dia,

Trabalho em uma empresa de construção que frequentemente adianta valores a funcionários para que realizem viagens; quando retornam e realizam o acerto, precisamos gerar um relatório de despesas (modelo anexo) para lançar no sistema. Como este modelo não é padrão, cada empresa cria o seu, gostaria de criar uma numeração padronizada para estes relatórios de despesas de viagens (RDV) para que não se percam entre os muitos outros lançamentos no nosso ERP. Não tenho muito conhecimento sobre VBA e preciso criar macros para que a partir da numeração 000.001 crie um novo relatório com numeração 000.002, 000.003 e assim por diante, a cada vez que criar um novo relatório; também preciso que, se por algum motivo um dos relatórios já impressos tenha que ser corrigido, possa reimprimí-lo com a numeração original (tipo: fiz um relatório nº 000.010, por exemplo, no valor de R$ 100,00, mas a diretoria não aprovou o valor e mandou retirar R$ 20,00; farei a correção e a reimpressão com a mesma numeração 000.010). Este trabalho é importante, porque hoje os lançamentos não obedecem a uma sequência numerária, tampouco, um padrão.

Gostaria da ajuda de vocês, tenho um volume considerável de acertos de viagem para lançar.

Aguardo.

Obrigado,

Despesas de Viagem - Teste.xlsx

16 de abril de 2019

10 horas atrás, Wagneroliveirrah disse:

... a partir da numeração 000.001 crie um novo relatório com numeração 000.002, 000.003 e assim por diante, a cada vez que criar um novo relatório; ...

Se você quer que o novo número seja inserido de forma automática então é preciso que você informe em que etapa da criação de um novo relatório você quer rodar a macro. Ou informe se você prefere acionar um botão para rodar a macro e assim inserir o novo número

Wagneroliveirrah · 17 de abril de 2019

Osvaldo, bom dia,

Obrigado pelo retorno. Acho que um botão para criar a próxima numeração seja o mais prático.

adicionado 2 minutos depois

12 horas atrás, osvaldomp disse:

Se você quer que o novo número seja inserido de forma automática então é preciso que você informe em que etapa da criação de um novo relatório você quer rodar a macro. Ou informe se você prefere acionar um botão para rodar a macro e assim inserir o novo número

Osvaldo, bom dia,

Acho que o botão para criar a próxima numeração seja mais prático.

Obrigado,

17 de abril de 2019

Olá, Wagner.

Experimente: cole uma cópia do código abaixo em um módulo comum, em seguida vincule-o a um botão.

Você poderá também atribuir um atalho de teclado para rodar o código (Alt+F8 / selecione o nome do código / Opções). Aí o código poderá ser rodado tanto pressionando o botão como pelo atalho.

Sub AdicionaUmEmI11()
 [I11] = [I11] + 1
End Sub

Wagneroliveirrah · 18 de abril de 2019

Osvaldo, bom dia,

Como eu expliquei antes, não conheço quase nada de VBA, mas tentei fazer do jeito que você falou. Retornou este erro. Se não for pedir muito, teria como você criar este processo para mim, por favor?

Obrigado,

18 de abril de 2019

Olá, Wagner.

Com base na imagem que você postou, o código que passei está contido em outro código () e está no módulo da planilha Despesas de Viagem e não em um módulo comum.

Você poderá colar o código no Módulo2, já existente, basta aplicar duplo clique em Módulo2 e colar o código na janela que irá se abrir. Se já houver outro código lá não há problema, pode colocar também o que passei, e somente o que passei, pois ele não requer qualquer adição como você fez.

Se você preferir colar em um novo módulo então clique no menu Inserir / Módulo.