0032-Pesquisando um valor em todas as planilhas do arquivo

A ferramenta Localizar do Excel, pesquisa um valor em uma planilha. Se quisermos estender a pesquisa, para outras planilhas, teremos que selecionar cada uma delas e, em cada uma, repetir a operação de pesquisa
O exemplo de código abaixo, permite realizar a pesquisa de um determinado valor em todas as planilhas da pasta de trabalho:

Sub PesquisaremVáriasPlanilhas()
Dim ws          As Worksheet
Dim Pesquisa    As Variant
Dim c           As Variant
Dim Mensagem    As String
Dim k           As Integer
Pesquisa = Application.InputBox("Informe valor a ser pesquisado.", "Valor para pesquisa.")
k = 0
For Each ws In ThisWorkbook.Worksheets
With ws.Cells
Set c = .Find(Pesquisa, LookIn:=xlValues)
If Not c Is Nothing Then
firstAddress = c.Address
Do
Mensagem = Mensagem & c.Address & vbTab & ws.Name & vbLf
k = k + 1
Set c = .FindNext(c)
Loop While Not c Is Nothing And c.Address  firstAddress
End If
 End With
Next ws
If k = 0 Then
MsgBox "Não foram encontradas ocorrências do valor ''" & Pesquisa & "'' nas planilhas desta pasta de trabalho."
Else
MsgBox "O valor pesquisado : ''" & Pesquisa & "'', foi localizado em :" & vbLf & Mensagem
End If
End Sub

In Excel We Trust

Marcado com:
Publicado em Nível: Avançado

Deixe uma resposta

Preencha os seus dados abaixo ou clique em um ícone para log in:

Logotipo do WordPress.com

Você está comentando utilizando sua conta WordPress.com. Sair / Alterar )

Imagem do Twitter

Você está comentando utilizando sua conta Twitter. Sair / Alterar )

Foto do Facebook

Você está comentando utilizando sua conta Facebook. Sair / Alterar )

Foto do Google+

Você está comentando utilizando sua conta Google+. Sair / Alterar )

Conectando a %s

Visitas dos usuários
  • 1,969,548

Clique para assinar este blog e receber notificações de novos artigos por email.

Junte-se a 1.477 outros seguidores

Aumente sua interação

Siga-nos do twitter (@usuariosdoexcel).

Acesse o nosso fórum e compartilhe as suas dúvidas.

Curta nossa página no Facebook.

Junte-se ao grupo do LinkedIn.

Visite-nos utilizando o seu smartphone ou tablet.

Recomende este Blog
Visualizar notícias
Site monitorado:
Real Time Web Analytics

Clicky

%d blogueiros gostam disto: