[Excel] Importare link con formula

[Lorenzo.Oz]

Salve,
sto trafficando con excel e mi servirebbe un info...

Ho un file di excel che ha una colonna che contiene dei link ipertestuali a pagine web...

Supponendo che li abbia nella colonna A come faccio a visualizzarli anche nella colonna C mantenendo attivi i link?

E' possibile farlo? Bisogna attivare qualche opzione?

Con un semplice =AX dove X è il numero di riga copia solo il testo...

grazie anticipate...

edit: ovviamente non posso usare copia/incolla perchè la formula mi serve per mantenere la possibilità di avere una modifica dinamica dei link...

[Lorenzo.Oz]

nessuno ha qualche idea?

[luck]

ciao, bisogna farlo via macro...

aggiungi una nuova macro, con questo codice:

Sub EsportaLink()
    For Each cella In Selection.Cells
   
        If cella.Hyperlinks.Count <> 0 Then
            iperlink = cella.Hyperlinks(1).Address
            
            ActiveSheet.Cells(cella.Row, cella.Column + 1) = iperlink
        End If
    Next
End Sub

seleziona le celle in cui "operare" e... strumenti - macro - macro - EsportaLink
la macro scrive a fianco ad ogni cella contenente un link ipertestuale il testo del link
spero sia quello che ti serviva, facci sapere

ciao
L.

[Lorenzo.Oz]

Sembra avvicinarsi a ciò che mi serve...
Cosa dovrei modificare per fare in modo di copiare l'intero link (in modo che cliccando sulla casella si apra) e anziché averlo nella cella a fianco metterlo nella prima colonna del foglio2?

[luck]

cioè vuoi che oltre al testo del link copi anche il link stesso e che diventi cliccabile?

[Lorenzo.Oz]

esatto...
devo fare praticamente una copia esatta... tipo copia/incolla ma visto che si tratta di circa 5000voci vorrei evitare di farlo a mano tutte le volte che la modifico

[luck]

e come testo? lo stesso testo della cella o il testo del link?

[Lorenzo.Oz]

il testo della casella

[luck]

quindi non devi lavorare sul contenuto del link?!?!?
secondo me ti conviene a sto punto far un copia/incolla, inutile che perdi tempo dietro a funzioni avanzate...

in ogni caso prova questa

Sub EsportaLink()
    For Each cella In Selection.Cells
        iperlink = ""
        With Sheets("foglio2").Cells(cella.Row, 1)
        If cella.Hyperlinks.Count <> 0 Then
            iperlink = cella.Hyperlinks(1).Address
            .Hyperlinks.Add Anchor:=Sheets("foglio2").Cells(cella.Row, 1), Address:=iperlink, TextToDisplay:=cella.Value
        Else
            .Value = cella.Value
            .Hyperlinks.Delete
        End If
        End With
    Next
End Sub

ciao
L.

[Lorenzo.Oz]

A me non funziona...

Dice: Chiamata a routine o argomento non validi.

Ho corretto il nome del foglio da "foglio2" a "Foglio2" ma non è cambiato niente...