Como crear con Macro un hipervínculo desde una celda a otra en Excel en todas las hojas del libro
Tengo un libro con mas de 100 hojas y continuarán agregándose. Tiene una hoja "0_Índice" con vinculos a todas las hojas. En el resto, necesito que en la celda E8 a la celda AP3. Y en la celda AP3 hacia la celda A1. ¿Es posible?
2 Respuestas
Respuesta de Dante Amor
1
Ejecuta la siguiente macro
Sub Crear_Hiper()
'Por.Dante Amor
For Each h In Sheets
Select Case LCase(h.Name)
Case LCase("0_Índice"), LCase("Hoja4")
Case Else
dato = h.Range("E8").Value
If dato = "" Then dato = h.Name & "!AP3"
h.Hyperlinks.Add Anchor:=h.Range("E8"), Address:="", _
SubAddress:="'" & h.Name & "'!AP3", TextToDisplay:=dato
'
dato = h.Range("AP3").Value
If dato = "" Then dato = h.Name & "!A1"
h.Hyperlinks.Add Anchor:=h.Range("AP3"), Address:="", _
SubAddress:="'" & h.Name & "'!A1", TextToDisplay:=dato
End Select
Next
MsgBox "Fin"
End SubSi no quieres el hipervículo en algunas hojas, entonces agrega los nombres de esas hojas en esta línea de la macro, Sigue los ejemplos para agregar más hojas.:
Case LCase("0_Índice"), LCase("Hoja4")
