Home Excel - Dicas Microsoft Excel VBA Excel VBA - Autonumeracao Excel planilha vba autonumeracao fatura recibo

Excel planilha vba autonumeracao fatura recibo

E-mail Imprimir PDF

Saberexcel - o site de quem precisa aprender macros ms excel vba

Esse Macro do Aplicativo Microsoft Excel VBA e Fórmula com a Função (Texto e data Hoje()), com formatação como podem observar abaixo, faz uma formatação personalizada em determinado número envolvendo a data (ano e mês) mais números sucessivos de zeros.
Esse tipo de formatação é muito útil para quem precisa ter um tipo de autonumeração em recibos, orçamentos e outro documento desejado.
Espero que o exemplo possa ser útil. Fique com Deus, Expedito Marcondes.

Esse é o exemplo simples feito na planilha que voce poderá baixar no final da página se quiser.
' - - - - - - - - - - - - - - - - - - - - - -

 
Fórmula usada:
=TEXTO(HOJE();"aaaa-")&TEXTO(HOJE();"mm-")&TEXTO(G6;"000000")

Usei para a autoincrementação que você poderá usar em um evento Open(), cada vez que abrir mudar o número do documento.
Sub controlar_numero_texto()
[G6].Value = [G6].Value + 1
End Sub

'- - - - - - - - - - - - - - - - - -
Também poderá salvar o arquivo com qualquer nome desejado a partir desse número do recibo(Celula)  + um nome.
O macro abaixo salva o seu Recibo(a planilha) com nome também formatado pelos valores das células (C4) e também da célula(e4)
Ex: RECIBO Nº_2011-11-009840  - Para isso basta voce inserir o diretorio corretamente no macro ( ChDir "C:\VBA")

Sub Salvar_como()
Dim FNome1 As String
Dim FNome2 As String

ChDir "c:\vba\"

FNome1 = Range("c4").Value
FNome2 = Range("E4").Value
    
ActiveWorkbook.SaveAs Filename:="c:\vba\" + FNome1 + "_" + FNome2 + ".xls", FileFormat:=xlNormal, Password:="", WriteResPassword:="", _
ReadOnlyRecommended:=False, CreateBackup:=False
ActiveWorkbook.Close Savechanges:

End Sub



Aprenda tudo sobre planilhas do Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Escola Saberexcel VBA Estudos® - Treinamentos com Macros, Fórmulas e Funções.



  Baixe o exemplo de planilha contendo os  macros e fórmula acima:
Excel planilha vba autonumeracao orcamento recibo (85.01 KB)

Última atualização em Qua, 30 de Novembro de 2011 10:34  

Adicionar comentário

"Jamais considere seus estudos como uma obrigação, mas como uma oportunidade invejável para aprender a conhecer a influência libertadora da beleza do reino do espírito, para seu próprio prazer pessoal e para proveito da comunidade." Albert Einstein


Código de segurança
Atualizar

Pesquisa Google SaberExcel

Publicidade Google

Publicidade

Rastreamento Correios

Digite o número do SEDEX conforme o exemplo:
Correios do Brasil

Assinatura SaberExcel

Google Associados

Depoimentos

Visitantes SaberExcel

Excel VBA Estudos®
mod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_countermod_vvisit_counter
mod_vvisit_counterHoje1665
mod_vvisit_counterOntem5672
mod_vvisit_counterEsta Semana11796
mod_vvisit_counterSemana passada36487
mod_vvisit_counterEsse mês25525
mod_vvisit_counterMês passado153723
mod_vvisit_counterTodos10448354
Aprenda MS Excel VBA

Adicione Saberexcel Favoritos

 
 

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA

Aprenda tudo sobre o Aplicativo Microsoft Excel VBA(Visual Basic Application), sozinho, com baixo custo, praticando com os produtos didáticos Saberexcel,


   Sobre as WorksheetFunctions Funções de Planilhas que retornam valores do VBA