¿Cómo poner el valor de una celda en el encabezado/pie de página en Excel?

Podemos insertar fácilmente un encabezado o pie de página que contenga la ruta del archivo, el nombre del archivo, la fecha actual u otra información con la función de Excel, pero, a veces, queremos usar el valor de una celda como encabezado o pie de página en Excel. ¿Cómo podemos poner el contenido de una celda en el encabezado o pie de página en el libro?

Poner el valor de una celda en el encabezado o pie de página de una hoja de cálculo con código VBA

Poner el valor de una celda en el encabezado o pie de página de todas las hojas de cálculo con código VBA

Insertar información del archivo en el encabezado/pie de página con Kutools para Excel

Poner el valor de una celda en el encabezado o pie de página de una hoja de cálculo con código VBA

Si desea colocar el contenido de una celda en el encabezado o pie de página de la hoja de cálculo actual, el siguiente código VBA puede ayudarle. Por favor, siga los siguientes pasos:

1. Active su hoja de cálculo donde desea insertar el encabezado o pie de página con un valor de celda, luego mantenga presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: poner un valor de celda especificado en el encabezado de una hoja de cálculo

Sub HeaderFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftHeader = WorkRng.Range("A1").Value
End Sub

3. Luego presione la tecla F5 para ejecutar este código, aparecerá un cuadro de diálogo para recordarle que seleccione una celda cuyo contenido desea poner en el encabezado.

4. Y luego haga clic Aceptar, este valor de celda especificado se ha insertado en el encabezado izquierdo de la hoja de cálculo actual. Puede ver el encabezado haciendo clic en Archivo > Imprimir. Ver captura de pantalla:

Notas:

1. Si desea usar el contenido de la celda como pie de página de la hoja de cálculo activa, puede aplicar este código:

Código VBA: poner un valor de celda especificado en el pie de página de una hoja de cálculo

Sub FooterFrom()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
Application.ActiveSheet.PageSetup.LeftFooter = WorkRng.Range("A1").Value
End Sub

2. También puede aplicar los códigos anteriores para insertar el valor de la celda en el encabezado/pie de página derecho o central, simplemente reemplace EncabezadoIzquierdo / PieIzquierdo con EncabezadoDerecho / PieDerecho o EncabezadoCentro / PieCentro en los códigos.

Poner el valor de una celda en el encabezado o pie de página de todas las hojas de cálculo con código VBA

A veces, desea insertar un encabezado o pie de página con el contenido de una celda seleccionada en todas las hojas de cálculo de su libro abierto; con el código anterior, necesita repetirlo una y otra vez. En este caso, el siguiente código VBA puede agregar el contenido de la celda al encabezado o pie de página de todo el libro a la vez.

1. Active su libro donde desea insertar el encabezado o pie de página con un valor de celda, luego mantenga presionadas las teclas ALT + F11, y se abrirá la ventana Microsoft Visual Basic para Aplicaciones.

2. Haga clic en Insertar > Módulo, y pegue el siguiente código en la Ventana del Módulo.

Código VBA: poner un valor de celda especificado en el pie de página de todas las hojas de cálculo

Sub AddFooterToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftFooter = WorkRng.Range("A1").Value
Next
End Sub

3. Luego presione la tecla F5 para ejecutar este código, aparecerá un cuadro de diálogo para recordarle que seleccione una celda cuyo contenido desea poner en el pie de página de todo el libro.

4. Y luego haga clic en Aceptar, este valor de celda seleccionado se ha agregado a todos los pies de página izquierdos de las hojas de cálculo. Puede ver el pie de página haciendo clic en Archivo > Imprimir. Ver captura de pantalla:

Notas:

1. Si desea usar el contenido de la celda como encabezado de todo el libro, puede aplicar este código:

Código VBA: poner un valor de celda especificado en el encabezado de todas las hojas de cálculo

Sub AddHeaderToAll()
'Update 20140318
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection.Range("A1")
Set WorkRng = Application.InputBox("Range (single cell)", xTitleId, WorkRng.Address, Type:=8)
For Each ws In Application.ActiveWorkbook.Worksheets
    ws.PageSetup.LeftHeader = WorkRng.Range("A1").Value
Next
End Sub

2. Sustituya EncabezadoDerecho/PieDerecho o EncabezadoCentro/PieCentro por EncabezadoIzquierdo/PieIzquierdo en los códigos anteriores si desea que su encabezado o pie de página esté posicionado de manera diferente.

Insertar información del archivo en el encabezado/pie de página con Kutools para Excel

Si desea insertar información del archivo en el encabezado o pie de página, como el nombre de la hoja de cálculo/libro, la ruta del libro, etc., puede usar la utilidad Insertar Información del Libro de Kutools para Excel si tiene instalado Kutools para Excel.

Después de instalar gratuitamente Kutools para Excel, por favor haga lo siguiente:

1. Haga clic Kutools Plus > Libro > Insertar Información del Libro. Ver captura de pantalla:

2. En el cuadro de diálogo Insertar Información del Libro, marque la información que necesita insertar en la sección Información, y marque Encabezado o Pie de página según desee.

Consejo: puede insertar la información en tres ubicaciones del encabezado o pie de página: centro, izquierda o derecha.

3. Haga clic Aceptar. Luego puede ir a Ver > Diseño de Página para ver el encabezado.

Con Insertar Información del Libro, también puede insertar información del archivo en una celda o un rango de celdas. Haga clic aquí para saber más sobre esta utilidad.

Demostración: Insertar información del libro en celda/encabezado/pie de página

Consejo. Si desea dividir rápidamente un libro en varios libros/pdf o archivos csv por separado, intente usar la función Separar Libro de Kutools para Excel como se muestra en la siguiente captura de pantalla. Es completamente funcional sin limitaciones en 30 días, por favor descargue y pruébelo gratis ahora.

Artículos relacionados:

¿Cómo insertar el nombre del archivo o la ruta en una celda / encabezado o pie de página en Excel?

¿Cómo insertar y eliminar encabezado, pie de página e imagen de encabezado en Excel?