Excel planilha vba autonumeracao fatura recibo

Sex, 25 de Novembro de 2011 07:07 Expedito Marcondes
Imprimir

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)

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