Página 1 de 1

Hiperlink VBA

Enviado: 30 Ago 2016 às 08:20
por Bluemotion
Boas pessoal!

Estou a desenvolver um ficheiro em excel, em que na sheet1 tenho uma lista de pessoas (coluna A) e cada uma delas associadas com um determinado número (coluna B). Nesse ficheiro tenho uma macro para pesquisar por número. Na célula (por exemplo B2) em que tem o número criei um hiperlink para outra sheet noutro ficheiro (ficha pessoal dessa pessoa). O que eu não estou a conseguir fazer é que após a pesquisa devolver o resultado pretendido, siga automaticamente o hiperlink dessa célula. Apenas consigo que abra o ficheiro na sheet onde ficou salvo e não o hiperlink que pretendo.
Não sei se me fiz entender, mas fica aqui o código que estou a utilizar:

Sub Pequisar()
Pesquisa = InputBox("Digite o número de matrícula", "Pesquisar Valores")
If Pesquisa = "" Then Exit Sub
Set x = Worksheets(3).Cells.Find(what:=Pesquisa)
If Not x Is Nothing Then
x.Select
MsgBox "Militar encontrado na célula " & x.Address & Chr(10) & "Texto:" & x.Text

Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True

Else
MsgBox "Militar não encontrado"
End If
End Sub



Obrigado!

Hiperlink VBA

Enviado: 30 Ago 2016 às 20:31
por DJunqueira
O ideal seria q vc fizesse esse tipo de busca e armazenamento de dados no Access, q é o programa mais adequado p/ esse tipo de coisa. Não sendo possível, outra alternativa seria utilizando o Power Query / Nova Consulta, mas p/ isso vc deve nos informar qual é sua versão do Excel.

Hiperlink VBA

Enviado: 31 Ago 2016 às 19:13
por Bluemotion
Obrigado Djunqueira. Realmente preciso de fazer mesmo este ficheiro em excel. A versão que estou usar é a 2010.

Hiperlink VBA

Enviado: 01 Set 2016 às 01:03
por DJunqueira
Alguma possibilidade de vc baixar um programa gratuito da M$ como o Power BI p/ essa empreitada?

Hiperlink VBA

Enviado: 06 Set 2016 às 17:25
por sonymartins
Olá amigo, poste alguns arquivos envolvidos na operação para eu ver se entendi corretamente o que vc quer fazer.