Hipervinculos en macro

Hola experto me gustaria saber si es posible crear un macro en excel que cuando seleccione una celda me abra un hipervinculo a una direccion determinada, pero tambien cuando lo aplique a otra celda me lleve a otra direccion diferente a la primera. Lo que he realizado es lo siguiente. El problema es que el macro me abre los dos hipervinculos a la vez. 
Sub abrir hipervinculos() 
If Range(E3").Select Then 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ 
"C:\Users\Usuario\Documents\formato 2.docx" 
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
End If 
If Range("E7").Select Then 
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _ 
"C:\Users\Usuario\Documents\formato1 .docx" 
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True 
End If 
End Sub

1 Respuesta

Respuesta
1
Pruebalo de esta manera
No olvides finalizar lapregunta.
Saludos
Bacter
Sub abrir_hipervinculos()
If ActiveCell.Address = Range("E3").Address Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Users\Usuario\Documents\formato 2.docx"
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
If ActiveCell.Address = Range("E7").Address Then
ActiveSheet.Hyperlinks.Add Anchor:=Selection, Address:= _
"C:\Users\Usuario\Documents\formato1 .docx"
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
End If
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas