copia link dinamici

Hai un problema con Excel?

Nuova discussione

copia link dinamici
di fragovic (utente non iscritto) data: 28/01/2013 12:21:15
Salve a tutti, avrei bisogno di un aiuto:

ho un file di excel che ha una colonna che contiene dei link ipertestuali a
pagine web. Questo file lo aggiorno tramite macro e si aggiornano anche i link della colonna.

Supponendo che i link li abbia nella colonna L come faccio a visualizzarli e copiarli anche nella
colonna N mantenendo attivi i link?

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

edit: ovviamente non posso usare copia/incolla perchè mi serve la possibilita'
di avere i link dinamici...

Ho trovato una macro in rete ma non va, sarebbe questa:

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

Grazie a tutti!

Connessione ODBC VBA Access
di gugluca (utente non iscritto) data: 28/01/2013 12:30:48
Ciao a tutti,
sto provando a creare tre connessioni tramite ODBC in VBA di Access.
Ho provato a seguire la guida in linea, ma con scarso successo.
Riporto il codice che ho scritto (lanciandolo però si pianta subito)..
Cosa sbaglio?
Grazie in anticipo
Luca

Sub connetti
Dim ConnA As ADODB.Connection
Dim ConnB As ADODB.Connection
Dim ConnC As ADODB.Connection

Set ConnA = New ADODB.Connection
    ConnA.ConnectionString = "Data Source='DATABASE1';" & _
        "User ID='USER'; Password='PASSWORD';"
    ConnA.ConnectionTimeout = 30
    ConnA.Open

Set ConnB= New ADODB.Connection
    ConnBConnectionString = "Data Source='DATABASE2;" & _
        "User ID='USER'; Password='PASSWORD';"
    ConnBConnectionTimeout = 30
    ConnBOpen

Set ConnC= New ADODB.Connection
    ConnCConnectionString = "Data Source='DATABASE3;" & _
        "User ID='USER'; Password='PASSWORD';"
    ConnCConnectionTimeout = 30
    ConnCOpen

.... altro codice..

End sub

di HarryBosch data: 28/01/2013 12:56:39
@Gugluca
hai continuato una discussione aperta da altro utente.
Devi aprire un nuovo thread, Grazie
di HarryBosch data: 28/01/2013 12:58:26
@ fragovic
I link sono lungo la colonna L; un semplice copia e incolla non riporta i link dove vuoi?
Tipo il codice sotto...
Sub copia() Sheets("foglio2").Range("L1:L" & [counta(L:L)]).Copy Sheets("foglio2").[N1] End Sub
copia link dinamici
di fragovic (utente non iscritto) data: 28/01/2013 13:10:35
Ciao e grazie della risposta.
Si, la copia della colonna funziona, il problema è che quando aggiorno il foglio non si aggiornano i link della colonna che copio.

di HarryBosch data: 29/01/2013 18:11:50
Ma i link che non diventano tali, sono quelli della colonna L (ovvero quando li importi) o quelli della colonna N (ovvero dopo la copia)?

Se nella colonna L hai già impostato i link, quando copi, essi si riportano anche nella colonna N.
Se invece il problema è antecedente, allora dovresti scorrere la colonna L, trasformare le stringhe in link e quindi copiarli in altra colonna.

Sub copia()
    Dim link As Range

    For Each link In Sheets("foglio1").Range("L1:L" & [counta(L:L)])
        link.Hyperlinks.Add Anchor:=link, Address:=link.Value
    Next

    Sheets("foglio1").Range("L1:L" & [counta(L:L)]).Copy Sheets("foglio1").[n1]
End Sub

Vuoi Approfondire?