Bom dia
Como posso desenvolver um codigo que faz busca em toda planilha do vba excel?
Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
VBA-Realização de Busca em toda Planilha
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qua Mar 05, 2014 2:10 pm
VBA-Realização de Busca em toda Planilha
Editado pela última vez por ewerton150 em Sáb Mar 08, 2014 11:35 am, em um total de 1 vez.
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Qua Mar 05, 2014 2:10 pm
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Ter Mar 04, 2014 12:47 am
- Mauro Coutinho
- Jedi
- Mensagens: 1561
- Registrado em: Sáb Mar 13, 2010 8:10 pm
- Localização: São José dos Pinhais - Pr
Re: VBA-Realização de Busca em toda Planilha
Veja se a dica do tópico a baixo ajuda:
Função Localizar - por JValk
viewtopic.php?f=20&t=1419&p=6881&hilit=find#p6881
[]s
Função Localizar - por JValk
viewtopic.php?f=20&t=1419&p=6881&hilit=find#p6881
Código: Selecionar todos
Sub Procura()
Total = Sheets.Count 'total de planilhas
achei = 0
codigo = InputBox("Digite o nome a ser procurado.", "LOCALIZAR")
If codigo = "" Then Exit Sub
For plan = 1 To Total 'percorrer todas as planilhas
Sheets(plan).Select 'ativar planilha
Set cellocalizar = ActiveSheet.Columns.Find(codigo, LookAt:=xlPart, LookIn:=xlValues)
If cellocalizar Is Nothing Then 'caso não encontrar o codigo
If plan = Total And achei = 0 Then
Sheets(1).Select
MsgBox "O conteúdo " & codigo & " não foi encontrado em nenhuma planilha. "
End If
Else 'caso o codigo procurado tenha sido encontrado
cellocalizar.Select 'selecionar a célula onde foi encontrado
MsgBox codigo & " foi encontrado na célula " & cellocalizar.Address & ". Planilha " & plan
If MsgBox("Deseja continuar?", vbYesNo) = vbNo Then End
achei = achei + 1
primeiroendereco = cellocalizar.Address
Do
Set cellocalizar = ActiveSheet.Columns.FindNext(cellocalizar)
If Not cellocalizar Is Nothing And cellocalizar.Address <> primeiroendereco Then
cellocalizar.Select 'selecionar a célula onde foi encontrado
MsgBox codigo & " foi encontrado na célula " & cellocalizar.Address & ". Planilha " & plan
If MsgBox("Deseja continuar?", vbYesNo) = vbNo Then End
achei = achei + 1
End If
Loop While Not cellocalizar Is Nothing And cellocalizar.Address <> primeiroendereco
Sheets(plan).Select
End If
Next plan
Sheets(1).Select
End Sub