[VBA Excel] Come scrivere su una cella il link di un altra

[peterparker0607]

Ciao ragazzi! Una domandina semplice semplice

In cella A1 ho scritto "Google" e c'è il collegamento a "www.google.it" (classica scritta blu sottolineata).
Non riesco a capire come fare a prendere il link, ovvero io vorrei scrivere nella cella B2 "www.google.it"

Illuminatemi...
Grazie!

[Anthony47]

Non credo che si possa fare con funzioni native Excel; si puo' fare con vba, ad esempio con questa "Funzione Utente":

Codice: Seleziona tutto

Function hLink(ByRef SSrc As Range)
Dim lCount As Long
'
lCount = SSrc.Range("A1").Hyperlinks.Count
If lCount > 0 Then
    hLink = SSrc.Hyperlinks(1).Address
Else
    hLink = "NoLink"
End If
End Function


Inserisci il codice in un "modulo standard" del vba, es Modulo1, poi su excel potrai usare la formula del tipo

Codice: Seleziona tutto

=hLink(A1)

La sintassi della funzione e' hLink(Intervallo)

La funzione restiuira' la destinazione dell'hyperlink presente nella cella "1" dell'Intervallo, oppure la stringa "NoLink" se nella cella non c'e' un hyperlink.
La funzione si comporta come tutte le funzioni native; la formula puoi copiarla e spostarla come si fa con tutte le formule, o puoi usare la funzione in formule piu' complesse ad es.

Codice: Seleziona tutto

=SE(hLink(A1)="http://www.google.com/";"Google";"Ignoto")


Ciao

keyword
estrarre indirizzo collegamento ipertestuale hyperlink link address
read get hyperlink address udf

[peterparker0607]

Non perfetto.... di più!!!

Grazie!