Detalhes de Excel planilha vba autonumeracao orcamento recibo

PropriedadeValor
Nome:Excel planilha vba autonumeracao orcamento recibo
Descricao:

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.



Nome do arquivo:Excel planilha vba autonumeracao orcamento recibo.zip
Tamanho: Vazio
Tipo:zip (Tipo de Mime: application/zip)
Autor:Escola Saberexcel VBA Estudos®
Criado em: 25/11/2011 08:51
Visitas:Todos
Responsavel:Autor
Acessos:2691 Acessos
Atualizado em: 25/11/2011 08:52
Site: