Converter data

2024 - VBA & Macros

Post Recente por GILTON 7 anos atrás

4 Posts

3 Usuários

0 Reactions

1,063 Visualizações

RSS

GILTON

(@gilton)

Posts: 21

Eminent Member

Topic starter

Bom dia

Preciso de transformar uma data em texto exemplo:
Ex.. usuário irá digitar a dar 01/01/2018...e preciso de uma código em vba para deixar a data sem as barras...somement 01012018.....nao pode ficar sem os zeros 112018.....e sim 01012018.

Agradeço a ajuda

Obrigado

Postado : 26/02/2018 5:32 am

klarc28

(@klarc28)

Posts: 971

Prominent Member

É necessário formatar a célula com 8 zeros, conforme imagem. O código está no arquivo anexo.

Postado : 26/02/2018 5:54 am

Osvaldomp

(@osvaldomp)

Posts: 858

Prominent Member

...e preciso de uma código em vba para deixar a data sem as barras...somement 01012018.....

Experimente após colar o código abaixo no módulo da planilha.

Private Sub Worksheet_Change(ByVal Target As Range)
 Dim d As String
  If InStr(Target.Value, "/") = 0 Then Exit Sub
  d = Replace(Target.Value, "/", "")
  Target.NumberFormat = "@"
  Target.Value = d
End Sub

Osvaldo

Postado : 26/02/2018 6:29 am