VBA - Texto para colunas

[BrunoMJoia]

Pessoal, bom dia,

 

Preciso da ajuda de vocês. Tenho uma macro que realiza o comando texto para colunas, em uma coluna q contém a informação de data e hora juntas.

Quando realizo o comando sem utilizar a macro ele funciona perfeitamente, separando data e hora.

Porém quando utilizo a macro ele altera as horas para hh:mm:ss AM/PM, o que no meu caso não serve.

Existe alguma maneira da Macro realizar o comando sem alterar a formatação das horas?

 

Application.DisplayAlerts = False

   

    Range("G2").Select
    Range(Selection, Selection.End(xlDown)).Select
    Selection.TextToColumns Destination:=Range("G2"), _
    DataType:=xlDelimited, Space:=True
        
 Application.DisplayAlerts = True

 

TESTE.xlsx

[BrunoMJoia]

Sub TESTES()

Dim LINHA As Long

LINHA = 1
While ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1) <> ""

Dim TestString As String
TestString = ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1).Value
Dim TestArray() As String
TestArray = Split(TestString, " ")
ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1).Value = TestArray(0)
ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 1).Select
Selection.NumberFormat = "m/d/yyyy"



ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 2).Value = TestArray(1)

ThisWorkbook.Sheets("Planilha1").Cells(LINHA, 2).Select
Selection.NumberFormat = "h:mm"
LINHA = LINHA + 1



Wend
End Sub

 

adicionado 0 minutos depois

Resolvido!!