Dar el valor de varias celdas al nombre de varias hojas

13/10/2009 - 11:26 por Javigonpe | Informe spam
Hola:
Estoy trabajando en un libro de excel que tiene varias hojas.
Me interesa asignar el valor de 10 celdas, que están en la misma hoja, al
nombre de 10 hojas del libro. El valor de las celdas es texto. El fin que al
introducir un valor o texto en las celdas cambie, de modo automático, el
nombre da la hoja que tenga asociada en ese caso.
Lo he intentado con las propiedades de la hoja en la parte del nombre pero
no funciona. Creo hay que hacer una macro en vb.
Gracias.
 

Leer las respuestas

#1 AnSanVal
13/10/2009 - 14:12 | Informe spam
Hola Javi.

Suponiendo el rango con los posibles nombres en A1:A10.

En el modulo de la hoja:
Private Sub Worksheet_Change(ByVal Target As Range)
If Not Application.Intersect(Target, Range("A1:A10")) Is Nothing Then _
Sheets(Target.Row).Name = Target.Value
End Sub


Saludos: Antonio.
************************************
"Javigonpe" escribió en el mensaje
news:
Hola:
Estoy trabajando en un libro de excel que tiene varias hojas.
Me interesa asignar el valor de 10 celdas, que están en la misma hoja, al
nombre de 10 hojas del libro. El valor de las celdas es texto. El fin que al
introducir un valor o texto en las celdas cambie, de modo automático, el
nombre da la hoja que tenga asociada en ese caso.
Lo he intentado con las propiedades de la hoja en la parte del nombre pero
no funciona. Creo hay que hacer una macro en vb.
Gracias.

Preguntas similares