Estrarre email da cella di tipo collegamento ipertestuale

[ggramacc]

su un foglio excel 2007 ho una serie di celle con i nomi di paesi a cui sono collegate delle e-mail.... vorrei estrarre le mail dai collegamenti ipertestuali e posizionarli sulle caselle corrispondenti di fianco ai nomi.

[alfrimpa]

Ciao

Allega un file di esempio con i dati ed il risultato desiderato inserito a mano

[ggramacc]

ecco questo è il risultato che vorrei ottenere (email) per tutte le celle di sinistra inserite nelle celle di destra.

[alfrimpa]

Non so se riuscirò ad aiutarti ma ti avevo chiesto un file non un'immagine con la quale non si può fare nulla

[alfrimpa]

Comunque prova ad inserire in un modulo standard nell'editor di VBA questa funzione

Codice: Seleziona tutto

Public Function Estrai_Indirizzi(ByVal Collegamento As Excel.Range)
Estrai_Indirizzi = Replace(Collegamento.Hyperlinks(1).Address, "mailto:", "")
End Function


e supponendo che in colonna A tu abbia i collegamenti i B scrivi:

Codice: Seleziona tutto

=Estrai_Indirizzi(A1)

e ricopi in basso fin dove ti serve.

[ggramacc]

Grazie funziona..... però è strano, avevo anche io utilizzato questo script di Andrea Perotti, mettendoci però l'underscore subito dopo il Replace e forse questo mi dava errore.


Grazie mille

[alfrimpa]

Si infatti si tratta proprio di Andrea Perotti.

Se prima non funzionava ed ora si molto probabilmente avrai sbagliato a trascrivere qualcosa.

Prima dell'underscore ci deve essere uno spazio