Fóruns
Microsoft Excel - 2...
2024 - VBA & Macros
VBA - Replace
 
Notifications
Clear all

VBA - Replace

 
2024 - VBA & Macros
5 Posts
2 Usuários
0 Reactions
663 Visualizações
RSS
 estevaonog
(@estevaonog)
Posts: 2
New Member
Topic starter
 

Pessoal, boa tarde.

Tenho o seguinte código:

Sub NRIs()

Application.DisplayAlerts = False
Application.ScreenUpdating = False

Workbooks.Open Filename:="H:NRIs.XLS"

ActiveSheet.Range("D:D").Replace ".", "/"

Eu quero substituir datas que estão no relatório no formato "dd.mm.yyyy" para "dd/mm/yyyy" mas quando eu rodo a macro, a data fica como "mm/dd/yyyy".

Estou fazendo algo errado?

Obrigado.

 
Postado : 24/02/2016 12:39 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

o excel deve estar zuando as datas nesse replace, então faça de outro jeito, escreva a formula com a função =data(), combinando com esquerda(), direita() e ext.texto(), assim vc consegue garantir que a data continua sendo a que está célula....

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

 
Postado : 24/02/2016 12:44 pm
 estevaonog
(@estevaonog)
Posts: 2
New Member
Topic starter
 

o excel deve estar zuando as datas nesse replace, então faça de outro jeito, escreva a formula com a função =data(), combinando com esquerda(), direita() e ext.texto(), assim vc consegue garantir que a data continua sendo a que está célula....

O pior é que são muitas datas, então terei que pensar numa forma de fazer isso. Obrigado pela dica de onde começar.

 
Postado : 24/02/2016 1:30 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

ué... Coloque na coluna do lado, supondo as datas na coluna M, sei lá:

=date(direita(m2;4)*1;ext.texto(m2;4;2)*1;esquerda(m2;2)*1)

E arrastra pra baixo !

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

 
Postado : 24/02/2016 1:32 pm
Fernando Fernandes
 Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Experimente utilizar a função texto para colunas; selecione a coluna desejada, clicando em "D" por exemplo; selecione a guia Dados e Texto para colunas, clique em avanças duas vezes, nessa terceira tela selecione o radio "Data" e na como ao lado "DMA" (dia mes ano), clique em concluir

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

 
Postado : 25/02/2016 8:07 am
Forum Jump:
  Tópico Anterior
Próximo Tópico