[Excel] Importare link con formula

[luck]

te lo dà in questa riga?

            .Hyperlinks.Add Anchor:=Sheets("foglio2").Cells(cella.Row, 1), Address:=iperlink,

hai selezionato le celle con i link prima di lanciare la macro?

[Lorenzo.Oz]

Era perché in mezzo hai link ci sono delle celle vuote...

Se seleziono SOLO i link funziona...

Ora vedo se trovo un altro modo...

[luck]

Originariamente inviato da Lorenzo.Oz
Se seleziono SOLO i link funziona...

immaginavo...

non so vedi tu, se usare questa soluzione, secondo me stai prima col Copia / incolla...

in ogni caso sostituisci la macro sopra con questa, che evita il bug delle celle vuote

Sub EsportaLink()
    
    For Each cella In Selection.Cells
        iperlink = ""
        
        With Sheets("foglio2").Cells(cella.Row, 1)
        If cella.Value = "" Then
            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 If
        End With
    Next
End Sub

[Lorenzo.Oz]

Grazie ma visto che già il foglio viene compilato da uno script esterno(AutoIt) gli farò fare anche quel copia ed incolla...

Speravo solo ci fosse una formula apposta in excel...

ciao
- lorenzo -

[luck]

mmmm, bello autoIt, mi sa che lo provo

ciao
L.