Filtrar uma planilha através de um hiperlink clicado em outra planilha.

[klebson00]

Olá Pessoal.

Vocês podem me ajudar sobre qual função usar para que quando clicar em um nome em uma "planilha A" possa me remeter a uma "planilha B" já filtrada com o nome que cliquei anteriormente.

Segue a planilha:

http://www.sendspace.com/file/eihqkm

Agradeço desde já.

[vinibpeixoto]

Oi, klebson00,

Talvez, a única forma seria com VBA.

Com VBA, acredito que existem duas maneiras para realizar o procedimento.

Antes de qualquer coisa, o hiperlink deve referenciar a planilha de cursos realizados.

Caso o hiperlink seja adicionado nome por nome, a solução abaixo pode ser adotada.

Na Plan1, adicione:

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    With Plan2
            .Range("A3:G3").AutoFilter 3, Target.Range.Value
    End With
End Sub

Abaixo, solução no caso do hiperlink ser adicionado de uma só vez em todos os nomes (um único hiperlink).

Na Plan1, adicione:

Dim empregado As String

Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
    With Plan2
            .Range("A3:G3").AutoFilter 3, empregado
    End With
End Sub

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    Dim empregadoAnterior As String
    empregadoAnterior = empregado
    On Error Resume Next
    empregado = Target.Value
    If Not Err = 0 Then
        empregado = empregadoAnterior
    End If
End Sub

E, no workbook:

Private Sub Workbook_Open()
    Plan1.Range("A1").Activate
End Sub

Alterei a planilha, adicionando a solução da segunda alternativa citada, e fiz o upload em http://www.sendspace.com/file/btw99w.

[klebson00]

Vinibpeixoto, muito Obrigado!

Não iria chegar a esta conclusão onde você conseguiu. \o/

Dá tudo certinho, no entanto quando clico em algum hiperlink e fecho a planilha, quando abro novamente a planilha mostra uma janela:

"Erro em tempo de execução '1004':

O Método Activate da classe Range falhou."

Depois de alguns testes, para não aparecer esta mensagem de novo, devo, quando terminar (antes de fechar a planilha) "desfiltrar" (Dados -> Limpar) a planilha e assim fechar a planilha como todo.

Como é um dos meus primeiros contatos em Macro e VBA, utilizei a opção Grava Macro, para fazer os seguintes passos: Limpar Dados da planilha B e voltar para planilha A. Logo após, inserir um botão na Planilha B e atribuir a ela o macro.

Deste modo fecho a planilha e quando abro novamente não aparece mais a janela.

Bom... é uma solução que conseguir fazer na minha limitação (ainda) em macro. hehe

Vinibpeixoto, posso utilizar isso?

Vocês teriam alguma outra sugestão?

Segue a planilha feita por Vinibpeixoto com a inclusão do botão que citei acima.

http://www.sendspace.com/file/9d7vec

Muito bom poder aprender sobre VGA/Macro.

Obrigado por vocês estarem me proporcionando isso.

[vinibpeixoto]

Klebson00, verifiquei o problema e percebi que, na verdade, o erro ocorria devido ao código existente no workbook.

Todas as vezes que o arquivo é aberto, é selecionado a célula A1 da planilha "relação". No entanto, caso o arquivo fosse salvo com a planilha "cursos realizados" ativa, a linha de código não conseguia localizar a célula A1 da planilha que não estava ativa.

Alterei o código do workbook e o problema foi resolvido.

Private Sub Workbook_Open()
    With Plan1
        .Activate
        .Range("A1").Activate
    End With
End Sub

O arquivo atualizado está em http://www.sendspace.com/file/qmlsyg.

[klebson00]

Vinibpeixoto,

Ficou perfeito!

Tô gostando demais saber sobre VGA. Não imaginava o quanto podemos fazer com VGA. Sua solução foi muito útil. Muito Obrigado. Abraço.

[Patropi]

Caso o autor do tópico necessite, o mesmo será reaberto, para isso deverá entrar em contato com a moderação solicitando o desbloqueio.