Ir ao conteúdo
  • Cadastre-se

Outro numerar documento ao abrir a planilha


Posts recomendados

Você pode manter um banco de dados do documento criado e numerados em sequencia, ou só registrar o último numero usado, e assim ao abrir o formulário no campo NUMERAÇÃO seria o maior registrado + 1.

 

Para impressão, creio que ocorra, uma macro que imprima e registre o documento impresso.

 

Veja este exemplo disponibilizado no Escritório Aberto

https://wiki.documentfoundation.org/images/0/07/Recibo_gs.ods

 

Link para o comentário
Compartilhar em outros sites

Em 22/09/2018 às 11:44, g.schiavinatto disse:

Você pode manter um banco de dados do documento criado e numerados em sequencia, ou só registrar o último numero usado, e assim ao abrir o formulário no campo NUMERAÇÃO seria o maior registrado + 1.

 

Para impressão, creio que ocorra, uma macro que imprima e registre o documento impresso.

 

Veja este exemplo disponibilizado no Escritório Aberto

https://wiki.documentfoundation.org/images/0/07/Recibo_gs.ods

 

Bom dia Gilberto!

 

Tenho essa macro que funciona no Excel, mas não consigo fazê-la funcionar no Calc. Tem como adaptá-la para o Calc?

Minha ideia seria associá-la ao evento "Ao abrir documento".

 

Public Sub Numeração_Automática()    

Range ("A3").Value = Range("A3") +1

End Sub

Link para o comentário
Compartilhar em outros sites

Ola @Jerson Vieira,  só complete a Macro: Para acionar o Suporte ao VBA.

 

 

' Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
Public Sub Numeração_Automática()    
Range ("A3").Value = Range("A3") +1
End Sub

 

Lembrando de sempre Salvar o arquivo antes de sair.

 

'Para funcionar na abertura do arquivo

'Ferramentas / Personalizar / Eventos

'Ao abrir documento

'ligar a MACRO ok.

 

 

  • Curtir 1
Link para o comentário
Compartilhar em outros sites

Em 25/09/2018 às 18:10, g.schiavinatto disse:

Ola @Jerson Vieira,  só complete a Macro: Para acionar o Suporte ao VBA.

 

 


' Attribute VBA_ModuleType=VBADocumentModule
Option VBASupport 1
Option Explicit
Public Sub Numeração_Automática()    
Range ("A3").Value = Range("A3") +1
End Sub

 

Lembrando de sempre Salvar o arquivo antes de sair.

 

'Para funcionar na abertura do arquivo

'Ferramentas / Personalizar / Eventos

'Ao abrir documento

'ligar a MACRO ok.

 

 

Perfeito Gilberto. Muito obrigado pela ajuda.

  • Curtir 2
Link para o comentário
Compartilhar em outros sites

Crie uma conta ou entre para comentar

Você precisa ser um usuário para fazer um comentário

Criar uma conta

Crie uma nova conta em nossa comunidade. É fácil!

Crie uma nova conta

Entrar

Já tem uma conta? Faça o login.

Entrar agora

Sobre o Clube do Hardware

No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais

Direitos autorais

Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais

×
×
  • Criar novo...