Cómo introducir variables en encabezado y pie de página

"Joel" escribió en el mensaje news:eD$

Hola a todos!

Tengo un archivo en el que quiero que en el encabezado y el pie de página
me aparezca el valor de una celda en concreto pero no sé cómo hacerlo.
Gracias por adelantado. Un saludo,

Joel.

Si el libro tan solo tiene una hoja o si quieres que el valor de la celda te aparezca en el encabezado de cualquier hoja que se imprima, puedes usar algo como:

Private Sub Workbook_BeforePrint(Cancel As Boolean)
ActiveSheet.PageSetup.CenterHeader = [Hoja1!A1]
End Sub

Tal como va el código, la celda será A1 de Hoja1, y se mostrará en la parte central del encabezado.

Para que funcione el código tienes que pegarlo en el módulo del libro (ThisWorkbook)
Un saludo


Fernando Arroyo
MS MVP - Excel

Hola Joel,

Tendras que usar macros para esto. Por ejemplo si depositas el siguiente
codigo en cualquier modulo VBA de tu libro, solo tienes que llamar el Macro2
mediante un boton, o pulsando Alt+F8, seleccionando el nombre del macro y
pulsando Ejecutar. Tambien puedes asignarlo a un evento (p.ej.
Workbook_BeforePrint) depositando el codigo en el modulo VBA del libro
(EsteLibro o ThisWorkbook):

Sub Macro2()
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

o

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

Saludos,
KL


"Joel" wrote in message
news:eD$

Hola a todos!

Tengo un archivo en el que quiero que en el encabezado y el pie de página
me aparezca el valor de una celda en concreto pero no sé cómo hacerlo.
Gracias por adelantado. Un saludo,

Joel.

Hola KL:

Pregunto por que cuando meto una fecha en A1 o B1 me la pone en formato
general en vez formato fecha????
Habría forma de formatearla????

Saludos Raul_S


"KL" wrote:

Hola Joel,

Tendras que usar macros para esto. Por ejemplo si depositas el siguiente
codigo en cualquier modulo VBA de tu libro, solo tienes que llamar el Macro2
mediante un boton, o pulsando Alt+F8, seleccionando el nombre del macro y
pulsando Ejecutar. Tambien puedes asignarlo a un evento (p.ej.
Workbook_BeforePrint) depositando el codigo en el modulo VBA del libro
(EsteLibro o ThisWorkbook):

Sub Macro2()
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

o

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

Saludos,
KL


"Joel" wrote in message
news:eD$
> Hola a todos!
>
> Tengo un archivo en el que quiero que en el encabezado y el pie de página
> me aparezca el valor de una celda en concreto pero no sé cómo hacerlo.
> Gracias por adelantado. Un saludo,
>
> Joel.
>

Hola Raul,

Prueba lo siguiente:

.LeftHeader = Format(.Parent.Range("A1"),"dd/mm/yyyy")
.LeftFooter = Format(.Parent.Range("B1"),"dd/mm/yyyy")

Saludos,
KL

"Raul_S" wrote in message
news:

Hola KL:

Pregunto por que cuando meto una fecha en A1 o B1 me la pone en formato
general en vez formato fecha????
Habría forma de formatearla????

Saludos Raul_S


"KL" wrote:

Hola Joel,

Tendras que usar macros para esto. Por ejemplo si depositas el siguiente
codigo en cualquier modulo VBA de tu libro, solo tienes que llamar el
Macro2
mediante un boton, o pulsando Alt+F8, seleccionando el nombre del macro y
pulsando Ejecutar. Tambien puedes asignarlo a un evento (p.ej.
Workbook_BeforePrint) depositando el codigo en el modulo VBA del libro
(EsteLibro o ThisWorkbook):

Sub Macro2()
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

o

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

Saludos,
KL


"Joel" wrote in message
news:eD$
> Hola a todos!
>
> Tengo un archivo en el que quiero que en el encabezado y el pie de
> página
> me aparezca el valor de una celda en concreto pero no sé cómo hacerlo.
> Gracias por adelantado. Un saludo,
>
> Joel.
>

Hola Raul,

Prueba lo siguiente:

.LeftHeader = Format(.Parent.Range("A1"),"dd/mm/yyyy")
.LeftFooter = Format(.Parent.Range("B1"),"dd/mm/yyyy")

Saludos,
KL

"Raul_S" wrote in message
news:

Hola KL:

Pregunto por que cuando meto una fecha en A1 o B1 me la pone en formato
general en vez formato fecha????
Habría forma de formatearla????

Saludos Raul_S


"KL" wrote:

Hola Joel,

Tendras que usar macros para esto. Por ejemplo si depositas el siguiente
codigo en cualquier modulo VBA de tu libro, solo tienes que llamar el
Macro2
mediante un boton, o pulsando Alt+F8, seleccionando el nombre del macro y
pulsando Ejecutar. Tambien puedes asignarlo a un evento (p.ej.
Workbook_BeforePrint) depositando el codigo en el modulo VBA del libro
(EsteLibro o ThisWorkbook):

Sub Macro2()
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

o

Private Sub Workbook_BeforePrint(Cancel As Boolean)
With ActiveSheet.PageSetup
.LeftHeader = .Parent.Range("A1")
.LeftFooter = .Parent.Range("B1")
End With
End Sub

Saludos,
KL


"Joel" wrote in message
news:eD$
> Hola a todos!
>
> Tengo un archivo en el que quiero que en el encabezado y el pie de
> página
> me aparezca el valor de una celda en concreto pero no sé cómo hacerlo.
> Gracias por adelantado. Un saludo,
>
> Joel.
>