pesquisa excel com macros

Question

 ola amigos,

como eu posso fazer um macro que pesquise palavras dentro de uma pasta de trabalho no excel ou apenas na plan1, ou plan2 ou todas

um abraco

Answer 1

Pesquisa todas as células de todas as planilhas

Private Sub CommandButton1_Click()

Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores")

If Pesquisa = "" Then Exit Sub

For Each plan In Worksheets

Set x = plan.Cells.Find(what:=Pesquisa)

If Not x Is Nothing Then

firstAddress = x.Address

Do

plan.Select

x.Select

MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Planilha: " & plan.Name & _

Chr(10) & "Texto: " & x.Text

Set x = plan.Cells.FindNext(x)

Loop While Not x Is Nothing And x.Address <> firstAddress

Else

MsgBox "Texto não encontrado na planilha " & plan.Name

End If

Next

End Sub

Não se esqueça de marcar como respondida se solucionar..
Até..

Answer 2

Eai cara tudo bem...

Gostaria de saber se tu tem disponível a planílha mostrando como funcionna esta tua macro, pois estou implantando uma ferramenta de pesquisas através de planilha para encontrar os catalogos na empresa onde trabalho, se puder me mandar, meu e-mail é [e-mail]

E se precisar de alguma coisa que eu possa ajudar, é só falar.

valeu