trova Hyperlink

Hai un problema con Excel?

Nuova discussione

trova Hyperlink
di marxitpa data: 28/06/2015 07:35:08
Il codice segnalato invia messaggio per ogni Hyperlink trovato nel foglio.
E' possibile accanto all'Hyperlink trovato segnare le coordinate della cella?

Sub a_a_TrovaEliminaCollegamenti()
Dim collIper As String
Dim Messaggio As String
For Each Hyperlink In ActiveSheet.Hyperlinks
    If Hyperlink.Address = "" Then
        collIper = collIper & Hyperlink.SubAddress
    Else
        collIper = collIper & Hyperlink.Address
    End If
    Messaggio = MsgBox("Cancello l'Hyperlink " & collIper & "?", vbYesNo + vbQuestion, "CANCELLO?")
    If Messaggio = vbYes Then
        Hyperlink.Delete
    End If
    collIper = ""
Next
End Sub

di lepat (utente non iscritto) data: 28/06/2015 07:58:27
prova così

Sub a_a_TrovaEliminaCollegamenti()
Dim collIper As String
Dim Messaggio As String
For Each Hyperlink In ActiveSheet.Hyperlinks
    If Hyperlink.Address = "" Then
        collIper = collIper & Hyperlink.SubAddress
    Else
        collIper = collIper & Hyperlink.Address

    End If
    cella = Hyperlink.Parent.Address
    Messaggio = MsgBox("Cancello l'Hyperlink " & collIper & " nella cella " & cella & " ?", vbYesNo + vbQuestion, "CANCELLO?")
    If Messaggio = vbYes Then
        Hyperlink.Delete
    End If
    collIper = ""
Next
End Sub

di marxitpa data: 28/06/2015 08:20:00
Grazie Lepat, è come volevo ...

Vuoi Approfondire?