Resultado de Filtro avançado com link em outra planilha no mesmo projeto

[Valdeir Frizzera]

Boa noite galera! 

Preciso de ajuda com uma questão. 

Montei um projeto no Excel com duas planilhas Pan1 e Pan2 uma denominei "PESQUISA" pra procurar pelo nome, data entre outros critérios...outra denominei "CLIENTES" contendo o nome do cliente, tel, observações data de contato e outros dados, adicionei um filtro avançado na planilha de PESQUISA pra filtrar os dados da segunda planilha CLIENTES, porém preciso de um método em que quando aparecer o resultado na planilha de pesquisa ao clicar duas vezes no nome ele va direto pra celula da segunda planilha onde ele gravado. 

 

 

exemplo: 

 

pesquisei nomes com iniciais J apareceram dois resultados. 

 

Na planilha CLIENTES

na celula B2 esta gravado "JOAO"

na celula B3 esta gravado "JOSE"

 

sendo assim quando clicar em cima de JOSE na planilha PESQUISA independente da celula  em  que aparecer (A1, A20, A10) ao clicar me direcione para planilha CLIENTES na celula B3 onde esta gravado o nome JOSE. 

 

desde já agradeço por qualquer ajuda. Obrigado!

 

[Visitante]

Olá, Valdeir.

 

Sugestão - para facilitar o entendimento disponibilize uma amostra do seu arquivo com alguns dados e as explicações na própria planilha.

 

obs. existe uma forma de busca nativa do Excel bem simples de ser utilizada: "Localizar/Substituir". Ative a planilha CLIENTES e aperte Ctrl+L e na caixa 'Localizar' digite o que deseja localizar naquela planilha. A utilização deste recurso não requer uma planilha de apoio, no seu caso a planilha PESQUISA,  não requer aplicação de Filtro e não requer o uso de macro para selecionar o registro escolhido.

[Valdeir Frizzera]

Olá OSVALDOMP, 

 

montei algumas imagens com observações nela pra entender melhor e segue em formato rar o projeto no excel.

 

desde já agradeço!

 

 

 

 

 

 

 

 

Carteira de Clientes REVISADA - Copia.rar

[Visitante]

Veja se entendi corretamente.

Instale o código abaixo no módulo da planilha 'BUSCADOR'

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim c As Range  Cancel = True  If Target.Address <> "$B$8" Or Target.Value = "" Then Exit Sub  Set c = Sheets("CARTEIRA DE CLIENTES").Columns(2).Find(Target.Value, lookat:=xlWhole)   If Not c Is Nothing Then    Sheets("CARTEIRA DE CLIENTES").Activate    c.Select: Exit Sub   End If MsgBox "cliente não encontrado"End Sub

 

funcionamento - coloque o nome do cliente em 'B3' da planilha 'BUSCADOR' e em seguida dê duplo clique naquela célula. O nome será selecionado na outra planilha, se existente.

 

obs.

1. para evitar erros na busca sugiro que você aplique Validação de Dados em 'B3'

2. na sua lista há nomes com espaço após o nome, isso provocará erro na busca