Outro numerar documento ao abrir a planilha

[Jerson Vieira]

Salve galera!

 

Fiz uma pesquisa aqui no fórum, mas não encontrei o que procuro.

Preciso de uma macro que numere, em ordem crescente, um documento criado no Calc sempre

que o mesmo for aberto. Desde já agradeço pela atenção e ajuda.

 

Sds

Jerson Vieira

[Schiavinatto]

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

 

[Jerson Vieira]

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

[Schiavinatto]

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.

 

 

[Jerson Vieira]

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.

[Schiavinatto]

@Jerson Vieira, não será em todas que esta dica ira funcionar. OK