Hiperlinks

17/07/2003 - 15:10 por carolina | Informe spam
¿Existe alguna manera de localizar con alguna opción de
excel cuáles son las celdas en las que hay un hyperlink?
El problema es que tengo una hoja de cálculo en la que
existen hyperlinks, y no sé cómo localizarlos para saber
qué son y eliminarlos para que no me den futuros
problemas.

Muchas gracias!!
 

Leer las respuestas

#1 Héctor Miguel
18/07/2003 - 09:00 | Informe spam
Hola, Carolina !

... localizar ... las celdas en las que hay un hyperlink? ... para saber ... y eliminarlos para que no me den futuros problemas.



==> (Me parece que) NO hay una manera "directa" por opciones de Excel :(( -podria estar equivocado-
Si no te "incomoda" el uso de macros, te paso dos variantes para localizar hipervinculos -en un modulo de codigo "normal"-
para seleccionar TODAS las celdas que tengan un hipervinculo ==Sub Seleccionar_Hipervinculos()
Dim Enlace, Direcciones As String
With ActiveSheet
If .Hyperlinks.Count > 0 Then
For Each Enlace In .Hyperlinks
If Direcciones <> "" Then Direcciones = Direcciones & ","
Direcciones = Direcciones & Enlace.Parent.Address(0, 0)
Next
Range(Direcciones).Select
Else: MsgBox "La hoja activa ¡ NO tiene Hipervinculos !!!"
End If
End With
End Sub
para obtener informacion de los hipervinculos y (opcionalmente) borrarlos ==Sub Confirmar_Hipervinculos()
Dim Enlace
With ActiveSheet
If .Hyperlinks.Count > 0 Then
For Each Enlace In .Hyperlinks
If MsgBox("La celda " & Enlace.Parent.Address & _
" contiene el hipervinculo a: " & vbCr & Enlace.Parent & vbCr & _
"¿Deseas conservarlo?", vbYesNo + vbQuestion) = vbNo _
Then Enlace.Delete
Next
Else: MsgBox "La hoja activa ¡ NO tiene Hipervinculos !!!"
End If
End With
End Sub
_______
Saludos,
Héctor.
MS-MVP

Preguntas similares