Bienvenido a la mayor comunidad de usuarios EXCEL

Regístrate gratis ahora para ver contenidos y descargas sin restricciones!

Regístrate gratis

Macro abrir hiperviculos 1x1

mago18

Well-known member
Registrado
1 Dic 2010
Mensajes
1.132
Hola buenas tardes.

Tengo un listado de diferentes archivos que tengo en carpetas especificadas en una ruta, así mismo he creado un hipervínculo a cada una.

Celda x celda existe el hipervínculo...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 

Adjuntos

    Sin permisos de acceso
Solución
Podría ser algo así:
Código:
Sub AbrirLinks(): On Error Resume Next
Application.DisplayAlerts = False
For x = 2 To Range("B" & Rows.Count).End(xlUp).Row
   Range("B" & x).Hyperlinks(1).Follow '<-- Abre el hipervínculo
   Application.Wait Now + TimeSerial(0, 0, 15)
Next
Application.DisplayAlerts = True
End Sub
Podría ser algo así:
Código:
Sub AbrirLinks(): On Error Resume Next
Application.DisplayAlerts = False
For x = 2 To Range("B" & Rows.Count).End(xlUp).Row
   Range("B" & x).Hyperlinks(1).Follow...
Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes
iniciar sesión aquí
 
Volver
Arriba