Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Macro com resultado não previsto

Dicas dos mais variados tipos, necessidades, angústias, enfim
walsug
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Set 10, 2015 7:29 am

Macro com resultado não previsto

Mensagem por walsug »

No Excel tenho a seguinte situação :

09/01/2015 00:04 9 1 2015 00:04:00
09/01/2015 00:05 9 1 2015 00:05:00
09/01/2015 00:05 9 1 2015 00:05:00
09/01/2015 00:06 9 1 2015 00:06:00

Na parte da esquerda en negrito temos quatro linhas do Excel com a data e horas juntas (coluna A). Ao lado deles, temos mês, dia, ano e horas separadas (colunas B a E). Foi usado separador de colunas passo a passo manualmente (Dados --> Texto para Colunas --> ...).


Então foi feita um macro seguindo passo a passo no item anterior. Abaixo o resultado após rodar a macro.

09/01/2015 00:04 9 1 2015 12:04:00 AM
09/01/2015 00:05 9 1 2015 12:05:00 AM
09/01/2015 00:05 9 1 2015 12:05:00 AM
09/01/2015 00:06 9 1 2015 12:06:00 AM

Observamos que temos a data igual ao primeiro exemplo e horas aparece no sistema americano.

Então para que rodemos um macro e que apresentem os resultados do primeiro exemplo, qual(is) modificações devo fazer ?

Segue abaixo o macro do segundo exemplo :



Sub Macro1()

'

' Macro1 Macro

''

Columns("A:A").Select

Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _

TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _

Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _

"/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _

TrailingMinusNumbers:=True

End Sub


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro com resultado não previsto

Mensagem por Reinaldo »

Aparentemente nada errado, no teste que efetuei não ocorreu o relatado; creio eu que a rotina tenderá utilizar as configurações de seu sistema operacional.
Experimente então acrescentar uma formatação na coluna apos o texttocolum.(ou mesmo antes)

Código: Selecionar todos

Sub Macro1()

Columns("A:A").Select
Selection.TextToColumns Destination:=Range("B1"), DataType:=xlDelimited, _
TextQualifier:=xlDoubleQuote, ConsecutiveDelimiter:=True, Tab:=True, _
Semicolon:=False, Comma:=False, Space:=True, Other:=True, OtherChar:= _
"/", FieldInfo:=Array(Array(1, 1), Array(2, 1), Array(3, 1), Array(4, 1)), _
TrailingMinusNumbers:=True
    
Columns("E:E").Select
Selection.NumberFormat = "h:mm:ss"

End Sub


walsug
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Qui Set 10, 2015 7:29 am

Re: Macro com resultado não previsto

Mensagem por walsug »

Obrigado por responder, mas o resultado continua como no sistema americano (AM / PM) após rodar Macro. Já tentei no computador do trabalho, de casa, mas continua mesma coisa.
Onde temos por exemplo 0:05, deveria também na separação dar 0:05, mas aparece dando 12:05 AM usando o Macro. Já formatei a coluna no item Fontes, configuraçao para horas, mas sempre me dá resultado no sistema americano.
Mas se eu fizer manualmente no Excel aparece o resultado que quero. Talvez se voce salvar o macro (o excel) e abrir logo em seguida o resultado pode ser em sistema americano.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Macro com resultado não previsto

Mensagem por Reinaldo »

Pode postar seu modelo de planilha, com alguns dados e a rotina


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder