Foro Excel

Hola a todos.

¿Alguien sabe si es posible que se repita un mismo pie de página en todas las hojas de un mismo libro?

Muchas gracias.

Por que no revisas la opcion, ARCHIVO>> Configurar Página >> Encabezado y Pie de Página >> Personalizar Pie de Página

??

GALILEOGALI
http://excelgali.mejorforo.net/

Estimado Galileogali.

Gracias por tu rápida respuesta, pero creo que no me he explicado correctamente.
Lo cierto es que he revisado la opción ARCHIVO>> Configurar Página >> Encabezado y Pie de Página >> Personalizar Pie de Página, y no he hallado nada que solucione lo que pretendo. Con esta opción pongo un pie de página que se aplica a todas las páginas de la HOJA activa. Pero lo que yo necesito es saber si puedo aplicar ese pié de página que ya he personalizado en todas las HOJAS activas del mismo LIBRO.
Gracias de nuevo.

Hola:

Con una macro si se puede, te la adjunto.
Efectuada con la grabadora de macros.

Saludos desde Santiago

Código: Seleccionar todo

Sub Todas_Hojas_Mismo_Pie()

For x = 1 To Worksheets.Count
   
    Worksheets(x).Activate
   
    With ActiveSheet.PageSetup
       
        'Cabecera
        .LeftHeader = ""
        .CenterHeader = ""
        .RightHeader = ""
       
        'Pié
        .LeftFooter = "&T  Hora"         '&T=Hora
        .CenterFooter = "&F  Archivo"    '&F=Nombre de archivo
        .RightFooter = "fecha &D"        '&D=Fecha
       
        'Márgenes cuerpo
        .LeftMargin = Application.InchesToPoints(0.78740157480315)
        .RightMargin = Application.InchesToPoints(0.78740157480315)
        .TopMargin = Application.InchesToPoints(0.984251968503937)
        .BottomMargin = Application.InchesToPoints(0.984251968503937)
       
        'Márgenes cabecera y píe
        .HeaderMargin = Application.InchesToPoints(0)
        .FooterMargin = Application.InchesToPoints(0)
       
        'Opciones de impresión
        .PrintHeadings = False
        .PrintGridlines = False
        .PrintComments = xlPrintNoComments
       
        'Formato
        .CenterHorizontally = False
        .CenterVertically = False
        .Orientation = xlPortrait
       
        'Otros
        .Draft = False
        .PaperSize = xlPaperA4
        .FirstPageNumber = xlAutomatic
        .Order = xlDownThenOver
        .BlackAndWhite = False
        .Zoom = 100
        .PrintErrors = xlPrintErrorsDisplayed
   
    End With

Next x

End Sub


Hola, Antoni.

He probado la macro que has facilitado y parece que funciona, aunque cambia todas las configuraciones de página de todas las hojas. Supongo que esta macro puede servir de base para lo que necesito, haciendo las correspondientes modificaciones en el código...

Mucas gracias por tu ayuda, que me ha sido de gran utilidad.

Hola:

He eliminado todo lo que no hace referencia al píe de página y mantiene el resto de configuración.

Hasta otra

Código: Seleccionar todo

Sub Todas_Hojas_Mismo_Pie()

For x = 1 To Worksheets.Count
   
    Worksheets(x).Activate
   
    With ActiveSheet.PageSetup
       
        'Pié
        .LeftFooter = "&T  Hora"         '&T=Hora
        .CenterFooter = "&F  Archivo"    '&F=Nombre de archivo
        .RightFooter = "fecha &D"        '&D=Fecha
   
    End With

Next x

End Sub

Hola Antoni.

Gracias.

PARA PONER PIE DE PAGINA EN TODAS LAS HOJAS, PRIMERO TIENES QUE SELECCIONARLAS TODAS, DESDE LAS PESTÑAS, (creo que todos sabemos seleccionar todas las hojas) LUEGO PROCEDES A CONFIGURAR TU ENCABEZADO Y/O PIE DE PAGINA DESDE Diseño de pagina, Configurar pagina, Encabezado y pie de pagina, personalizar encabezado / personalizar pie de pagina, ACEPTAR

CON ESTO TENDRAS EL MISMO ENCABEZADO O PIE DE PAGINA EN TODAS LAS HOJAS DE EXCEL

SALUDOS