Página 1 de 1
Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 11:10
por Adrian
Bom dia Parceiros!,
Rotineiramente digito datas na célula B1. Mas o que me cansa é por exemplo digitar assim: 15/08/2016, tendo sempre que digitar esse símbolo "/" nas datas. Eu queria que após eu digitar assim : 150816, a macro fizesse assim 15/08/2016 , tem como pessoal?
Grato
Adriano
Re: Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 11:30
por alexandrevba
Bom dia!!
A string tem sempre 6 digitos? (15/08/16) ou pode ter casos como (15/08/2016)?
Código: Selecionar todosSub AleVBA_2774
Dim X As Long, LastRow As Long
Const StartRow As Long = 2
LastRow = Cells(Rows.Count, "A").End(xlUp).Row
For X = StartRow To LastRow
Cells(X, "B").Value = Format(Cells(X, "A").Value, "00/00/00")
Next
End Sub
Caso não queira o resultado na coluna B, use a linha, conforme abaixo.
Código: Selecionar todosCells(X, "A").Value = Format(Cells(X, "A").Value, "00/00/00")
Att
Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 11:52
por Adrian
Alexandre não deu certo.
Re: Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 13:11
por alexandrevba
Boa tarde!!
Mande seu arquivo modelo, pois eu não tive problema, se é que eu entendi.
Att
Re: Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 14:01
por Adrian
Nas células onde descreve: "Vou digitar a data aqui", é onde quero ver o resultado
segue anexo
Re: Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 14:46
por alexandrevba
Boa tarde!!
Eu não encontrei essa expressão "Vou digitar a data aqui" no seu arquivo!
Att
Formatar Automaticamente data via Macro
Enviado: 15 Ago 2016 às 15:08
por Adrian
Está escrita na célula onde vou digitar a data. Nessa célula eu quero digitar a data assim: 150816, pra macro me responder assim: 15/08/2016.
Re: Formatar Automaticamente data via Macro
Enviado: 22 Ago 2016 às 09:30
por orsogarcia
Eu utilizo o seguinte código quando vou inserir datas. Acredito que ele torna tudo mais fácil haha =)
abraço
Código: Selecionar todos'codigo inserir barras
'Formata : dd/mm/aa
If Len([b]admissao[/b]) = 2 Or Len([b]admissao[/b]) = 5 Then
[b]admissao[/b].Text = [b]admissao[/b].Text & "/"
SendKeys "{End}", True
End If
obs: admissão é o meu textbox