Como Criar um Botão que Abra o "Localizar e Substituir"

[Spinhosay]

Como crio um botão no excel que chame o Localizar e Substituir (atalho Ctrl+L)? Já pesquisei em diversos lugares e não achei a solução. Preciso para poder localizar informações com agilidade em uma planilha com milhares de colunas e linhas.

[Patropi]

Bom dia

 

Acesse o link e veja se é isto que você deseja:

http://inteligencia-mercadologica.blogspot.com.br/2011/11/o-excel-ja-possui-uma-funcao-que.html

 

[]s

[Spinhosay]

Em 2017-5-20 às 10:20, Patropi disse:

Bom dia

 

Acesse o link e veja se é isto que você deseja:

http://inteligencia-mercadologica.blogspot.com.br/2011/11/o-excel-ja-possui-uma-funcao-que.html

 

[]s

Bom Dia Amigo

 

Fiz o que o link sugere. Não consegui anexar aqui pois o fórum não aceita *.xlsm. O que ele faz é substituir todas as referencias existentes da planilha (pré definidas) por outras referencias (também pré-definidas).

Por exemplo, tenho várias células escritas cenoura e programo o código que o link me passou pra que quando eu clicar no botão, as cenouras sejam substituídas por tomates.

 

Não é bem o que procuro. Na verdade mesmo, o que eu gostaria é muito mais simples. Quero apenas uma forma de abrir a caixa de pesquisa sem ter que teclar (Ctrl + L) ou ter de ir em "Página Inicial>Ferramentas de Edição>Localizar e Selecionar>Localizar...."... de forma rápida, com um clique em um botão de macro. Até porque, minhas pesquisa nas milhares de linhas, não necessariamente irão resultar em uma substituição. As vezes só preciso achar uma informação para constatar as demais informações daquela linha.

[Patropi]

Bom dia

 

Quando tem macros o fórum só aceita arquivos compactados (Zipados)

 

[]s

[Spinhosay]

3 horas atrás, Patropi disse:

Bom dia

 

Quando tem macros o fórum só aceita arquivos compactados (Zipados)

 

[]s

Obrigado pela informação! 

 

o que estou anexando tem a haver com o link que você postou. Só que a situação não resolve minha dúvida.

teste.zip

[Spinhosay]

Alguém?

[Edson Luiz Branco]

@Spinhosay, bom dia.

Em 2017-5-22 às 08:42, Spinhosay disse:

...Na verdade mesmo, o que eu gostaria é muito mais simples. Quero apenas uma forma de abrir a caixa de pesquisa sem ter que teclar (Ctrl + L) ou ter de ir em "Página Inicial>Ferramentas de Edição>Localizar e Selecionar>Localizar...."... de forma rápida, com um clique em um botão de macro...

 

Se você quer apenas isso, insira no evento Click de seu botão o seguinte:

  Application.CommandBars("Edit").Controls("Localizar...").Execute

Outras formas alternativas ou equivalentes seriam:

  Application.CommandBars.FindControl(ID:=1849).Execute

ou ainda:

  Application.Dialogs(xlDialogFormulaFind).Show

O código que seria tecnicamente mais correto mas que infelizmente não funciona devido a um bug do Excel VBA seria Application.Dialogs(xlDialogSearch).Show

[Spinhosay]

Em 2017-6-7 às 13:05, Edson Luiz Branco disse:

@Spinhosay, bom dia.

 

Se você quer apenas isso, insira no evento Click de seu botão o seguinte:

  Application.CommandBars("Edit").Controls("Localizar...").Execute

Outras formas alternativas ou equivalentes seriam:

  Application.CommandBars.FindControl(ID:=1849).Execute

ou ainda:

  Application.Dialogs(xlDialogFormulaFind).Show

O código que seria tecnicamente mais correto mas que infelizmente não funciona devido a um bug do Excel VBA seria Application.Dialogs(xlDialogSearch).Show

 

 

valeu irmão. Funcionou. Muito Obrigado!

 

Moderador, pode fechar o tópico.