Cita:
Iniciado por 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. ![Aplauso](http://static.forosdelweb.com/fdwtheme/images/smilies/aplausos.gif)
Me he puesto a intentar seguirte, pero no se hacerlo.
A qué te refieres con :
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. ?¿
Cuál es la hoja Directorio de Enlaces ?
Gracias