Saltar al contenido

Hipervinculo hacia la celda


Recommended Posts

Hola a tod@s.

Agradezco de antemano su tiempo y respuesta a los siguiente.

En la hoja "RESUMEN" se encuentran los códigos de clientes y en las siguientes hojas se nombran cada código de cliente. Entonces lo que se requiere es que, por ejemplo, que en la hoja "A 030-028" se crea un hipervínculo hacia la hoja "RESUMEN", PERO con dirección hacia la celda A4 ya que es el nombre de la hoja "A 030-028". Y así sucesivamente con las demás hojas. Lo haría manualmente pero son mas de 800 hojas. Creo que esto solo se puede lograr con Macros, pero si hay la posibilidad de realizar sin ello estaría perfecto.

Saludos

PRUEBA.xlsx

Enlace a comentario
Compartir con otras webs

Sub LinkToResumen()
Application.ScreenUpdating = False
For Each hoja In Sheets
   If Not hoja.Name = "RESUMEN" Then
      Set cliente = Sheets("RESUMEN").Columns("A").Find(hoja.Name, , , xlWhole)
      If Not cliente Is Nothing Then
         hoja.Hyperlinks.Add Anchor:=hoja.Range("A1"), Address:="", _
            SubAddress:="RESUMEN!" & cliente.Address, TextToDisplay:="RESUMEN"
      End If
   End If
Next
Application.ScreenUpdating = True
End Sub

 

Enlace a comentario
Compartir con otras webs

Hace 11 horas, Antoni dijo:

Sub LinkToResumen()
Application.ScreenUpdating = False
For Each hoja In Sheets
   If Not hoja.Name = "RESUMEN" Then
      Set cliente = Sheets("RESUMEN").Columns("A").Find(hoja.Name, , , xlWhole)
      If Not cliente Is Nothing Then
         hoja.Hyperlinks.Add Anchor:=hoja.Range("A1"), Address:="", _
            SubAddress:="RESUMEN!" & cliente.Address, TextToDisplay:="RESUMEN"
      End If
   End If
Next
Application.ScreenUpdating = True
End Sub

 

Hola @Antoni, estoy muy agradecido por tu respuesta y tiempo.
Doy por terminado el tema

Saludos.

Enlace a comentario
Compartir con otras webs

Archivado

Este tema está ahora archivado y está cerrado a más respuestas.

×
×
  • Crear nuevo...

Información importante

Echa un vistazo a nuestra política de cookies para ayudarte a tener una mejor experiencia de navegación. Puedes ajustar aquí la configuración. Pulsa el botón Aceptar, si estás de acuerdo.