VBA-Realização de Busca em toda Planilha

[ewerton150]

Bom dia
Como posso desenvolver um codigo que faz busca em toda planilha do vba excel?

[ewerton150]

Alguém pode me ajudar nisso?

[Israel Oliveira]

Como assim buscar? Buscar o que?

[Mauro Coutinho]

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

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

[]s