Este fórum está sendo desativado

[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

[alexandrevba]

Bom dia!!

A string tem sempre 6 digitos? (15/08/16) ou pode ter casos como (15/08/2016)?

Código: Selecionar todos

Sub 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 todos

Cells(X, "A").Value = Format(Cells(X, "A").Value, "00/00/00")

Att

[Adrian]

Alexandre não deu certo.

[alexandrevba]

Boa tarde!!

Mande seu arquivo modelo, pois eu não tive problema, se é que eu entendi.

Att

[Adrian]

Nas células onde descreve: "Vou digitar a data aqui", é onde quero ver o resultado

segue anexo

[alexandrevba]

Boa tarde!!

Eu não encontrei essa expressão "Vou digitar a data aqui" no seu arquivo!


Att

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

[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