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 ...

Fechar o Formulario nao resolve???? Se nao disponibilize seus arquivos. como modelo.

Se eu entendi provavelmente isso resolve seu problema. Cole esses dois codigos em Esta Pasta de Trabalho Private Sub Workbook_Activate() Applicati...

Tente essa Application.Dialogs(xlDialogFormulaReplace).Show

Disponibilize o arquivo como modelo...

Nao entendi muito bem... E pra separar em duas planilhas o que é M ou T????? Explica melhor .

Como vc fez a Tabela Dinamica para dar o resultado esperado???????? Qto ao range dinamico sim é possivel ajustar inclusive tem um link fixo aqui no f...

Segue com Tabela Dinamica Criei um range dinamico com o objetivo de nao ter que ficar ajustando a base de dados da tabela dinamica, isso acontece au...

Coloque essa instrução no lugar de uma das duas variaveis para identificar as linhas seu codigo do until .... linha = Range("A" & Row...

Vc precisa ter uma lista exclusiva de nomes assim vai funcionar corretamente O que vc precisa fazer é apenas ampliar a lista que vc mandou.. Nao imp...