PESQUISA EXCEL UTILIZANDO MACRO

Question

Companheiros,
 
como eu poderia fazer um macro dentro de uma planilha excel 2007 que procure palavras dentro de toda minha planilha(plan1,plan2)

um abraco a todos

Answer 1

Não ficou claro para mim que navegação você espera, mas um dos caminhos para fazer o que você precisa é usar o método AutoFilter, por meio do qual você consegue aplicar critérios OR em várias colunas ao mesmo tempo.

---

Luiz Cláudio Cosenza Vieira da Rocha - http://msmvps.com/blogs/officedev - IT Lab www.itlab.com.br

Answer 2

companheiro Claudio,

veja: tenho um form onde o usuario vai digitar o nome que quer procurar em uma (plan1) exemplo: "teste"  ai vai ter uma mensagem se existe ou nao o nome teste na plan1 entende?

obrigad0

Answer 3

peguei a funcao

Code Snippet

Sub Pequisar()
Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores")
If Pesquisa = "" Then Exit Sub
Set x = Worksheets(1).Cells.Find(what:=Pesquisa)
    If Not x Is Nothing Then
        x.Select
        MsgBox "Texto encontrado na célula " & x.Address & Chr(10) & "Texto:" & x.Text
    Else
        MsgBox "Texto não encontrado"
    End If
End Sub

so que nao to sabendo tambem onde colocar esta funcao coloquei um botao COMMANDBUTTON no click dele mais da erro

Answer 4

Pesquisa por 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

Qualquer dúvida post denovo....
Se solucionar não se esqueça de marcar como respondida...
Até..

Answer 5

Amigo Evangelista apesar de ser um tópico muito antigo, espero que possa responder:

Como faço para modificar esta macro e mandar pesquisa apenas em uma planilha?

 

Obrigado

Answer 6

Olá,

Não testei, mas a princípio seria assim (mude o nome da Planilha para o nome desejado):

 

Private Sub CommandButton1_Click()
  Pesquisa = InputBox("Informe o valor a ser pesquisado", "Pesquisar Valores")
  If Pesquisa = "" Then Exit Sub
  Set plan = Sheets("Nome_da_Planilha")
    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
End Sub

 

---

Felipe Costa Gualberto - http://www.ambienteoffice.com.br

Answer 7

Amigo Benzadeus está redondo a macro!

Não querendo abusar da boa vontade, teria como inserir comando de se caso houver mais de uma palavra igual que pare na primeira. Explico como n planilha tem nomes de rua repetidos eu dou ok e ele continua buscando a té me mostrar todas. Fui claro?

 

ABS  e obrigado!!!!!!!!!!!!!!!!!!!

Answer 8

Benzadeus e EvantelistaLion,

Teria como fazer a busca (no caso de procurar em todas as planilhas) apenas em planilhas em exibição (excluindo ocultas)?

 

Se sim, como seria?