Condividi:        

Attribuire testo relativo a cella selezionata per hyperlink

Vuoi potenziare i tuoi documenti Word? Non sai come si fa una macro in Excel? Devi creare una presentazione in PowerPoint?
Oppure sei passato a OpenOffice e non sei sicuro di come lavorare al meglio?

Moderatori: Anthony47, Flash30005

Attribuire testo relativo a cella selezionata per hyperlink

Postdi systemcrack » 24/06/24 13:25

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


Immagine

Immagine

Ho provato a leggere e cercare sul webbe, ma mi sono bloccato. :roll:
Avatar utente
systemcrack
Utente Senior
 
Post: 357
Iscritto il: 27/07/17 09:40

Sponsor
 

Re: Attribuire testo relativo a cella selezionata per hyperl

Postdi Anthony47 » 24/06/24 17:47

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
Avatar utente
Anthony47
Moderatore
 
Post: 19299
Iscritto il: 21/03/06 16:03
Località: Ivrea

Re: Attribuire testo relativo a cella selezionata per hyperl

Postdi systemcrack » 25/06/24 10:26

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!
Avatar utente
systemcrack
Utente Senior
 
Post: 357
Iscritto il: 27/07/17 09:40


Torna a Applicazioni Office Windows


Topic correlati a "Attribuire testo relativo a cella selezionata per hyperlink":


Chi c’è in linea

Visitano il forum: Nessuno e 22 ospiti