Introduccion Del Numero De Pagina
Reglas del Foro
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
1. Antes de hacer tu pregunta intenta con el buscador de este foro (muchas preguntas ya fueron respondidas antes!)
2. Si haces una nueva pregunta, es muy recomendable que adjuntes el ejemplo Excel para poder comprenderla mejor!
3. Realiza tu pregunta de forma clara, explicando bien cada paso de lo que haces y tendrás más probabilidad de respuesta!
Compartir en:
3 mensajes
• Página 1 de 1
Introduccion Del Numero De Pagina
por Alex Bustos » 04 Ago 2007 19:39
QUE TAL ALGUIN SABE SI DENTRO DE UNA CELDA SE PUEDE COLOCAR EL NUMERO DE PAGINA AL QUE PERTENECE ESTA Y EN OTRA CELDA O LA MISMA SI SE PUEDE EL NUMERO TOTAL DE PAGINAS. EJEMPLO. 1 DE 5
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- Alex Bustos
- Miembro Frecuente
- Registrado: 08 Oct 2005 14:01
- Ubicación: Tijuana Mexico
Re: Introduccion Del Numero De Pagina
por galileogali » 04 Ago 2007 22:30
Fijate esta solucion la aporto SAILEPATY....directamente desde Greensville, South Carolina.....
http://www.exceluciones.com/portal/download.php?id=6142
http://www.exceluciones.com/portal/download.php?id=6142
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- galileogali
- Moderator
- Registrado: 07 Ene 2005 22:46
- Ubicación: QUIROGA (ba), ARGENTINA
Re: Introduccion Del Numero De Pagina
por KL » 08 Ago 2007 06:57
habria que corregir el macro:
- Código: Seleccionar todo
Sub Print_Pages()
Dim Num_Pages As Long
Dim Act_Page As Long
Application.ScreenUpdating = False
Num_Pages = ActiveWindow.SelectedSheets.HPageBreaks.Count + 1
For Act_Page = 1 To Num_Pages
[N2] = "X-3-8/" & Format(Act_Page, "00")
ActiveWindow.SelectedSheets.PrintOut From:=Act_Page, To:=Act_Page, Copies:=1, Collate:=True
Next Act_Page '<---la variable estaba mal
[N2] = "X-3-8/01"
Application.ScreenUpdating = True
End Sub
* Te recomendamos estos productos Excel: Manual de Macros | Manual de Funciones | Nuevas Funciones | ddTraDa
- KL
- Miembro Frecuente
- Registrado: 18 Mar 2006 13:57
- Ubicación: Madrid
Compartir en:
3 mensajes
• Página 1 de 1
-
- Anuncio
¿Quién está conectado?
Usuarios navegando por este Foro: Bing [Bot] y 1 invitado
