Enlace a hoja predeterminada de un libro excel

[mrocf]

Hola! Pasote.
Si tuvieses no uno sino varios enlaces a satisfacer (como te muestro en la imagen: Variante) podrías -bajo esa estructura de información- hacer lo siguiente:

a) Haz clic con el botón derecho de tu ratón en la etiqueta de la hoja Directorio de Enlaces, y selecciona: Ver código.

b) En la ventana que se te abrirá copia y pega el siguiente código:

Código PHP:

  Private Sub Worksheet_SelectionChange(ByVal Target As Range) 
Dim MiFile As String 
With Target 
  If .Row = 1 Then Exit Sub 
  If .Column <> 5 Then Exit Sub 
  If Cells(.Row, 1) = Empty Then Exit Sub 
  If Dir(Cells(.Row, 1), vbDirectory) = "" Then Mensajes "Carpeta" 
  If Dir(Cells(.Row, 1) & Cells(.Row, 2), vbArchive) = "" Then Mensajes "Archivo" 
  Workbooks.Open Cells(.Row, 1) & Cells(.Row, 2) 
  On Error Resume Next 
  Sheets(.Offset(, 3 - .Column).Value).Select 
  If ActiveSheet.Name <> .Offset(, 3 - .Column) Then Mensajes "Hoja" 
  ActiveSheet.Range(.Offset(, 4 - .Column)).Activate 
End With 
End Sub 
 
Private Sub Mensajes(Mens As String) 
MsgBox Mens & " inexiste" 
End 
End Sub  
   

c) Cierra las ventanas del ambiente Visual Basic for Application en el que te encuentras y retorna al Excel.

d) A partir de ese momento, cada vez que selecciones una celda de la columna E, se verificarán la existencia de la carpeta, luego la del archivo y finalmente la de la hoja.

Si todo lo anterior está correcto: se selecciona la celda correspondiente.

Espero te sea de utilidad.
Saludos, Cacho.