Excel Pesquisa em toda Pasta de Trabalho

[Igor F.]

Boa tarde,

presto serviço de leilão e a fim de diminuir o tempo trabalhado, necessito de um código VBA para agilizar tal processo, que seria o seguinte:

 

Possuo duas planilhas.

    (1) Pesquisas (nome da cidade)

    (2) Lista leilão (nome da cidade)

 

O que preciso:

    (1) Na planilha Lista leilão (nome da cidade) está contido as informações dos veículos, placa, chassi, cor etc... Já na planilha Pesquisas (nome da cidade) está contido as informações separadamente em cada aba de cada veículo.

    (2) Ao selecionar a célula (que contém o chassi do veículo) contida na planilha lista necessito que faça uma busca completa por todas as abas da planilha pesquisas ( a fim de encontrar pelo chassi), já tentei rodar loop para sair pesquisando mas não estou encontrando o código certo, não manjo muito desses códigos avançados de VBA. (Não consigo fazer o contrário pois a planilha pesquisas vem automaticamente montada pois é gerada por um sistema do DETRAN.)

 

Alguém me salva? rsrsrs

[André_Arruda]

seria melhor se postasse sua planilha explicando detalhadamente sua necessidade

 

[Igor F.]

Pesquisas leilão Minas Gerais.xlsxLista leilão Minas Gerais.xlsx

[Igor F.]

Alguém? Precisava com urgência desse macro "/

[Midori]

Para testar a macro cole na planilha que tem as Listas e deixe as duas planilhas abertas.

 

A busca será feita na coluna A da planilha pesquisa com base na célula D3 da lista, altere para o forma que achar mais adequada.

 

Sub Macro()
    Dim Chassi              As String
    Dim PlanilhaPesquisa    As Worksheet
    
    Chassi = ThisWorkbook.ActiveSheet.Range("D3")
    
    For Each PlanilhaPesquisa In Workbooks("Pesquisas leilão Minas Gerais.xlsx").Worksheets
        If Pesquisa(PlanilhaPesquisa, Chassi) <> "" Then
            MsgBox "O Chassi " & Chassi & " está na planilha " & PlanilhaPesquisa.Name
        End If
    Next PlanilhaPesquisa
End Sub

Function Pesquisa(Planilha As Worksheet, Chassi As String) As String
On Error GoTo FIM
    Pesquisa = Planilha.Range("A:A").Find(Chassi, Planilha.Range("A1")).Address
FIM: If Err.Number = 91 Then Pesquisa = ""
End Function

 

[Igor F.]

Em 15/04/2020 às 14:59, Midori disse:

Para testar a macro cole na planilha que tem as Listas e deixe as duas planilhas abertas.

 

A busca será feita na coluna A da planilha pesquisa com base na célula D3 da lista, altere para o forma que achar mais adequada.

 

Sub Macro()
    Dim Chassi              As String
    Dim PlanilhaPesquisa    As Worksheet
    
    Chassi = ThisWorkbook.ActiveSheet.Range("D3")
    
    For Each PlanilhaPesquisa In Workbooks("Pesquisas leilão Minas Gerais.xlsx").Worksheets
        If Pesquisa(PlanilhaPesquisa, Chassi) <> "" Then
            MsgBox "O Chassi " & Chassi & " está na planilha " & PlanilhaPesquisa.Name
        End If
    Next PlanilhaPesquisa
End Sub

Function Pesquisa(Planilha As Worksheet, Chassi As String) As String
On Error GoTo FIM
    Pesquisa = Planilha.Range("A:A").Find(Chassi, Planilha.Range("A1")).Address
FIM: If Err.Number = 91 Then Pesquisa = ""
End Function

 

 

Não teria jeito de setar o valor de acordo com a célula que já estiver selecionada?

[Midori]

11 minutos atrás, Igor F. disse:

Não teria jeito de setar o valor de acordo com a célula que já estiver selecionada?

Tem sim, você pode atribuir ActiveCell a variável Chassi...

[Igor F.]

Em 06/05/2020 às 14:11, Midori disse:

Tem sim, você pode atribuir ActiveCell a variável Chassi...

 

Cara, muito obrigado! Esse macro vai ser um verdadeiro poupa tempo. Grato demais!