Notifications
Clear all

Lista suspensa com hiperlink para outro arquivo

8 Posts
2 Usuários
0 Reactions
1,397 Visualizações
(@giovanne)
Posts: 5
Active Member
Topic starter
 

Olá gente...

Neste tópico (viewtopic.php?f=10&t=14856#p77330) foi dado uma solução pra linkar planilhas.
Como faço a mesma coisa, só que no caso, linkando para outro arquivo?

Obrigado!

 
Postado : 09/10/2017 9:45 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

No próprio post tem as ajudas, inclusive do Marciel Silva.

Re: Lista suspensa com hiperlink para outa planilha, tem com
Mensagempor Marciel Silva » 04 Mar 2015, 16:49

JoãoC, boa tarde!

Segue exemplo feito com VBA.

Veja se é o que você precisa:

Hiperlink_VBA_MDS.zip
(28.43 KiB) Baixado 30 vezes

Dê retorno!!!

Att,

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2017 4:58 am
(@giovanne)
Posts: 5
Active Member
Topic starter
 

Sim, eu vi... li tudo e baixei o arquivo , mas o que preciso é que o link abra uma planilha de outro arquivo e não uma planilha do mesmo arquivo.

Obrigado pela resposta...

 
Postado : 10/10/2017 10:16 am
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Boa tarde!!

Consegue adaptar?
https://analysistabs.com/vba/open-file-followhyperlink/

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 10/10/2017 12:31 pm
(@giovanne)
Posts: 5
Active Member
Topic starter
 

vou dar uma olhada...
logo dou um retorno...
valeu!!!

 
Postado : 10/10/2017 5:13 pm
(@giovanne)
Posts: 5
Active Member
Topic starter
 

alexandrevba

Cara eu não manjo não... :(

o que eu tenho aqui é esse:

Private Sub Worksheet_Change(ByVal Target As Range)
If Not Intersect(Target, Range("B3")) Is Nothing Then
   Sheets((Range("B3").Value)).Select

' Select Case Target.Value
'        Case 1
'            Sheets("JANEIRO").Select
'        Case 2
'            Sheets("FEVEREIRO").Select
'         Case 3
'            Sheets("MARÇO").Select
'         Case 4
'            Sheets("ABRIL").Select
'         Case 5
'            Sheets("MAIO").Select
'    End Select
End If

End Sub

Desse que vc me envio seria esse a usar:

Sub sbVBA_To_Open_Excel_File_FollowHypderlink()
Dim strFilePath As String
strFilePath = "C:temptest.xls"
ThisWorkbook.FollowHyperlink (strFilePath)
End Sub

que mudança eu faço?

outra coisa

esse ("C:temptest.xls") seria o caminho completo. tem como usar um direto tendo o arquivo na mesma pasta?

Valeu!!! :)

 
Postado : 10/10/2017 5:34 pm
Fernando Fernandes
(@fernandofernandes)
Posts: 43750
Illustrious Member
 

Bom dia!!

esse ("C:temptest.xls") seria o caminho completo.

Sim!!!

Sub sbVBA_To_Open_Excel_File_FollowHypderlink()
Dim strFilePath As String
    strFilePath = "C:Seu_CaminhoSeu_Arquivo.xls" 'Insira dentro das aspas dupla, o caminho e o nome do arquivo
    ThisWorkbook.FollowHyperlink (strFilePath)
End Sub

Eu não estou compreendendo o que queres fazer..

Att

Existem mil maneiras de preparar Neston. Invente a sua!
http://www.youtube.com/ExpressoExcel

 
Postado : 11/10/2017 4:55 am
(@giovanne)
Posts: 5
Active Member
Topic starter
 

Bom dia!!

No próprio post tem as ajudas, inclusive do Marciel Silva.

Re: Lista suspensa com hiperlink para outa planilha, tem com
Mensagempor Marciel Silva » 04 Mar 2015, 16:49

JoãoC, boa tarde!

Segue exemplo feito com VBA.

Veja se é o que você precisa:

Hiperlink_VBA_MDS.zip
(28.43 KiB) Baixado 30 vezes

Dê retorno!!!

Att,

Att

Eu quero fazer exatamente o que esse faz só que em vez de abrir uma planilha no mesmo arquivo eu quero abrir externamente... igual ta nesse outro tõpico... com lista suspensa...
Quero fazer os links desse arquivo que ele deixou pra baixar, abrir arquivos externos...

Valeu...

 
Postado : 11/10/2017 8:39 am