Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
ERRO MACRO CONVERTE...
 
Notifications
Clear all

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,075 Visualizações
RSS
 luke002
(@luke002)
Posts: 0
New 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: 0
New 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)))
 
Postado : 18/02/2018 3:57 am
 luke002
(@luke002)
Posts: 0
New 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
 
Postado : 18/02/2018 4:40 am
 luke002
(@luke002)
Posts: 0
New Member
Topic starter
 

PERFEITO REINALDO!!!

 
Postado : 18/02/2018 4:58 am
Forum Jump:
  Tópico Anterior
Próximo Tópico