Ver Mensaje Individual
  #20 (permalink)  
Antiguo 20/09/2009, 18:15
Avatar de Pasote
Pasote
 
Fecha de Ingreso: mayo-2006
Ubicación: España - Islas Canarias
Mensajes: 389
Antigüedad: 18 años
Puntos: 3
Respuesta: Enlace a hoja predeterminada de un libro excel

Cita:
Iniciado por mrocf Ver Mensaje
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(.Row1) = Empty Then Exit Sub
  
If Dir(Cells(.Row1), vbDirectory) = "" Then Mensajes "Carpeta"
  
If Dir(Cells(.Row1) & Cells(.Row2), vbArchive) = "" Then Mensajes "Archivo"
  
Workbooks.Open Cells(.Row1) & Cells(.Row2)
  
On Error Resume Next
  Sheets
(.Offset(, - .Column).Value).Select
  
If ActiveSheet.Name <> .Offset(, - .ColumnThen Mensajes "Hoja"
  
ActiveSheet.Range(.Offset(, - .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.
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