Este fórum está sendo desativado

[thefrey]

Olá galera, bom dia!
Preciso criar um botão para localizar os nomes dos meus clientes em todas as planilhas.
Tentei gravar uma macro com o atalho Ctrl+L para abrir a janela de localizar do excel, mas não funcionou.

Obrigado!

[Parkeless]

Não sei se entendi muito bem... você quer uma lista com todos os clientes?
Pra bolar algo assim, teríamos que saber de onde retirar essa informação, e onde colocar.

Você consegue postar a planilha?

[thefrey]

Não preciso criar uma lista não, é coisa simples.. é do mesmo jeito da pesquisa normal do excel (Ctrl+L), so que eu quero um botão na planilha pra acionar o comando localizar, e quando a nuvem abrir, digitar o texto que quero localizar nas planilhas.. tentei criar uma macro desse mesmo comando de localizar mas não deu certo.

Exemplo:

[Parkeless]

Tenta isso:

Código: Selecionar todos

Sub Busca_through_planilhas()

Dim aba As Worksheet
Dim procura As Range
Dim Valor_procurado As String

Valor_procurado = "João"

For Each aba In Worksheets
On Error Resume Next
Set procura = aba.Cells.Find(What:=Valor_procurado, After:=Cells.Range("a1"), LookIn:=xlFormulas, LookAt _
        :=xlPart, SearchOrder:=xlByRows, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)


    procura.Worksheet.Activate
    procura.Activate
    If ActiveCell = Valor_procurado Then: Exit Sub


Next aba

Acho que compliquei um pouco mais do que devia kk, mas funciona

[thefrey]

Valeu irmão! Só não tou identificando onde é pra inserir o código... É na pasta de trabalho ou na plan?

[Parkeless]

Você colaria em um módulo normal, e associaria a macro a um botão de busca

Mas vai precisar definir melhor qual é o critério de busca - se entendi certo o que você quer,vai precisar buscar o critério no conteúdo de uma célula

[thefrey]

Funcionou, mas não é bem isso. Deixa eu explicar melhor... Eu preciso de um botão que abra uma pequena janela (tipo useform ou algo parecido) que localize um texto/nome que eu digite nessa janela e que quando eu apertar um botão localizar, faça uma varredura na pasta de trabalho até encontrar a plan que contenha esse texto. É bem igual ao sistema de buscas padrão do Ecxel (Crtl+L), só que eu não consegui gravar a macro somente apertando Crtl+L do sistema de buscas padrão.

Esse código que você me enviou, não tem a opção de eu digitar o texto a ser pesquisado em todas as plans da pasta.

É esse mesmo esquema padrão de localizar do excel mostrada aqui na imagem abaixo:

[Parkeless]

Como eu disse, você precisa definir o critério de busca ._.

Se você quer que o critério seja inserido através de uma janela, ele pode ser um inputbox

Troca a linha:

Código: Selecionar todos

Valor_procurado = "João"

Por

Código: Selecionar todos

Valor_procurado = application.inputbox("Insira aqui o valor a ser procurado.")

O código passa por cada aba da planilha, procurando o Valor_procurado e, quando encontra, ativa a aba e seleciona a célula (assim como o botão localizar do Excel faria)

[thefrey]

Showww.. era isso mesmo que eu queria! Obrigado!