numeracion en encabezado de tabla

27/12/2003 - 03:47 por Fabrizio | Informe spam
Hola amigos que tal, molestandolos de nuevo. Benito muchas
gracias por contestar, aunque me parece que con mi texto
anterior no me expliqé lo suficiente.

Debo hacer un documento en excel, un inventario, que lleva
un encabezado de tabla con un formato ya determinado.
Dentro de ese encabezado de tabla que se repite en cada
hoja, hay una celda en la que se deben ir numerando las
hojas automaticamente, hoja 1, hoja 2, etc. La opción que
ofrece excel de configurar el encabezado en la
opción "configurar página + encabezado y pie de página +
personalizar encabezado" no me es suficiente porque la
numeración que yo necesito debe aparecer dentro de la
misma tabla de excel, en una de sus celdas, no fuera de la
tabla que se genera, pienso que mas bien esta opción es
para un encabezado del documento, pero yo necesito un
encabezado de tabla. Para configurar el encabezado de mi
inventario empleo la opción: "configurar página + hoja +
repetir títulos en extremo superior", y escribo las filas
que funcionaran como encabezado de la tabla. Tambien he
escrito en una celda "=[página]" pero no funciona como
fórmula o función.

Como siempre amigos les agradezco las sugerencias e ideas.
Muchas Gracias de nuevo Benito.

Preguntas similare

Leer las respuestas

#1 Anonimo
27/12/2003 - 11:42 | Informe spam
Hola Fabrizio.

He buscado un poco por los grupos de noticias de excel en
inglés y he encontrado algo que te va bien.


Function CurrentPage()
Dim VPC As Integer, HPC As Integer
Dim VPB As VPageBreak, HPB As HPageBreak
Dim NumPage As Integer

If ActiveSheet.PageSetup.Order = xlDownThenOver Then
HPC = ActiveSheet.HPageBreaks.Count + 1
VPC = 1
Else
VPC = ActiveSheet.VPageBreaks.Count + 1
HPC = 1
End If
NumPage = 1
For Each VPB In ActiveSheet.VPageBreaks
If VPB.Location.Column > ActiveCell.Column Then Exit
For
NumPage = NumPage + HPC
Next VPB
For Each HPB In ActiveSheet.HPageBreaks
If HPB.Location.Row > ActiveCell.Row Then Exit For
NumPage = NumPage + VPC
Next HPB
CurrentPage = NumPage
End Function

Esta función se deriva de una macro elaborada por Roin de
Bruin que puedes ver en el siguiente hiperlink:

http://shorterlink.com/?Y2Z3WG

Saludos,

Benito Merino
Barcelona

Hola amigos que tal, molestandolos de nuevo. Benito


muchas
gracias por contestar, aunque me parece que con mi texto
anterior no me expliqé lo suficiente.

Debo hacer un documento en excel, un inventario, que


lleva
un encabezado de tabla con un formato ya determinado.
Dentro de ese encabezado de tabla que se repite en cada
hoja, hay una celda en la que se deben ir numerando las
hojas automaticamente, hoja 1, hoja 2, etc. La opción que
ofrece excel de configurar el encabezado en la
opción "configurar página + encabezado y pie de página +
personalizar encabezado" no me es suficiente porque la
numeración que yo necesito debe aparecer dentro de la
misma tabla de excel, en una de sus celdas, no fuera de


la
tabla que se genera, pienso que mas bien esta opción es
para un encabezado del documento, pero yo necesito un
encabezado de tabla. Para configurar el encabezado de mi
inventario empleo la opción: "configurar página + hoja +
repetir títulos en extremo superior", y escribo las filas
que funcionaran como encabezado de la tabla. Tambien he
escrito en una celda "=[página]" pero no funciona como
fórmula o función.

Como siempre amigos les agradezco las sugerencias e


ideas.
Muchas Gracias de nuevo Benito.
.

email Siga el debate Respuesta Responder a este mensaje
Ads by Google
Help Hacer una preguntaRespuesta Tengo una respuesta
Search Busqueda sugerida