Disponibilize a planilha, o TXT e o codigo que esta usando atualmente.

Pode ser assim? Private Sub Worksheet_Change(ByVal Target As Range) If Target.Column <> 1 And Target.Column <> 3 Then Exit S...

Postar a imagem é o mesmo que nao postar nada... Alem de dar um trabalhão....

Se postar o arquivo com o resultado esperado manualmente fica facil.. A imagem e nada é a mesma coisa.

Cole esse codigo em um modulo Sub Criar() Dim WSPlan As Worksheet Dim Arq As String On Error Resume Next For Each WSPlan In Workshe...

Com base no seu arquivo Para funcionar corretamente precisa seguir essas condições O cabeçalho deve estar na linha 2. Não deve ter linhas vazias ...

Acho que nao

Eu usaria uma tabela dinamica.

Vc postou 1 arquivo com 1 aba...Onde esta as outras??

Cara agora nao entendi... vc disse que queria a exibição da caixa de dialogo localizar e substituir. E obvio que ao exibir a mesma o usuario precisa...

Nao da pra colocar o arquivo localmente apenas para uso imediato???

Faltou a planilha de exemplo com os dados para ajustar o codigo e enviar o email

Precisa de um exemplo que mostre como sao seus arquivos (se sao varios arquivos ou varias abas), w um pequeno exemplo de como espera o resultado.

Concordo plenamente com o Doni, funciona para pequenos estoques e com a ciencia de que cedo ou tarde vai dar pau. Mas ve se é isso

Pra selecionar a primeira do arquivo pode ser feito com essa linha de codigo Sheets(1).Select E pra selecionar a proxima aba a direita da aba ativa ...