ERRO MACRO CONVERTER TEXTO PARA DATA

2024 - VBA & Macros

Post Recente por luke002 7 anos atrás

5 Posts

3 Usuários

0 Reactions

1,097 Visualizações

RSS

luke002

(@luke002)

Posts: 21

Eminent Member

Topic starter

Bom dia

Pesquisei na ajuda mais as solucoes que achei nao resolveram a questao.

Estou com um problema no momento da conversao de texto para data como na imagem em anexo.Usei a macro para remover os espacos em branco mais as primeiras linhas nao se convertem como as do quadro azul.

O unico jeito que consegui converter e indo manualmente e deletando o pequeno espaco que tem antes do texto.

Teria como fazer isso atravez de macro ?

obrigado

Postado : 18/02/2018 2:30 am

gfranco

(@wzxnet7)

Posts: 653

Honorable Member

Bom dia.
Creio que o seguinte ajuste seja suficiente:
Na macro chamada "dividir":

Sheet1.Range("C" & linha).Value = VBA.CDate(VBA.Trim(str(0)))

Resposta útil? Clique na mãozinha ao lado do botão Citar.

Postado : 18/02/2018 3:57 am

luke002

(@luke002)

Posts: 21

Eminent Member

Topic starter

wzxnet7

Opa amigo

O codigo ficaria assim ? Eu alterei a coluna de data para F ao inves de C

Prq aqui nao aconteceu nada

Sub dividir()

On Error Resume Next
Dim linha As Long
Dim str() As String
linha = 2

While Sheet1.Range("A" & linha).Value <> ""
str = Split(Sheet1.Range("A" & linha).Value, "_")
Sheet1.Range("F" & linha).Value = str(0)
Sheet1.Range("D" & linha).Value = str(1)
Sheet1.Range("E" & linha).Value = str(2)
Sheet1.Range("C" & linha).Value = str(3)

linha = linha + 1
Sheet1.Range("F" & linha).Value = VBA.CDate(VBA.Trim(str(0)))
Wend


End Sub

Postado : 18/02/2018 4:20 am

Fernando Fernandes

(@fernandofernandes)

Posts: 43750

Illustrious Member

Uma possibilidade

Sub dividir()
On Error Resume Next
Dim linha As Long
Dim str() As String

linha = 2

While Sheet1.Range("A" & linha).Value <> ""
    str = Split(Sheet1.Range("A" & linha).Value, "_")
    Sheet1.Range("F" & linha).Value = VBA.CDate(VBA.Right(str(0), 10))
    Sheet1.Range("D" & linha).Value = str(1)
    Sheet1.Range("E" & linha).Value = str(2)
    Sheet1.Range("C" & linha).Value = str(3)
    linha = linha + 1
Wend
End Sub

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

Postado : 18/02/2018 4:40 am