Encabezado de página

El encabezado y el pie de página no te aceptan referencias a celdas, así que
tendrás que hacerlo por código. Por ejemplo, supongamos que la hoja en la
que vas a configurar esto es la "Hoja1", y que la celda de la cual dependerá
el valor de tu encabezado es "A1", podrías hacer lo siguiente:

1.
Haz clic derecho en el separador de la Hoja1, y selecciona "Ver código".

2.
En el Editor de VBA, escribe o pega lo siguiente:

Private Sub Worksheet_Change(ByVal Target As Range)
If Target.Address = "$A$1" Then
Sheets("Hoja1").PageSetup.LeftHeader =
Sheets("Hoja1").Range("A1").Value
End If
End Sub

Algo similar podrías hacer con LeftHeader, CenterHeader y RightHeader.

Una última observación. Observa que especifiqué en el código la hoja y la
celda. Esto es porque este código podría fallar si la celda A1 contiene una
referencia o una fórmula que haga referencia a otras celdas. En esta
situación, deberías aplicar el código anterior a la ( o las ) celdas
referenciadas, las cuales podrían estar en otras hojas de tu libro.

Finalmente, si necesitas generar una multilínea en el encabezado, podrías
utilizar algo como esto:

Sheets("Hoja1").PageSetup.LeftHeader = _
"Elaborado por:" & Chr(13) & Sheets("Hoja1").Range("A1").Value

Espero que te sirva, y no olvides comentar los resultados.



"Gabriel" escribió:

Quiero introducir en un encabezado de página el valor de una celda y que
varie al modificar el valor de la celda
Gracias anticipadas