HAY UNA FORMULA QUE CALCULE EL Nº PAGINA EN 1 CELDA DE EXCEL

hola, paloma !

quisiera saber si hay alguna formula para poder poner el nº de pagina en una celda determinada
en vez de en el encabezado o pie de pagina que ahi no me sirve.

[probablemente] una alternativa -muy- 'barata' podria ser ajustar los margenes de encabezados/pies de pagina...
para que 'caigan' +/- 'dentro' de una celda 'aproximadamente especifica' :))
[suponiendo que no existen diferentes altos de filas en el curso de 'la hoja' -?-

de lo contrario [y hasta donde se]... solo considera que va a ser necesario...
-> 'detectar' las paginas [numeros y sus rangos] por 'la posicion' en la que seran impresas...
-> dicha posicion 'depende' de algunas variables que [seguramente] 'afectaran' la impresion 'final' como:
- tipo de impresora [su resolucion de salida], sus margenes
- si se ha 'personalizado' [o se re/personaliza] la configuracion de 'la hoja'...
- si se ha especificado una area_de_impresion 'determinada'
- se establecieron/modifican titulos 'fijos' [filas superiores y/o columnas a la izquierda]
- si la 'orientacion' al imprimir 'va' hacia abajo y a la derecha? o... a la derecha y hacia abajo?
[p.e. la pagina 2 'depende' DIRECTAMENTE de esta variable; abajo? o a la derecha?]
- si existen diferentes altos de fila / anchos de columna [y/o si se van modificando 'al vuelo']
- si se utiliza el 'zoom' o un ajuste de paginas n_alto × n_ancho, etc. etc. etc.
-> y todavia falta considerar si el archivo va a ser impreso en 'diferentes' ambientes [impresoras/pc/etc.]

encontrar si 'X' celda 'cae' en 'Y' pagina [impresa], se basaria en la ubicacion de los saltos de pagina [ademas]...
-> cada que se 'cambien' los factores anteriores, sera necesario [nuevamente] 'buscar/encontrar' la X pagina
[lo cual, seguramente 'volvera lento' el proceso] :((

independientemente de lo anterior, si depositaras algun dato en 'esa' celda Y CAMBIAN los factores...
podrias 'ir dejando' celdas con formato [o formulas] que llegarian a 'NO corresponder' con la 'pagina real' [impresa] :(

el codigo del procedimiento que utilizo para estos 'casos'... es [bastante] laaaarrrgo.
si te interesa... a que direccion te lo hago llegar?

o... podrias comentar [+/- exactamente] 'que es' lo que necesitas 'controlar' para la impresion de tus hojas ?

saludos,
hector.

Hector Miguel escribio:

Sub ImprimirPorPaginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
activecell = "Pag. " & Pagina & "/" & Paginas
Next
End With
End Sub

hola, Francisco !

Hector Miguel escribio:
Sub ImprimirPorPaginas()
Dim Pagina As Integer, Paginas As Integer
Paginas = ExecuteExcel4Macro("Get.Document(50)")
With ActiveSheet
For Pagina = 1 To Paginas
activecell = "Pag. " & Pagina & "/" & Paginas
Next
End With
End Sub

[creo que] la adaptacion que le haces a algun codigo que alguna vez 'expuse' para una situacion 'parecida' [pero diferente]
no anda muy 'cercana' a lo que esta solicitando Paloma :-(

las conversaciones originales las puedes consultar en: -> http://tinyurl.com/e6nt6

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.