Referencias Varias

hola, Rafael !

En un libro externo a donde estoy trabajando... en la celda [hoja1]A1 tengo el valor 10
En el archivo en donde estoy trabajando tengo una formula que me construye la referencia de dicha celda
Lo que estoy buscando es como traer el valor de esa celda teniendo la referencia de esa celda.
En una celda tengo: '[Libro1.xls]Hoja1'!A1
y en otra quiero que usando esa referencia me traiga el 10...

suponiendo que 'la celda' donde construyes la referencia -> '[Libro1.xls]Hoja1'!A1 -> es 'B15' [de la hoja activa]
prueba con: =indirecto(b15)

si llegara a darse el caso de que 'Libro1.xls' esta 'cerrado'... la funcion indirecto(...) NO va a funcionar :-(
habria que usar otras alternativas ;)

saludos,
hector.

Gracias Hector.

Justo necesito que me traiga el valor cuando el otro libro esta
cerrado.

Alguien conoce la forma de lograr esto?

Gracias

Rafael


Héctor Miguel ha escrito:

hola, Rafael !


> En un libro externo a donde estoy trabajando... en la celda [hoja1]A1 tengo el valor 10
> En el archivo en donde estoy trabajando tengo una formula que me construye la referencia de dicha celda
> Lo que estoy buscando es como traer el valor de esa celda teniendo la referencia de esa celda.
> En una celda tengo: '[Libro1.xls]Hoja1'!A1
> y en otra quiero que usando esa referencia me traiga el 10...

suponiendo que 'la celda' donde construyes la referencia -> '[Libro1.xls]Hoja1'!A1 -> es 'B15' [de la hoja activa]
prueba con: =indirecto(b15)

si llegara a darse el caso de que 'Libro1.xls' esta 'cerrado'... la funcion indirecto(...) NO va a funcionar :-(
habria que usar otras alternativas ;)

saludos,
hector.

hola, Rafael !

Justo necesito que me traiga el valor cuando el otro libro esta cerrado.
Alguien conoce la forma de lograr esto?

'aqui es cuando'... empiezan a 'salir' algunos detalles que 'estaban en el tintero' :))
si el [o los] libro/s va/n a estar cerrado/s... se requiere 'meter' [por codigo] una formula que...
-> cree [literal y realmente] el vinculo al documento [ruta, libro, hoja y rango]
-> o... que [simplemente] 'tome' el dato del libro cerrado y lo ponga en la celda 'B'
-> o... usar un complemento de terceros :-(

Y... [para todos los casos]... proveer tambien la ruta donde se encuentra el archivo CERRADO ;)

te paso algunos detalles al final ;)
si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
=
op1: suponiendo que en la celda 'A1' escribes el nombre del archivo SIN la EXTension [.XLS]
OJO: la EXTension, los corchetes y los apostrofos 'se los vamos a dejar' al codigo <= OJO
suponiendo que en la celda 'A2' escribes el nombre de la hoja [pura, simple, llana y solita] :D
suponiendo que en la celda 'A3' escribes la celda de donde necesitas obtener 'el dato'
suponiendo que 'la ruta' sera SIEMPRE [p.e.] ->C:\Mis documentos\
suponiendo que 'el resultado' deseas 'meterlo' en la celda 'B3'
en un modulo de codigo 'normal' ==Sub Dato_En_Libro_Cerrado()
Dim Ruta As String, Archivo As String, Hoja As String, Celda As String
Ruta = "C:\Mis documentos\"
Archivo = Range("a1")
Hoja = Range("a2")
Celda = Range("a3")
Range("b3").Formula = _
"='" & Ruta & "[" & Archivo & ".xls]" & Hoja & "'!" & Celda
End Sub

op2: si es el caso que NO requieres 'mantener' los archivos vinculados, sino solo 'tomar' el dato...
-> cambia/sustituye la instruccion...

Range("b3").Formula = _
"='" & Ruta & "[" & Archivo & ".xls]" & Hoja & "'!" & Celda
-> por la instruccion siguiente...
Range("b3") = ExecuteExcel4Macro( _
"'" & Ruta & "[" & Archivo & ".xls]" & Hoja & "'!" & Range(Celda).Address(, , xlR1C1))

op3: la alternativa de usar un complemento de terceros, seria +/- como sigue:
busca en la pagina de Laurent Longre -> http://xcell05.free.fr/ =>English page<= [Excel add-ins]
[e instala] el complemento MoreFunc.xll [MasFunciones] -> http://xcell05.free.fr/downloads/Morefunc.zip
[opcionalmente, algunos ejemplos en -> http://xcell05.free.fr/downloads/Examples.zip]
podras usar la funcion: Indirect.Ext que permite 'interactuar' con libros cerrados.
-mas otras 40 funciones que 'tendrias que cargar' con ellas- =>todas muy utiles<= 'pero'... NO de 'uso frecuente'