Página 1 de 1

Contador Automatico

Enviado: 10 Out 2017 às 19:32
por wagnertrinfer
Boa noite a todos

preciso de uma ajuda pq me deu um branco agora.
preciso colocar um contador automático em um formulário que tenho no Excel 2013, e não me lembro como se faz
sei que é no VB, vou inserir uma macro de quando for imprimir depois da impressão ela me retornará limpa e com o numero seguinte já disponível.

desde já agradeço

ats.
wagner

Re: Contador Automatico

Enviado: 10 Out 2017 às 21:40
por babdallas
Veja as duas situações abaixo:
1) Você abriu a pasta de trabalho e abriu o formulário ==> contador 1. Imprimiu uma vez, logo após esta impressão o contador será 2 para a próxima impressão. E assim por diante. Porém, quando fechar a pasta de trabalho e abri-la novamente, o contador é reiniciado no 1.
2) Você abriu a pasta de trabalho no contador 1 (primeira vez que a pasta de trabalho está sendo usada). Depois você imprimiu 5 vexes, logo a próxima impressão terá contador 6. Depois a pasta de trabalho é fechada e aberta no dia seguinte, retornando com contador = 6.
Qual delas você representa o que você deseja? Ou nenhuma delas representa? Caso não se encaixe em nenhum destes casos, por favor detalhe um pouco mais.

Contador Automatico

Enviado: 11 Out 2017 às 10:30
por wagnertrinfer
Bom dia

a opção 2 é a q preciso
fiz no vb o seguinte comando só q nao funcionou:

Private Sub Workbook_BeforePrint (Cancel As Boolen)
Plan1.Select
Range("F4").Value = Range("F4").Value + 1
ThisWorkbook.Save
End Sub

Re: Contador Automatico

Enviado: 11 Out 2017 às 10:41
por wagnertrinfer

Re: Contador Automatico

Enviado: 11 Out 2017 às 11:31
por wagnertrinfer
nao sei se voces me entenderam, mais tenho um relatorio que será como uma nota fiscal com numero sequencial para controle interno
a cada impressao ele virá com um novo numero na sequencia

ex. 1, 2, 3 etc.

Re: Contador Automatico

Enviado: 11 Out 2017 às 11:44
por babdallas
Testei este código e funcionou perfeitamente aqui. Anexa a sua planilha por favor.
Código: Selecionar todos
Private Sub Workbook_BeforePrint (Cancel As Boolen)
               Plan1.Range("F4").Value = Plan1.Range("F4").Value + 1
               ThisWorkbook.Save
End Sub

Contador Automatico

Enviado: 11 Out 2017 às 12:10
por wagnertrinfer
muito estranho tentei novamente e deu erro

Contador Automatico

Enviado: 11 Out 2017 às 13:12
por wagnertrinfer
podem deixar vou me virar por aqui .. obrigado pela ajuda