Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss

insertar numero de pagina/s en una celda

3,090 views
Skip to first unread message

José Luis Argentino

unread,
Jan 31, 2002, 11:32:45 AM1/31/02
to

Sub HojaNum()
For I = 1 To ActiveWorkbook.Sheets.Count
Sheets(I).Range("A5").Value = "'" & I & " / " &
ActiveWorkbook.Sheets.Count
Next I
End Sub

agrega en el rango a5 de todas las hojas del libro el
número de página y el total.

>-----Mensaje original-----
>Como puedo insertar el numero de pagina y su total
>(ejemplo, 2/5), en una celda?
>
>No me vale, que sea en el encabezado o pie de pagina, la
>quiero colocar en un lugar exacto de mi hoja.
>
>Gracias.
>.
>

Juan Pablo Gonzalez

unread,
Jan 31, 2002, 12:04:44 PM1/31/02
to
Para saber cuántas hojas van a salir impresas esto puede servir, no lo tengo
muy probado.

TotalHojas = (Hoja1.VPageBreaks.Count +1)*(Hoja1.HPageBreaks.Count+1)

Con esto se podría usar el código dado en la respuesta de Jose Luis
Argentino pero en vez de Sheets.Count ,poner TotalHojas

--
Juan Pablo González
MrExcel.com Consulting

Viter <vite...@hotmail.com> escribió en el mensaje de noticias
fc4b01c1aa69$05555150$3aef2ecf@TKMSFTNGXA09...

Jorge_s...@hotmail.com

unread,
Jul 27, 2015, 11:56:04 AM7/27/15
to
PUEDES ESCRIBIR TODO EL PROGRAMA PRO FAVOR
0 new messages