PESTAÑAS DE LAS HOJAS

Suponiendo que "una celda determinada" es B6:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$6" Then ActiveSheet.Name = [B6].Value
End Sub

Saludos desde Tenerife (España)
********************************************

Saludos desde Tenerife (Islas Canarias).
"Jose A." escribió en el mensaje
news:

Hola Grupo,
Tengo un libro con 5 hojas de calculo, mi pregunta es si se puede hacer
que
las pestañas de cada libro tomen el valor de una celda determinada, de tal
forma que si cambia el valor de esa celda cambia en la pestaña tambien.

Gracias anticipadas.
Salu2

Gracias por reponder, voy a probar. No controlo mucho el Visual basic, a ver
que me sale.
Saludos
Jose A. Sanchez.


"AnSanVal" wrote:

Suponiendo que "una celda determinada" es B6:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$B$6" Then ActiveSheet.Name = [B6].Value
End Sub

Saludos desde Tenerife (España)
********************************************

Saludos desde Tenerife (Islas Canarias).
"Jose A." escribió en el mensaje
news:
> Hola Grupo,
> Tengo un libro con 5 hojas de calculo, mi pregunta es si se puede hacer
> que
> las pestañas de cada libro tomen el valor de una celda determinada, de tal
> forma que si cambia el valor de esa celda cambia en la pestaña tambien.
>
> Gracias anticipadas.
> Salu2

Buenas Tardes:
Me he puesto manos a la obra...
He abierto el editor de VB desde la hoja nº1.
Ya en VB escribo el codigo que me facilitaste en:

VBProjet (nombre del Aarchivo)
MS excel Objetos
Hoja nº1 (nombre pestaña)

Reproduzco copia del codigo escrito:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
If Target.Address = "$R$9" Then ActiveSheet.Name = [R9].Value
End Sub

No me funciona, alguna idea?
Como ya contaba no tengo idea de VB

Dato que no he dado antes:
El libro es una plantilla.
Cada una de las cinco pestañas debe coger el valor de la celda R9 de su hoja.

Gracias,
Saludos


"Jose A." wrote:

Hola Grupo,
Tengo un libro con 5 hojas de calculo, mi pregunta es si se puede hacer que
las pestañas de cada libro tomen el valor de una celda determinada, de tal
forma que si cambia el valor de esa celda cambia en la pestaña tambien.

Gracias anticipadas.
Salu2

El proceso es:

1.- Alt+F11 (editor de VBA).
2.- (Con el "Explorador de proyectos" visible) doble clic en
"ThisWorkbook".
3.- Copia /Pega a la derecha el código que te ofrecí.

Un saludo desde Tenerife.
*****************************
Saludos desde Tenerife (Islas Canarias).
"Jose A." escribió en el mensaje
news:

Buenas Tardes:
Me he puesto manos a la obra...
He abierto el editor de VB desde la hoja nº1.
Ya en VB escribo el codigo que me facilitaste en:

VBProjet (nombre del Aarchivo)
MS excel Objetos
Hoja nº1 (nombre pestaña)

Reproduzco copia del codigo escrito:

Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As
Range)
If Target.Address = "$R$9" Then ActiveSheet.Name = [R9].Value
End Sub

No me funciona, alguna idea?
Como ya contaba no tengo idea de VB

Dato que no he dado antes:
El libro es una plantilla.
Cada una de las cinco pestañas debe coger el valor de la celda R9 de su
hoja.

Gracias,
Saludos


"Jose A." wrote:

Hola Grupo,
Tengo un libro con 5 hojas de calculo, mi pregunta es si se puede hacer
que
las pestañas de cada libro tomen el valor de una celda determinada, de
tal
forma que si cambia el valor de esa celda cambia en la pestaña tambien.

Gracias anticipadas.
Salu2