Olá digo203

Mande um outro arquivo texto com mais linhas e demostre onde ocorre os porblemas, pois adicionei linhas no que vc mandou e não ocorreu o erro que vc comentou (ELIMINA AS COLUNAS DAS FORMULAS).
Quanto a data, altere o código nesta parte:
Cells.Replace What:="aj", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Selection.Value = Format(Selection, "dd/mm/yy")

Veja se é por aí...

Márcio Rodrigues

Olá digo203

Mande um outro arquivo texto com mais linhas e demostre onde ocorre os porblemas, pois adicionei linhas no que vc mandou e não ocorreu o erro que vc comentou (ELIMINA AS COLUNAS DAS FORMULAS).
Quanto a data, altere o código nesta parte:
Cells.Replace What:="aj", Replacement:="", LookAt:=xlPart, SearchOrder _
:=xlByRows, MatchCase:=False, SearchFormat:=False, ReplaceFormat:=False

Selection.Value = Format(Selection, "dd/mm/yy")

Veja se é por aí...

Márcio Rodrigues

Olá Marcio, tudo bem?

Obrigado pela resposta.

Segue em anexo o txt com duas linhas a mais.

Por favor, rode o 1º que mandei da primeira vez e depois rode esse com 2 linhas a mais.
Vc verá que ao rodar este com duas linhas a mais a macro exclui as colunas com formulas.
Isso ocorre sempre que o txt tem linhas a mais ou a menos do primeiro.

Experimenta formatar assim.
"mm/dd/yyyy"

Eu tive o mesmo problema numa textbox e formatei invertido.

Experimenta formatar assim.
"mm/dd/yyyy"

Eu tive o mesmo problema numa textbox e formatei invertido.

Ola kurkas, obrigado pela resposta.

Este problema de datas funcionou com o que o Marcio e vc me passou.

Agora so falta resolver o problema das colunas com formulas que a macro esta excluindo quando o arquivo em txt tem mais linhas que o 1º.

Veja se atende

Veja se atende

Olá Reinaldo.

Obrigado pela resposta!

Fiz o teste aqui e as linhas nao estao sendo inseridas, elas estao sobrepondo as anteriores.

Eu preciso que as linhas sejam inseridas deslocando as anteriores para baixo.

Olá digo203

Substitua a linha de código abaixo:

Range("$C$52:$J$250").Select ' Aqui e a data que não estava retorndo

Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
'Selection.EntireRow.Delete 'Aqui vc estava excluíndo as linhas
Selection.Delete Shift:=xlUp 'Aqui vai excluir só o range de células vazias.
Range("K50").Select

Veja se é por aí!!!

Márcio Rodrigues

Olá digo203

Substitua a linha de código abaixo:

Range("$C$52:$J$250").Select ' Aqui e a data que não estava retorndo

Selection.SpecialCells(xlCellTypeBlanks).Select
Application.CutCopyMode = False
'Selection.EntireRow.Delete 'Aqui vc estava excluíndo as linhas
Selection.Delete Shift:=xlUp 'Aqui vai excluir só o range de células vazias.
Range("K50").Select

Veja se é por aí!!!

Márcio Rodrigues

Márcio,

Deu certo.

Muito obrigado pela ajuda.

Abraços

Caso seja necessário reabrir o tópico, o autor poderá enviar uma MP para um dos moderadores solicitando o desbloqueio.