Collegamento ipertestuale nel box cerca

Question

Buongiorno

ho creato un box di cerca verticale e vorrei che il risultato rimanga collegato con il collegamento ipertestuale al file in pdf all'interno di una cartella di lavoro. Invece il collegamento ipertestuale nella tabella, svanisce nella box cerca, come fare?

grazie

Answer 1

C iao Giampaolo,

ho creato un box di cerca verticale e vorrei che il risultato rimanga collegato con il collegamento ipertestuale al file in pdf all'interno di una cartella di lavoro. Invece il collegamento ipertestuale nella tabella, svanisce nella box cerca, come fare?

Per ottenere la funzionalità desiderata penso che sia necessario ricorrere a VBA.

Quindi, prova qualcosa del genere:

• Fai clic dx sulla linguetta del foglio di interesse
• Seleziona l'opzione Visualizza Codice dal **** menu contestuale risultante
• Incolla il seguente codice:

 '========>>

Option Explicit

'-------->>

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)

Dim Rng As Range

     Const sCella As String = "E1"                                                                                              '<<=== Modifica

     Const sPercorso_Collegamento As String = "C:\Users\Main User\Documents"              '<<=== Modifica

    Set Rng = Intersect(Me.Range(sCella), Target)

    If Not Rng Is Nothing Then

        ThisWorkbook.FollowHyperlink Address:=sPercorso_Collegamento & Rng.Value, NewWindow:=True

    End If

End Sub

'<<======== 

• Alt+Q per chiudere l'editor di VBA e tornare a Excel.
• Salva il file con l'estensione xlsm.
• Per aprire il file con collegamento ipertestuale, fai doppio clic sulla cella di ricerca

===

Regards,

Norman