Detalhes de vba datas funcao converte data ao digita insere barras

Saberexcel - site das macros
Funçao do Aplicativo Microsoft Excel VBA, converte datas digitadas em células, inserindo as barras de separação de datas dia, mes, ano,
por exemplo voce diigita : (*) Baixe o exemplo de planilha no final da página.
Observe que fizemos uma formatação personalizada na coluna (Data Digitada) @
para aceitar o zero.

Espero tê-lo ajudado! - Fique com Deus, Boa sorte.

DATA DIGITADA - RETORNO - FUNÇAO USADA
01072012 01/07/2010 =SE(C6="";"";ConverteData(C6))
01052010 01/05/2010 =SE(C7="";"";ConverteData(C7))

Funçao converte datas digitas inserindo as barras de separação:

Function ConverteData(vdate) As Date
Application.Volatile
ConverteData = CDate(Left(vdate, 2) & "/" & Mid(vdate, 3, 2) & "/" & Right(vdate, 2))
End Function

Function RetornaFormula(vCelula As Range) As String
'Application.Volatile = True
RetornaFormula = vCelula.FormulaLocal
End Function

Aprenda tudo sobre o plicativo Microsoft Excel VBA com Saberexcel



ESSE EXEMPLO DE PLANILHA FAZ PARTE DOS MÓDULOS COMO FAZER - PROGRAMAÇÃO MS EXCEL VBA - SABEREXCEL

Publicidade:
compre com garantia, segurança e ótimos preços, Lojas Submarino