EXCEL: Valor de una celda en encabezado

[negu]

Hola a todos,

Mi problema es que necesito que el encabezado de las páginas de una hoja de excel contenga el valor de una celda.

Muchas gracias de antemano.

[GEMO]

Hola, mmm la verdad nunca había visto que pidieran algo así, lo que se me ocurrió es que si no necesitas nombrar a tus hojas con otros nombre les asignes el valor de la celda mediante una macro y asi cuando le pongas encabezado insertes el nombre de la hoja y ya aparecería solo tendrías que ejecutar la macro cada que fuera necesario. En el ejemplo te puse pensando en que son las tres hojas si son más tendrías que agregar líneas como hojas tengas, si son demasiadas posiblemente esto no te sirva, igual espero te de una idea.

copia este codigo en un módulo de VB

private sub cambio()

Hoja1.Select
Hoja1.Name = Range("a2").Value
Hoja2.Select
Hoja2.Name = Range("a2").Value
Hoja3.Select
Hoja3.Name = Range("a2").Value

end sub

[negu]

Buenas,

gracias por tu idea, pero necesitaría conseguirlo sin macro.

Mediante macro encontré (aunque no prové) esto:
http://www.compartir-tecnologias.es/respuesta/valor-celda-encabezado-o-pie-pagina-ayuda-203143791.html


Necesitaría algo parecido a lo que hace Excel para mostrar en el encabezado los números de página como:
&[Página]


Muchas gracias de nuevo.

[jchuk]

Hola,

En esta página de soporte de microsoft vienen los códigos a usar para encabezados y pies de página y la verdad es que no dice nada sobre cómo usar valores específicos de celdas.
No sé si eso significará que sin uso de macros no es posible, pero tiendo a pensar que sí.

http://support.microsoft.com/kb/142136/es

Saludos

[negu]

Muchas gracias por el link. Me parece que tienes razón, no se debe poder hacer sin macro.

Pensándolo, podría utilizar una macro que se ejecutase al cambiar el valor de la celda.
¿Es posible hacer que una macro se ejecute al cambiar el valor de una celda, sin necesidad de utilizar un botón o un objeto de control de formualrio,...?

Muchas gracias.

[GEMO]

Esta respuesta la encontré aquí en el foro proporcionada por el moderador David, es algo sencillo. Que estes bien.

codigo:

Private Sub Worksheet_Change(ByVal Target As Range)
datos = "a1"

If Not Application.Intersect(Target, Range(datos)) Is Nothing Then
Hoja1.Select
Hoja1.Name = Range("a1").Value


End If
End Sub

[negu]

Con la información que me has proporcionado sobre el cambio de valor de una celda y el documento que antes posteé, he conseguido mi propósito.

Muchas gracias por todo.

Un saludo