Este fórum está sendo desativado

[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

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

[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

[wagnertrinfer]

ele me da esse erro
IMG] http://gurudoexcel-forum.s3.amazonaws.c ... 729264.png [/IMG]

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

[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

[wagnertrinfer]

muito estranho tentei novamente e deu erro

[wagnertrinfer]

podem deixar vou me virar por aqui .. obrigado pela ajuda