¿Cómo puedo configurar el mismo encabezado/pie de página para todas las hojas de trabajo, incluidas las nuevas?

Question

Cada visita de Google por aplicar el mismo encabezado dice que se resalten todas las hojas y se establezca un encabezado. ¿Cómo puedo asegurarme de que las hojas nuevas que agrego también tengan el mismo encabezado, sin tener que hacerlo siempre?

Answer 1

Como primer intento, usaría este evento:

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   sh.range("A1").value = "xxx"
End Sub

Tendría que agregar esta macro a su Libro de trabajo, no a una Hoja de trabajo, no como Módulo o Clase.

Otra forma podría ser el uso de un complemento diseñado para esto; esto tendría como objetivo tener este comportamiento en todos los libros.

Answer 2

Aquí está el código VBA para copiar el encabezado y el pie de página de la primera hoja a la hoja nueva. Inserte esto ThisWorkbooken VBA Explorer ( Alt+ F11) y guárdelo. Se ejecutará cuando agregue una nueva hoja.

Ajuste la cuarta línea, donde dice Sheet1, para que sea el nombre de su primera hoja.

Private Sub Workbook_NewSheet(ByVal Sh As Object)
   Dim Ws As Worksheet
   'Change "Sheet1" below to the name of sheet being copied
   Set Setup = Worksheets("Sheet1").PageSetup
    With ActiveSheet.PageSetup
     .LeftHeader = Setup.LeftHeader
     .CenterHeader = Setup.CenterHeader
     .RightHeader = Setup.RightHeader
     .LeftFooter = Setup.LeftFooter
     .CenterFooter = Setup.CenterFooter
     .RightFooter = Setup.RightFooter
     End With
End Sub

Si desea ejecutarlo manualmente, cambie la primera línea a

Sub CopyHeaderFooter()

Luego aparecerá como una macro ejecutable ( Alt+ F8), cuyo nombre CopyHeaderFooterpuede ejecutar cuando lo desee.