Enlace "dinámico" a otra hoja

Hola Cesar,

Me cuesta creer que no puedas usar reemplazar. Si seleccionas las celdas con
los vinculos, y en el dialogo de reemplazar pones encontrar: [Resul_abr.xls]
y reemplazar con: [Resul_mar.xls], es dificil que te afecte otros datos
(vamos, digo yo).

Saludos,
KL

"César" wrote in message
news:upGv%

Hola a !

Tengo una hoja que enlace a otras hojas que van variando en función del
mes (Ej: [Resul_abr.xls]$A$1) y cada mes tengo que cambiar el nombre del
enlace (siempre son las tres primeras letras del mes), en todas las
formulas.
¿Hay alguna manera sencilla de cambiarlas de manera más automática?
No puedo utilizar el reemplazar porque modifica otros datos que no me
interesa cambiar.
Un saludo y gracias.

Poder utilizar si que puedo utilizarlo, pero lo tengo que hacer 9 veces
porque en esta hoja hago referencia a varias hojas con nombre diferentes
([Resul_abr], [Imput_abr], [Horas_abr], etc), y me gustaría algo más rápido,
por ejemplo poner en una celda el mes que quiero y que en todas las formulas
se haga referencia a esa celda para coger el final del nombre.

"KL" escribió en el mensaje
news:

Hola Cesar,

Me cuesta creer que no puedas usar reemplazar. Si seleccionas las celdas
con los vinculos, y en el dialogo de reemplazar pones encontrar:
[Resul_abr.xls] y reemplazar con: [Resul_mar.xls], es dificil que te
afecte otros datos (vamos, digo yo).

Saludos,
KL

"César" wrote in message
news:upGv%

Hola a !

Tengo una hoja que enlace a otras hojas que van variando en función del
mes (Ej: [Resul_abr.xls]$A$1) y cada mes tengo que cambiar el nombre del
enlace (siempre son las tres primeras letras del mes), en todas las
formulas.
¿Hay alguna manera sencilla de cambiarlas de manera más automática?
No puedo utilizar el reemplazar porque modifica otros datos que no me
interesa cambiar.
Un saludo y gracias.

Hola Cesar,

Prueba el siguiente codigo que asume que tienes el nombre corto del mes en
la celda [E1] de la hoja que tiene las formulas *si no fuera asi cambia la
referncia).

Saludos,
KL

'--Inicio Codigo
Sub test()
Dim rng As Range
Dim Mes As String

On Error Resume Next
With ActiveWorkbook.ActiveSheet
Set rng = .Cells.SpecialCells(xlCellTypeFormulas)
End With
On Error GoTo 0
If rng Is Nothing Then Exit Sub

Mes = rng.Parent.Range("E1")
rng.Replace What:="_???.xls]", _
Replacement:="_" & Mes & ".xls]"
End Sub
'--Fin Codigo

Hola otra vez,

Solo comentarte que esto mismo lo puedes hacer manualmente usando Reemplazar
(un paso nada mas - no hay que repetirlo para cada uno de los nombres de
fichero que mencionas en tu mensaje anterior)

Saludos,
KL

"KL" wrote in message
news:%23jozmr%

Hola Cesar,

Prueba el siguiente codigo que asume que tienes el nombre corto del mes en
la celda [E1] de la hoja que tiene las formulas *si no fuera asi cambia la
referncia).

Saludos,
KL

'--Inicio Codigo
Sub test()
Dim rng As Range
Dim Mes As String

On Error Resume Next
With ActiveWorkbook.ActiveSheet
Set rng = .Cells.SpecialCells(xlCellTypeFormulas)
End With
On Error GoTo 0
If rng Is Nothing Then Exit Sub

Mes = rng.Parent.Range("E1")
rng.Replace What:="_???.xls]", _
Replacement:="_" & Mes & ".xls]"
End Sub
'--Fin Codigo

Gracias. Efectivamente creo que podré utilizar reemplazar una sola vez.

Saludos.

"KL" escribió en el mensaje
news:%23mcCQy%

Hola otra vez,

Solo comentarte que esto mismo lo puedes hacer manualmente usando
Reemplazar (un paso nada mas - no hay que repetirlo para cada uno de los
nombres de fichero que mencionas en tu mensaje anterior)

Saludos,
KL

"KL" wrote in message
news:%23jozmr%

Hola Cesar,

Prueba el siguiente codigo que asume que tienes el nombre corto del mes
en la celda [E1] de la hoja que tiene las formulas *si no fuera asi
cambia la referncia).

Saludos,
KL

'--Inicio Codigo
Sub test()
Dim rng As Range
Dim Mes As String

On Error Resume Next
With ActiveWorkbook.ActiveSheet
Set rng = .Cells.SpecialCells(xlCellTypeFormulas)
End With
On Error GoTo 0
If rng Is Nothing Then Exit Sub

Mes = rng.Parent.Range("E1")
rng.Replace What:="_???.xls]", _
Replacement:="_" & Mes & ".xls]"
End Sub
'--Fin Codigo