Saludos de nuevo y una cuestión.

Imanol,

Prueba con el codigo de abajo. No te olvides de hacer un backup de tu
fichero antes de usar el macro.

Saludos,
KL

'Inicio Codigo-
Sub test1()
For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "pepe###" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "pepe##" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "pepe#" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
End With
Next c
End Sub
'Fin Codigo-

"Imanol" wrote in message
news:


x-no-archive:yes

Hola. Hace tiempo que no escribía aquí. O sea que un saludo inmenso para
todos.
Tengo una cuestión para no variar.
Tengo en una celda lo siguiente; ¡+pepe2 (pepex es el nombre que en su
momento
le asigné a la celda correspondiente).
En otras muchas celdas tengo otros nombres como por ejemplo, pepe3, pepe4,
etc.
¿ Cómo puedo hacer para cambiar ese pepex de cada una de las celdas por su
correspondiente a2, b4, g98, etc, sin tener que hacerlo a mano con cada una
de
las celdas (es decir, borro pepe1 y pongo d3,etc.) ?. Lo más sencillo y
cómodo
posible.
Gracias y un saludo.

Imanol,

1) si no te importa, vuelvo a trasladar la conversacion al grupo para q todo
el mundo pueda beneficiarse de ella (y tu tambien por tener mas opiniones
alternativas).

2) Por lo q comentas habra q cambiar el codigo de una manera importante,
pero si las respuestas a las preguntas 3) y 4) de abajo son afirmativas
entonces sera hacia la simplificacion.

3) ?se puede asumir q todos los nombres q utilizas son tan difrentes q no
puede darse el caso de q por ejemplo un nombre contenga algun otro (ejemplo:
"pepe12" contiene "pepe1", o "alaves" contine "aves")? Si te fijas en el
codigo q te mande antes, precisamente tuve q tratar este problema
sustituyendo primero los nombres q empezaban con "pepe" y acababan con 3
digitos, luego los q acababan con 2 digitos y solo despues los q tenian solo
un digito al final.

4) ?se puede asumir q tu intencion es sustituir todos los nombres sin
excepcion usados en la hoja con su respectiva referencia?

5) este codigo lo puedes lanzar desde la ventana de macros activando la hoja
q se pretende modificar y pulsando Ctrl+F8

Dime algo.

Un abrazo,
KL


From: Imanol
To: KL
Sent: 10 December 2004 Ç. 19:11
Subject: Re: Saludos de nuevo y una cuestion.

x-no-archive:yes

Gracias. Antes de probarlo y al ver que has utilizado el nombre del ejemplo,
es decir, pepe, te comento:
Los nombres son tan diferentes como barakaldo, sestao, zaragoza, alaves,
etc.
Sabiendo eso ahora, ?hay que corregir algo del codigo que me mandas?.
Otra cosa; no soy novato pero al ver tu codigo voy a pensar que si; ?que
hago con el?.
Gracias y un saludo.

"KL" <lapink2000(at)hotmail.com> wrote in message
news:

Imanol,

Prueba con el codigo de abajo. No te olvides de hacer un backup de tu
fichero antes de usar el macro.

Saludos,
KL

'Inicio Codigo-
Sub test1()
For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "pepe###" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "pepe##" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "pepe#" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
End With
Next c
End Sub
'Fin Codigo-

"Imanol" wrote in message
news:


x-no-archive:yes

Hola. Hace tiempo que no escribía aquí. O sea que un saludo inmenso para
todos.
Tengo una cuestión para no variar.
Tengo en una celda lo siguiente; ¡+pepe2 (pepex es el nombre que en su
momento
le asigné a la celda correspondiente).
En otras muchas celdas tengo otros nombres como por ejemplo, pepe3, pepe4,
etc.
¿ Cómo puedo hacer para cambiar ese pepex de cada una de las celdas por su
correspondiente a2, b4, g98, etc, sin tener que hacerlo a mano con cada
una de
las celdas (es decir, borro pepe1 y pongo d3,etc.) ?. Lo más sencillo y
cómodo
posible.
Gracias y un saludo.

x-no-archive:yes


Respondo a las preguntas 3 y 4:

Son 15 hojas.
Los nombres de una hoja por ejemplo son: realjuv1, saninaziojuvenilhonor12,
romo23.
Los de otra son: athleticcadeteliga5, zaragozacad1.
Y así las 15 hojas. Como puedes ver, en lo que coinciden todas es en que tienen
al final del nombre el número de la jornada de liga que es. Desde la 1 hasta la
30 ó 32, 33, 34.
Y a la última pregunta, la respuesta es sí. Sí quiero cambiar todos los nombres.
ESPERA...me acabo de dar cuenta de que al poner las referencias de las celdas,
no existe la personalización de cada celda individualmente, con lo que con
substituir los nombres de una hoja, se copia en todas las demás y arreglado.
Te apunto los nombres de una de las hojas y creo que con eso ya estaría.
Ahí van:
Todos llevan desde el número 1 al 30.

dbj1, dbj2dbj30
huescajh1
casablancajuv1
oberenadivisiondehonor1
athleticjuv1
realunionjh1
indartsujuvnac1
añorgajh1
balsasdivisiondehonor1
realjuv1
osasunajuv1
aurreradivisiondehonor1
alavesjuv1
amigohono1
oliverjuv1
zaragozajuv1

Recuerda que cada nombre tiene tras él, un número del 1 al 30.
Gracias y un saludo.

KL escribió (Fri, 10 Dec 2004 19:38:12 +0100):

Imanol,

1) si no te importa, vuelvo a trasladar la conversacion al grupo
para q todo el mundo pueda beneficiarse de ella (y tu tambien por
tener mas opiniones alternativas).

2) Por lo q comentas habra q cambiar el codigo de una manera
importante, pero si las respuestas a las preguntas 3) y 4) de abajo
son afirmativas entonces sera hacia la simplificacion.

3) ?se puede asumir q todos los nombres q utilizas son tan
difrentes q no puede darse el caso de q por ejemplo un nombre
contenga algun otro (ejemplo: "pepe12" contiene "pepe1", o "alaves"
contine "aves")? Si te fijas en el codigo q te mande antes,
precisamente tuve q tratar este problema sustituyendo primero los
nombres q empezaban con "pepe" y acababan con 3 digitos, luego los
q acababan con 2 digitos y solo despues los q tenian solo un digito
al final.

4) ?se puede asumir q tu intencion es sustituir todos los nombres
sin excepcion usados en la hoja con su respectiva referencia?

5) este codigo lo puedes lanzar desde la ventana de macros
activando la hoja q se pretende modificar y pulsando Ctrl+F8

Dime algo.

Un abrazo,
KL


From: Imanol
To: KL
Sent: 10 December 2004 Ç. 19:11
Subject: Re: Saludos de nuevo y una cuestion.

x-no-archive:yes

Gracias. Antes de probarlo y al ver que has utilizado el nombre del
ejemplo, es decir, pepe, te comento:
Los nombres son tan diferentes como barakaldo, sestao, zaragoza,
alaves, etc.
Sabiendo eso ahora, ?hay que corregir algo del codigo que me
mandas?. Otra cosa; no soy novato pero al ver tu codigo voy a
pensar que si; ?que hago con el?. Gracias y un saludo.

"KL" <lapink2000(at)hotmail.com> wrote in message
news:

Imanol,

Prueba con el codigo de abajo. No te olvides de hacer un backup
de tu fichero antes de usar el macro.

Saludos,
KL

'Inicio Codigo-
Sub test1()
For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "pepe###" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n For Each n In .Names If
n.Name Like "pepe##" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n For Each n In .Names If
n.Name Like "pepe#" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n End With Next c End Sub '--
-Fin Codigo-

"Imanol" wrote in message
news:


x-no-archive:yes

Hola. Hace tiempo que no escribía aquí. O sea que un saludo
inmenso para todos. Tengo una cuestión para no variar.
Tengo en una celda lo siguiente; ¡+pepe2 (pepex es el nombre
que en su momento le asigné a la celda correspondiente).
En otras muchas celdas tengo otros nombres como por ejemplo,
pepe3, pepe4, etc.
¿ Cómo puedo hacer para cambiar ese pepex de cada una de las
celdas por su correspondiente a2, b4, g98, etc, sin tener que
hacerlo a mano con cada una de
las celdas (es decir, borro pepe1 y pongo d3,etc.) ?. Lo más
sencillo y cómodo posible. Gracias y un saludo.

Imanol,

Prueba con el codigo de abajo. Por si acaso, te he incorporado un codigo
para detectAr duplicidad de nombres. Es decicir situaciones como, por
ejemplo, las de [ciudadrealjuv1]-[realjuv1] o [dbj1]-[dbj12]. Si la unica
diferencia entre dos nombres es el numero al final - el macro lo manejara
correctamente, por lo cual el segundo caso no representa ningun problema. El
primero probablemente se sustituya incorrectamente, pero la buena noticia es
q casi seguro la formula devolvera error y al ir a la celda veras
perfectamente q es lo q ha ocurrido y podras arreglarlo. De todas formas no
te olvides del BACKUP.

Saludos,
KL

'Inicio Codigo-
Sub test1()
Dim miLista As String
Dim n As Name
Dim nn As Name
Dim Contador As Integer
Dim c As Range
Dim RespUsuario
Dim Mensaje As String

For Each n In ThisWorkbook.Names
For Each nn In ThisWorkbook.Names
If InStr(nn.Name, n.Name) > 0 And nn.Name <> n.Name Then
miLista = miLista & "[" & nn.Name & "]" & _
" contiene: " & "[" & n.Name & "]" & Chr(13)
Contador = Contador + 1
End If
Next nn
Next n

If Contador > 0 Then
Mensaje = "Se han detectado las siguientes irregularidades:" _
& Chr(13) & Chr(13)
Mensaje = Mensaje & miLista & Chr(13)
Mensaje = Mensaje & "?Quieres seguir con la presente operacion?" _
& Chr(13) & Chr(13)
Mensaje = Mensaje & "Si decides seguir, es posible que los" _
& Chr(13)
Mensaje = Mensaje & "nombres listados arriba se sustituyan" _
& Chr(13)
Mensaje = Mensaje & "incorrectamente."

RespUsuario = MsgBox(Mensaje, vbYesNo + vbCritical, _
"!Nombres Duplicados Detectados!")
If RespUsuario = vbNo Then Exit Sub
Else
Mensaje = "No se han detectado nombres duplicados." _
& Chr(13) & Chr(13)
Mensaje = Mensaje & Chr(13) & _
"?Quieres seguir con la presente operacion?"

RespUsuario = MsgBox(Mensaje, vbYesNo + vbInformation, _
"Nombres Duplicados No Detectados")
If RespUsuario = vbNo Then Exit Sub
End If

For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "*###" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "*##" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "*#" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
End With
Next c
End Sub
'Fin Codigo-


"Imanol" wrote in message
news:
x-no-archive:yes


Respondo a las preguntas 3 y 4:

Son 15 hojas.
Los nombres de una hoja por ejemplo son: realjuv1, saninaziojuvenilhonor12,
romo23.
Los de otra son: athleticcadeteliga5, zaragozacad1.
Y así las 15 hojas. Como puedes ver, en lo que coinciden todas es en que
tienen
al final del nombre el número de la jornada de liga que es. Desde la 1 hasta
la
30 ó 32, 33, 34.
Y a la última pregunta, la respuesta es sí. Sí quiero cambiar todos los
nombres.
ESPERA...me acabo de dar cuenta de que al poner las referencias de las
celdas,
no existe la personalización de cada celda individualmente, con lo que con
substituir los nombres de una hoja, se copia en todas las demás y arreglado.
Te apunto los nombres de una de las hojas y creo que con eso ya estaría.
Ahí van:
Todos llevan desde el número 1 al 30.

dbj1, dbj2dbj30
huescajh1
casablancajuv1
oberenadivisiondehonor1
athleticjuv1
realunionjh1
indartsujuvnac1
añorgajh1
balsasdivisiondehonor1
realjuv1
osasunajuv1
aurreradivisiondehonor1
alavesjuv1
amigohono1
oliverjuv1
zaragozajuv1

Recuerda que cada nombre tiene tras él, un número del 1 al 30.
Gracias y un saludo.

KL escribió (Fri, 10 Dec 2004 19:38:12 +0100):

Imanol,

1) si no te importa, vuelvo a trasladar la conversacion al grupo
para q todo el mundo pueda beneficiarse de ella (y tu tambien por
tener mas opiniones alternativas).

2) Por lo q comentas habra q cambiar el codigo de una manera
importante, pero si las respuestas a las preguntas 3) y 4) de abajo
son afirmativas entonces sera hacia la simplificacion.

3) ?se puede asumir q todos los nombres q utilizas son tan
difrentes q no puede darse el caso de q por ejemplo un nombre
contenga algun otro (ejemplo: "pepe12" contiene "pepe1", o "alaves"
contine "aves")? Si te fijas en el codigo q te mande antes,
precisamente tuve q tratar este problema sustituyendo primero los
nombres q empezaban con "pepe" y acababan con 3 digitos, luego los
q acababan con 2 digitos y solo despues los q tenian solo un digito
al final.

4) ?se puede asumir q tu intencion es sustituir todos los nombres
sin excepcion usados en la hoja con su respectiva referencia?

5) este codigo lo puedes lanzar desde la ventana de macros
activando la hoja q se pretende modificar y pulsando Ctrl+F8

Dime algo.

Un abrazo,
KL


From: Imanol
To: KL
Sent: 10 December 2004 Ç. 19:11
Subject: Re: Saludos de nuevo y una cuestion.

x-no-archive:yes

Gracias. Antes de probarlo y al ver que has utilizado el nombre del
ejemplo, es decir, pepe, te comento:
Los nombres son tan diferentes como barakaldo, sestao, zaragoza,
alaves, etc.
Sabiendo eso ahora, ?hay que corregir algo del codigo que me
mandas?. Otra cosa; no soy novato pero al ver tu codigo voy a
pensar que si; ?que hago con el?. Gracias y un saludo.

"KL" <lapink2000(at)hotmail.com> wrote in message
news:

Imanol,

Prueba con el codigo de abajo. No te olvides de hacer un backup
de tu fichero antes de usar el macro.

Saludos,
KL

'Inicio Codigo-
Sub test1()
For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "pepe###" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n For Each n In .Names If
n.Name Like "pepe##" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n For Each n In .Names If
n.Name Like "pepe#" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n End With Next c End Sub '--
-Fin Codigo-

"Imanol" wrote in message
news:


x-no-archive:yes

Hola. Hace tiempo que no escribía aquí. O sea que un saludo
inmenso para todos. Tengo una cuestión para no variar.
Tengo en una celda lo siguiente; ¡+pepe2 (pepex es el nombre
que en su momento le asigné a la celda correspondiente).
En otras muchas celdas tengo otros nombres como por ejemplo,
pepe3, pepe4, etc.
¿ Cómo puedo hacer para cambiar ese pepex de cada una de las
celdas por su correspondiente a2, b4, g98, etc, sin tener que
hacerlo a mano con cada una de
las celdas (es decir, borro pepe1 y pongo d3,etc.) ?. Lo más
sencillo y cómodo posible. Gracias y un saludo.

Imanol,

Prueba con el codigo de abajo. Por si acaso, te he incorporado un codigo
para detectAr duplicidad de nombres. Es decicir situaciones como, por
ejemplo, las de [ciudadrealjuv1]-[realjuv1] o [dbj1]-[dbj12]. Si la unica
diferencia entre dos nombres es el numero al final - el macro lo manejara
correctamente, por lo cual el segundo caso no representa ningun problema. El
primero probablemente se sustituya incorrectamente, pero la buena noticia es
q casi seguro la formula devolvera error y al ir a la celda veras
perfectamente q es lo q ha ocurrido y podras arreglarlo. De todas formas no
te olvides del BACKUP.

Saludos,
KL

'Inicio Codigo-
Sub test1()
Dim miLista As String
Dim n As Name
Dim nn As Name
Dim Contador As Integer
Dim c As Range
Dim RespUsuario
Dim Mensaje As String

For Each n In ThisWorkbook.Names
For Each nn In ThisWorkbook.Names
If InStr(nn.Name, n.Name) > 0 And nn.Name <> n.Name Then
miLista = miLista & "[" & nn.Name & "]" & _
" contiene: " & "[" & n.Name & "]" & Chr(13)
Contador = Contador + 1
End If
Next nn
Next n

If Contador > 0 Then
Mensaje = "Se han detectado las siguientes irregularidades:" _
& Chr(13) & Chr(13)
Mensaje = Mensaje & miLista & Chr(13)
Mensaje = Mensaje & "?Quieres seguir con la presente operacion?" _
& Chr(13) & Chr(13)
Mensaje = Mensaje & "Si decides seguir, es posible que los" _
& Chr(13)
Mensaje = Mensaje & "nombres listados arriba se sustituyan" _
& Chr(13)
Mensaje = Mensaje & "incorrectamente."

RespUsuario = MsgBox(Mensaje, vbYesNo + vbCritical, _
"!Nombres Duplicados Detectados!")
If RespUsuario = vbNo Then Exit Sub
Else
Mensaje = "No se han detectado nombres duplicados." _
& Chr(13) & Chr(13)
Mensaje = Mensaje & Chr(13) & _
"?Quieres seguir con la presente operacion?"

RespUsuario = MsgBox(Mensaje, vbYesNo + vbInformation, _
"Nombres Duplicados No Detectados")
If RespUsuario = vbNo Then Exit Sub
End If

For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "*###" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "*##" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
For Each n In .Names
If n.Name Like "*#" Then
c.Formula = Replace(c.Formula, n.Name, _
Right(n.RefersTo, Len(n.RefersTo) - 1))
End If
Next n
End With
Next c
End Sub
'Fin Codigo-


"Imanol" wrote in message
news:
x-no-archive:yes


Respondo a las preguntas 3 y 4:

Son 15 hojas.
Los nombres de una hoja por ejemplo son: realjuv1, saninaziojuvenilhonor12,
romo23.
Los de otra son: athleticcadeteliga5, zaragozacad1.
Y así las 15 hojas. Como puedes ver, en lo que coinciden todas es en que
tienen
al final del nombre el número de la jornada de liga que es. Desde la 1 hasta
la
30 ó 32, 33, 34.
Y a la última pregunta, la respuesta es sí. Sí quiero cambiar todos los
nombres.
ESPERA...me acabo de dar cuenta de que al poner las referencias de las
celdas,
no existe la personalización de cada celda individualmente, con lo que con
substituir los nombres de una hoja, se copia en todas las demás y arreglado.
Te apunto los nombres de una de las hojas y creo que con eso ya estaría.
Ahí van:
Todos llevan desde el número 1 al 30.

dbj1, dbj2dbj30
huescajh1
casablancajuv1
oberenadivisiondehonor1
athleticjuv1
realunionjh1
indartsujuvnac1
añorgajh1
balsasdivisiondehonor1
realjuv1
osasunajuv1
aurreradivisiondehonor1
alavesjuv1
amigohono1
oliverjuv1
zaragozajuv1

Recuerda que cada nombre tiene tras él, un número del 1 al 30.
Gracias y un saludo.

KL escribió (Fri, 10 Dec 2004 19:38:12 +0100):

Imanol,

1) si no te importa, vuelvo a trasladar la conversacion al grupo
para q todo el mundo pueda beneficiarse de ella (y tu tambien por
tener mas opiniones alternativas).

2) Por lo q comentas habra q cambiar el codigo de una manera
importante, pero si las respuestas a las preguntas 3) y 4) de abajo
son afirmativas entonces sera hacia la simplificacion.

3) ?se puede asumir q todos los nombres q utilizas son tan
difrentes q no puede darse el caso de q por ejemplo un nombre
contenga algun otro (ejemplo: "pepe12" contiene "pepe1", o "alaves"
contine "aves")? Si te fijas en el codigo q te mande antes,
precisamente tuve q tratar este problema sustituyendo primero los
nombres q empezaban con "pepe" y acababan con 3 digitos, luego los
q acababan con 2 digitos y solo despues los q tenian solo un digito
al final.

4) ?se puede asumir q tu intencion es sustituir todos los nombres
sin excepcion usados en la hoja con su respectiva referencia?

5) este codigo lo puedes lanzar desde la ventana de macros
activando la hoja q se pretende modificar y pulsando Ctrl+F8

Dime algo.

Un abrazo,
KL


From: Imanol
To: KL
Sent: 10 December 2004 Ç. 19:11
Subject: Re: Saludos de nuevo y una cuestion.

x-no-archive:yes

Gracias. Antes de probarlo y al ver que has utilizado el nombre del
ejemplo, es decir, pepe, te comento:
Los nombres son tan diferentes como barakaldo, sestao, zaragoza,
alaves, etc.
Sabiendo eso ahora, ?hay que corregir algo del codigo que me
mandas?. Otra cosa; no soy novato pero al ver tu codigo voy a
pensar que si; ?que hago con el?. Gracias y un saludo.

"KL" <lapink2000(at)hotmail.com> wrote in message
news:

Imanol,

Prueba con el codigo de abajo. No te olvides de hacer un backup
de tu fichero antes de usar el macro.

Saludos,
KL

'Inicio Codigo-
Sub test1()
For Each c In ActiveSheet.Cells. _
SpecialCells(xlCellTypeFormulas)
With ThisWorkbook
For Each n In .Names
If n.Name Like "pepe###" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n For Each n In .Names If
n.Name Like "pepe##" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n For Each n In .Names If
n.Name Like "pepe#" Then
c.Formula = Replace(c.Formula, n.Name, _ Right(n.RefersTo,
Len(n.RefersTo) - 1)) End If Next n End With Next c End Sub '--
-Fin Codigo-

"Imanol" wrote in message
news:


x-no-archive:yes

Hola. Hace tiempo que no escribía aquí. O sea que un saludo
inmenso para todos. Tengo una cuestión para no variar.
Tengo en una celda lo siguiente; ¡+pepe2 (pepex es el nombre
que en su momento le asigné a la celda correspondiente).
En otras muchas celdas tengo otros nombres como por ejemplo,
pepe3, pepe4, etc.
¿ Cómo puedo hacer para cambiar ese pepex de cada una de las
celdas por su correspondiente a2, b4, g98, etc, sin tener que
hacerlo a mano con cada una de
las celdas (es decir, borro pepe1 y pongo d3,etc.) ?. Lo más
sencillo y cómodo posible. Gracias y un saludo.