Como poner en texto la fórmula interior de una celda.

Una opción es crear una función personalizada (Herramientas, Macros, Editor
de Visual Basic y en el menú Insertar, Módulo y ahí copias esta función:

Function MiSemana(MiCelda As Range)
MiSemana = Mid(MiCelda.Formula, 25, 4)
End Function

Luego, en el libro de Excel, en la celda en donde deseas la respuesta
colocas
="Datos al " & MiSemana(A1) donde A1 es la dirección de la celda en donde
está la función correcta (=BUSCARV($B5;'[2004.xls]2710'!$A:$B;2;0).

Suerte,

Olga Yaneth

"Ralf" wrote in message
news:

Buenos días:
Ruego disculpas si es una perrogullada, pero no sé como hacerlo.

El problema es que en una celda tengo puesto una fórmula que me busca

en

otra hoja de otro libro cuyo formato es :BUSCARV
($B5;'[2004.XLS]2710'$A:$B;2;0)



Donde $b5 es una variable y 2004.xls es el libro con hojas semanales
(cada hoja se llama como el final del día de la semana)

Me gustaría que ese dato de 2710 me lo refiriera en otra celda ya que

es

la fecha de extracción de los datos, de modo que esa celda que quiero
conformar, me indicara algo como "Datos al", 2710.

Bueno gracias por la atención prestada.

Ok, pero esto sirve si tengo abierto el libro 2004.xls

en caso contrario, la posición 25, no es la adecuada, No?

Este problema como dices podría haberlo solucionado con extrae ?



"Ralf" escribió en el mensaje
news:

Buenos días:
Ruego disculpas si es una perrogullada, pero no sé como hacerlo.

El problema es que en una celda tengo puesto una fórmula que me busca

en

otra hoja de otro libro cuyo formato es :BUSCARV
($B5;'[2004.XLS]2710'$A:$B;2;0)



Donde $b5 es una variable y 2004.xls es el libro con hojas semanales
(cada hoja se llama como el final del día de la semana)

Me gustaría que ese dato de 2710 me lo refiriera en otra celda ya que

es

la fecha de extracción de los datos, de modo que esa celda que quiero
conformar, me indicara algo como "Datos al", 2710.

Bueno gracias por la atención prestada.

La función Extrae es la misma MID, sólo que versión VB. No conozco ninguna
función que capture directamente en Excel el texto de la fórmula. Sea cual
sea el año, siempre tendrá cuatro dígitos y estará en la misma posición
dentro de la fórmula, esté o no esté abierto el archivo. Claro que la
función se puede mejorar buscando el caracter ] que indica el inicio del
nombre de la hoja y el caracter ! que indica el final del nombre de la hoja,
así:

Function MiSemana(MiCelda As Range)
Dim PosiciónInicial As Integer, PosiciónFinal As Integer
MiSemana = Mid(MiCelda.Formula, 25, 4)
For i = 1 To Len(MiCelda.Formula)
If Mid(MiCelda.Formula, i, 1) = "]" Then
PosiciónInicial = i + 1
ElseIf Mid(MiCelda.Formula, i, 1) = "!" Then
PosiciónFinal = i
End If
Next
MiSemana = Mid(MiCelda.Formula, PosiciónInicial, PosiciónFinal -
PosiciónInicial)
End Function


Olga Yaneth

"Ralf" wrote in message
news:

Ok, pero esto sirve si tengo abierto el libro 2004.xls

en caso contrario, la posición 25, no es la adecuada, No?

Este problema como dices podría haberlo solucionado con extrae ?



"Ralf" escribió en el mensaje
news:
> Buenos días:
> Ruego disculpas si es una perrogullada, pero no sé como hacerlo.
>
> El problema es que en una celda tengo puesto una fórmula que me

busca

en
> otra hoja de otro libro cuyo formato es :BUSCARV
> ($B5;'[2004.XLS]2710'$A:$B;2;0)
>
>
>
> Donde $b5 es una variable y 2004.xls es el libro con hojas semanales
> (cada hoja se llama como el final del día de la semana)
>
> Me gustaría que ese dato de 2710 me lo refiriera en otra celda ya

que

es
> la fecha de extracción de los datos, de modo que esa celda que quiero
> conformar, me indicara algo como "Datos al", 2710.
>
> Bueno gracias por la atención prestada.
>
>