Jump to content
Sign in to follow this  
CarlosKurt

ANSWERED 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

Share this post


Link to post
Share on other sites
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

 

Share this post


Link to post
Share on other sites
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.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  

×
×
  • Create New...

Important Information

Privacy Policy

Ayuda Excel - Madrid, Madrid, ES - Valorada por 6254 personas - Aprender Excel - Total: 4.7 / 5