Fiz uma alteração e ficou perfeito, VALEU!!! Obrigado pela ajuda. Uma ótima semana; Sub AleVBA_26498() Dim ws As Worksheet On Error Resum...

eheh... é que mandei apenas uma guia, agora acrescentei mais duas. a planilha original vai até 2020, por isso só mandei uma parte. Segue com mais gu...

Deu erro, e quando mandei depurar ficou em destaque: WS.Columns("A:I").Sort Key1:=WS.Columns("A"), Order1:=xlDescending A seleç...

Opa, muito obrigado mesmo. Abração

Segue a planilha, não consegui mudar... Vlw!

Deu certo, consegui com o seguinte código: Sub abrirArquivo() MsgBox "Selecione o arquivo txt", vbOKOnly, "Seleção de Arquivo" ...

Opa, muito obrigado. Valeu mesmo! Abraço

Blz... vou tentar adaptar aqui... VLW!

É que são muitos valores, não sei se dá certo... aqui citei um pequeno exemplo...

Entendi... obrigado novamente