|
 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.
|