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