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