ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

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 » Qui Set 10, 2015 8:11 am

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: 1366
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 » Qui Set 10, 2015 9:33 am

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


Reinaldo
:oops: :D :mrgreen: :geek:

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 » Qui Set 10, 2015 2:02 pm

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: 1366
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 » Qui Set 10, 2015 2:37 pm

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


Reinaldo
:oops: :D :mrgreen: :geek:

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