RESULTADO BUSCARV HIPERVINCULO

Solo consultas sobre Funciones y Fórmulas Excel.
Reglas del Foro 1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!

RESULTADO BUSCARV HIPERVINCULO

Notapor AlejandroRSCA » 27 Dic 2017 16:34

Hola Amigos:

Buenas tardes, por favor ayúdenme. En el excel adjunto quiero buscar un hipervinculo de otra hoja y al colocar el DNI lo jale para asi poder darle click y dirigirme hacia el archivo. El hipervinculo esta en la hoja de nombre base.

Espero me puedan ayudar. :roll:

Sin más y a la espera me despido.

Saludos! :D
No tiene los permisos requeridos para ver los archivos adjuntos a este mensaje.
AlejandroRSCA
Miembro Nuevo
Miembro Nuevo
 
Mensajes: 3
Registrado: 20 Dic 2017 18:33

Re: RESULTADO BUSCARV HIPERVINCULO

Notapor Héctor Miguel » 27 Dic 2017 21:17

1) los hipervinculos son una ubicacion (direccion y lugar) que le indican al objeto (hipervinculo) "a donde saltar"
2) el hecho de que en tu hoja "base" apliques color de fuente azul y subrayado NO significa que se trate de un "hipervinculo" (real) :(
3) los saltos pueden ser; un lugar en el mismo documento / un archivo en tu equipo / o en la web / o ... (?)

(seguramente, se te quedaron algunos "detalles en el tintero" ?)

saludos,
hector.
Avatar de Usuario
Héctor Miguel
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 4216
Registrado: 26 Mar 2005 18:31

Re: RESULTADO BUSCARV HIPERVINCULO

Notapor Antoni » 30 Dic 2017 16:59

Tal como dice Héctor, en la hoja BASE no hay ningún hipervínculo.
Si los pones, esta macro hará lo que quieres.

Código: Seleccionar todo
Private Sub Worksheet_Change(ByVal Target As Range)
Dim DNI As Range
'--
If Not (Target.Address Like "$B$*" And _
        Target.Row > 2 And _
        Target.Rows.Count = 1 And _
        Target.Columns.Count = 1) Then Exit Sub
'--
Application.EnableEvents = False
Target.Offset(0, 1) = ""
Set DNI = Sheets("BASE").Columns("B").Find(Target.Value, , , xlWhole)
If Not DNI Is Nothing Then DNI.Copy Target.Offset(0, 1)
Application.EnableEvents = True
End Sub

Avatar de Usuario
Antoni
Miembro Frecuente
Miembro Frecuente
 
Mensajes: 5028
Registrado: 22 Dic 2009 04:58
Ubicación: GALICIA (ESPAÑA)


Volver a Funciones y Fórmulas

¿Quién está conectado?

Usuarios navegando por este Foro: oggi y 5 invitados