Attribuire testo relativo a cella selezionata per hyperlink

[systemcrack]

Ciao ragazzi,
ho una macro che attribuisce hyperlink al testo di una cella ben precisa attribuito ad un bottone, ora vorrei modificare e aggiungere questa macro in modo che risponda ad un doppio click e che tenga il testo relativo alla cella selezionata in cui si è attuato il doppio click. Ho provato e riprovato, ma continuo a ricevere errore.. la macro di partenza era questa:

Codice: Seleziona tutto

Private Sub CommandButton1_Click()
Dim myFile As String


myFile = Application.GetOpenFilename(filefilter:="File di Adobe Acrobat Reader,*.pdf", Title:="Indica il file da collegare")
If myFile = "Falso" Then Exit Sub


    ActiveSheet.Hyperlinks.Add _
        Anchor:=Range("D5"), _
        Address:=myFile, _
        TextToDisplay:="" & Range("D5")
End Sub

mentre io sono arrivato fino a qui (ma ricevo errore)

Codice: Seleziona tutto

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


myFile = Application.GetOpenFilename(filefilter:="File di Adobe Acrobat Reader,*.pdf", Title:="Indica il file da collegare")
If myFile = "Falso" Then Exit Sub
    ActiveSheet.Hyperlinks.Add _
        Anchor:=selectedCell, _
        Address:=myFile, _
        TextToDisplay:="" & selectedCell.Value & ""
End Sub

Ho provato a leggere e cercare sul webbe, ma mi sono bloccato.

[Anthony47]

Prova con

Codice: Seleziona tutto

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
Dim myFile As String
'
Cancel = True
myFile = Application.GetOpenFilename(filefilter:="File di Adobe Acrobat Reader,*.pdf", Title:="Indica il file da collegare")
If myFile = "Falso" Then Exit Sub
    ActiveSheet.Hyperlinks.Add _
        Anchor:=Target, _
        Address:=myFile, _
        TextToDisplay:="" & Target.Value & ""
End Sub

[systemcrack]

FUNZIONA!!! Grandioso!!! Inoltre ora così gli allegati possono essere aggiunti a qualsiasi casella dello schema con il doppio click, il che apre la strada a nuovi possibili scenari che potrei usare per rendere ancora più performante il registro che permetterebbe così di tenere traccia di qualsiasi movimento, modifica, cambiamento, aggiornamento, comunicazione. Grazie davvero Anthony!