Abrir archivos con vinculos

hola, !

Tengo un archivo que tiene vinculos con otro (secundario).
Sino abro el archivo secundario me aparece en las celdas el error "#REF"
Como hago para que cada vez q abra el archivo se abra tambien el archivo secundario.

si no quieres usar macros, prueba con el siguiente procedimiento:
estando abiertos SOLO los libros involucrados... prueba a guardarlos como "area de trabajo"
esto genera un archivo con la extension *.XLW que actua como un "contenedor" de esos libros
(siempre que abras este *.XLW se abriran los que correspondan a esa "area de trabajo")

saludos,
hector.

On Feb 26, 4:22 pm, "Héctor Miguel"
wrote:

hola, !

> Tengo un archivo que tiene vinculos con otro (secundario).
> Sino abro el archivo secundario me aparece en las celdas el error "#REF"
> Como hago para que cada vez q abra el archivo se abra tambien el archivo secundario.

si no quieres usar macros, prueba con el siguiente procedimiento:
estando abiertos SOLO los libros involucrados... prueba a guardarlos como "area de trabajo"
esto genera un archivo con la extension *.XLW que actua como un "contenedor" de esos libros
(siempre que abras este *.XLW se abriran los que correspondan a esa "area de trabajo")

saludos,
hector.

y con un macro, como lo hago? los 2 archivos estan siempre en el mismo
directorio juntos ?

hola, !

y con un macro, como lo hago? los 2 archivos estan siempre en el mismo directorio ...

en cada uno de esos 2 libros, copia/pega (o escribe) el siguiente procedimiento
-> EN el modulo de codigo de su objeto ThisWorkbook:
OJO: solo asegurate que la variable "miOtroLibro" haga referencia al nombre "del otro" libro en cada uno

Private Sub Workbook_Open()
Dim miOtroLibro As String, Abierto As Boolean
miOtroLibro = "contra-libro.xls" ' <= pon aqui el nombre -segun sea- "del otro" libro '
On Error Resume Next
Abierto = Len(Workbooks(miOtroLibro).Name)
On Error GoTo 0
If Not Abierto Then Workbooks.Open Me.Path & "\" & miOtroLibro
End Sub

saludos,
hector.

On Feb 27, 10:22 pm, "Héctor Miguel"
wrote:

hola, !

> y con un macro, como lo hago? los 2 archivos estan siempre en el mismo directorio ...

en cada uno de esos 2 libros, copia/pega (o escribe) el siguiente procedimiento
-> EN el modulo de codigo de su objeto ThisWorkbook:
    OJO: solo asegurate que la variable "miOtroLibro" haga referencia al nombre "del otro" libro en cada uno

Private Sub Workbook_Open()
  Dim miOtroLibro As String, Abierto As Boolean
  miOtroLibro = "contra-libro.xls" ' <= pon aqui el nombre -segun sea- "del otro" libro '
  On Error Resume Next
  Abierto = Len(Workbooks(miOtroLibro).Name)
  On Error GoTo 0
  If Not Abierto Then Workbooks.Open Me.Path & "\" & miOtroLibro
End Sub

saludos,
hector.

Muchas Gracias Hector, la ultima preguntita

Como haria para que se abra en segundo plano, es decir, cada vez que
abro el archivo principal me queda en la pantalla activa "miOtroLibro"
siendo que deseo que se abra solamente y me quede abierto el archivo
principal (que es el que abri originalmente)

Muchas gracias nuevamente,
Gabriel

hola, Gabriel !

Como haria para que se abra en segundo plano, es decir, cada vez que abro el archivo principal
me queda en la pantalla activa "miOtroLibro" siendo que deseo que se abra solamente
y me quede abierto el archivo principal (que es el que abri originalmente)

en el codigo del que sea tu libro principal, agrega la siguiente instruccion... justo ANTES del "End Sub"
-> Me.Windows(1).Activate

saludos,
hector.

__ OP __

y con un macro, como lo hago? los 2 archivos estan siempre en el mismo directorio ...

en cada uno de esos 2 libros, copia/pega (o escribe) el siguiente procedimiento
-> EN el modulo de codigo de su objeto ThisWorkbook:
OJO: solo asegurate que la variable "miOtroLibro" haga referencia al nombre "del otro" libro en cada uno

Private Sub Workbook_Open()
Dim miOtroLibro As String, Abierto As Boolean
miOtroLibro = "contra-libro.xls" ' <= pon aqui el nombre -segun sea- "del otro" libro '
On Error Resume Next
Abierto = Len(Workbooks(miOtroLibro).Name)
On Error GoTo 0
If Not Abierto Then Workbooks.Open Me.Path & "\" & miOtroLibro
End Sub