Excel le permite especificar encabezados y pies de página para sus hojas de trabajo. Es posible que desee copiar estos encabezados y pies de página de una hoja de trabajo a otra. Hacerlo dentro de un libro de trabajo es relativamente fácil, pero hacerlo de un libro a otro puede ser más abrumador.

Si el encabezado y pie de página es uno que usa bastante en libros de trabajo nuevos, y su principal preocupación es tener el encabezado y el pie de página disponibles en esos libros de trabajo nuevos (no en los libros de trabajo existentes), entonces el mejor enfoque sería crear un libro de trabajo de plantilla . Simplemente configure un libro de trabajo como desee, incluida la especificación de encabezados y pies de página. Luego, guarde el libro como una plantilla de Excel (formato XLT). Luego puede crear sus libros de trabajo basados ​​en esta plantilla y tendrá los encabezados y pies de página que desee.

Una forma de copiar encabezados y pies de página de una hoja de trabajo en un libro a una hoja de trabajo en otro es usar los métodos de edición tradicionales de copiar y pegar. En otras palabras, puede seleccionar el material de encabezado que desea copiar, presionar Ctrl + C, mostrar el encabezado en la hoja de trabajo de destino y luego presionar Ctrl + V. El inconveniente de este enfoque es que puede implicar bastantes pasos. Después de todo, hay tres secciones (izquierda, centro y derecha) para cada encabezado y tres para cada pie de página. Esto significa que debe realizar seis operaciones de copiar y pegar para copiar el encabezado y el pie de página completos.

Otra forma de copiar encabezados y pies de página de un libro a otro implica el uso de comandos nativos de Excel para hacer copias de hojas de trabajo.

Siga estos pasos:

  1. Abra el libro de trabajo de destino; en el que desea copiar los encabezados y pies de página.

  2. Abra el libro de trabajo que es la fuente de su encabezado y pie de página, y asegúrese de que se muestre la hoja de trabajo deseada.

  3. Elija Mover o Copiar hoja en el menú Editar. Excel muestra el cuadro de diálogo Mover o Copiar. (Ver figura 1)

  4. Usando la lista desplegable Para reservar, seleccione el libro de trabajo de destino que abrió en el paso 1.

  5. En el área Antes de la hoja, indique dónde desea copiar la hoja.

  6. Asegúrese de que la casilla de verificación Crear una copia esté seleccionada.

  7. Haga clic en Aceptar. La hoja de trabajo se copia en el libro de trabajo de destino.

  8. Cierre el libro de trabajo de origen del paso 2.

  9. En el libro de trabajo de destino, muestre la hoja de trabajo que acaba de copiar.

  10. En el área de pestañas en la parte inferior de la ventana, haga clic con el botón derecho y elija Seleccionar todas las hojas. Todas las hojas de trabajo ahora están seleccionadas.

  11. Muestra el cuadro de diálogo Configurar página. (Elija Configurar página en el menú Archivo).

  12. Asegúrese de que la pestaña Encabezado / Pie de página esté seleccionada. (Ver figura 2)

  13. Usando las listas desplegables Encabezado y Pie de página, seleccione el encabezado y pie de página usados ​​en la hoja de trabajo que acaba de copiar.

  14. Haga clic en Aceptar.

  15. Elimine la hoja de trabajo que copió en los pasos 1 a 7.

Lo que hizo esencialmente fue copiar la hoja de trabajo que contiene el encabezado y el pie de página que deseaba, luego copió ese encabezado y pie de página en otras hojas de trabajo en el libro de trabajo, luego eliminó la hoja de trabajo original.

Si bien estos pasos funcionan bien, pueden resultar tediosos si necesita copiar encabezados y pies de página en varios libros de trabajo diferentes. En este caso, usar una macro para hacer la copia es el enfoque más sensato. Las siguientes dos macros se pueden utilizar para copiar encabezados y pies de página en un solo paso. Todo lo que necesita hacer es mostrar la hoja de trabajo de origen y usar la macro GetHeaders. Esta macro copia la información del encabezado y pie de página en variables de cadena. A continuación, puede mostrar, a su vez, cada hoja de trabajo que desee que tenga el mismo encabezado y pie de página y ejecutar la macro DoHeaders.

Option Explicit

Dim strHeadLeft As String Dim strHeadCenter As String Dim strHeadRight As String Dim strFootLeft As String Dim strFootCenter As String Dim strFootRight As String Dim bGotHeaders As Boolean

Sub GetHeaders()

With ActiveSheet.PageSetup         strHeadLeft = .LeftHeader         strHeadCenter = .CenterHeader         strHeadRight = .RightHeader         strFootLeft = .LeftFooter         strFootCenter = .CenterFooter         strFootRight = .RightFooter         bGotHeaders = True     End With End Sub
Sub DoHeaders()

If bGotHeaders Then         With ActiveSheet.PageSetup             .LeftHeader = strHeadLeft             .CenterHeader = strHeadCenter             .RightHeader = strHeadRight             .LeftFooter = strFootLeft             .CenterFooter = strFootCenter             .RightFooter = strFootRight         End With     Else         MsgBox "Select the sheet with the " _             & "headers you want to copy," _             & vbCrLf & "then run 'GetHeaders'", _             vbExclamation, "No Headers In Memory"

End If End Sub

Incluso podría asignar las macros a los botones de la barra de herramientas, si lo desea, lo que puede hacerlos aún más útiles para copiar encabezados y pies de página.

Si tiene bastantes hojas de trabajo y libros de trabajo en los que desea que se copien los encabezados y pies de página, hay un enfoque de macro diferente que puede utilizar. La siguiente macro copiará los encabezados y pies de página de la hoja de trabajo activa a todas las demás hojas de trabajo en todos los demás libros abiertos.

Sub CopyHeaderFooter()

Dim PS As PageSetup     Dim WB As Workbook     Dim WS As Worksheet

Set PS = ActiveSheet.PageSetup     For Each WB In Workbooks         For Each WS In WB.Worksheets             With WS.PageSetup                 .LeftHeader = PS.LeftHeader                 .CenterHeader = PS.CenterHeader                 .RightHeader = PS.RightHeader                 .LeftFooter = PS.LeftFooter                 .CenterFooter = PS.CenterFooter                 .RightFooter = PS.RightFooter             End With         Next     Next End Sub

En otras palabras, si desea copiar encabezados y pies de página de la hoja de trabajo actual a otras 150 hojas de trabajo distribuidas en 15 libros de trabajo diferentes, todo lo que necesita hacer es abrir los 15 libros de trabajo al mismo tiempo, mostrar la hoja de trabajo de origen y ejecutar la macro. .

_Nota: _

Si desea saber cómo usar las macros descritas en esta página (o en cualquier otra página de los sitios ExcelTips), he preparado una página especial que incluye información útil.

link: / excelribbon-ExcelTipsMacros [Haga clic aquí para abrir esa página especial en una nueva pestaña del navegador].

ExcelTips es su fuente de formación rentable en Microsoft Excel.

Este consejo (2696) se aplica a Microsoft Excel 97, 2000, 2002 y 2003. Puede encontrar una versión de este consejo para la interfaz de cinta de Excel (Excel 2007 y posterior) aquí:

link: / excelribbon-Copying_Headers_and_Footers [Copiando encabezados y pies de página].