GENERANDO UN HIPERVINCULO VARIABLE EN UN RANGO DE CELDAS
Publicado por Quico (106 intervenciones) el 25/01/2020 09:03:08
Hola a todos, tengo un excel con una serie de valores en la que me interesa generar un HIPERVINCULO en un rango de celdas y no se como hacerlo.
Adjunto un excel, pero el resumen sería:
A partir de aqui, y dado que esta lista se amplia, necesito que cada vez que ejecute la MACRO, inserte el vínculo.
Sería ideal que si ya detecta un vinculo no lo genere de nuevo, pero dado que no creo que sirve de mucho, me da
igual que vuelva a generar todo el rango.
Estaba intentando con algo así, pero ciertamente no se indicarle lo que necesito hacer :-(
Sub hipervinculos()
fila = Range("G9").End(xlDown).Row
For i = 2 To fila
Cells(i, 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="www.pericodelospalotes/browser/" & _
Int(Cells(i, 1) _
TextToDisplay:="ver fichero"
Next
End Sub
Adjunto un excel, pero el resumen sería:
1. Dado el rango G desde la celda G9 hasta el úlimo valor de la columna
2. Quiero insertar a casa valor de la celda, un hipervinculo.
3. El hipervinculo a insertar mantendrá la siguiente sintaxis:
www.pericodelospalotes/browser/Y AQUI EL VALOR DE CADA CELDA del rango G
4. La celda seguirá mostrando el valor de la celda. ¡No el hipervinculo!
2. Quiero insertar a casa valor de la celda, un hipervinculo.
3. El hipervinculo a insertar mantendrá la siguiente sintaxis:
www.pericodelospalotes/browser/Y AQUI EL VALOR DE CADA CELDA del rango G
4. La celda seguirá mostrando el valor de la celda. ¡No el hipervinculo!
A partir de aqui, y dado que esta lista se amplia, necesito que cada vez que ejecute la MACRO, inserte el vínculo.
Sería ideal que si ya detecta un vinculo no lo genere de nuevo, pero dado que no creo que sirve de mucho, me da
igual que vuelva a generar todo el rango.
Estaba intentando con algo así, pero ciertamente no se indicarle lo que necesito hacer :-(
Sub hipervinculos()
fila = Range("G9").End(xlDown).Row
For i = 2 To fila
Cells(i, 4).Select
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:="www.pericodelospalotes/browser/" & _
Int(Cells(i, 1) _
TextToDisplay:="ver fichero"
Next
End Sub
- Genarar_Hipervinculo.zip(18,8 KB)
Valora esta pregunta
0