Jump to content
jik

Salto de página cada cierta cantidad de filas

Recommended Posts

Hola. Necesito hacer una macro para que se inserten saltos de página cada una determinada cantidad de filas en un libro que tiene unas 10.000 filas aproximadamente. 

Gracias

Share this post


Link to post
Share on other sites

Hola @jik, para que te podamos ayudar adecuadamente debes explicar mejor tu problema y adjuntar un archivo excel de ejemplo con lo que esperas de resultado.

Te dejo una idea para que puedas adaptarlo a tu archivo.

Sub insertar_filas()

For i = 1 To 10000 Step 4

Cells(i, 1).EntireRow.Insert Shift:=xlDown

Next

End Sub

saludos.

Share this post


Link to post
Share on other sites

Hola. Muchas gracias.

No tengo un archivo pero lo que necesito es algo para uso general.

Lo que tú me has enviado inserta filas. Yo necesito insertas saltos de página cada una cierta cantidad de filas. Por ejemplo: insertar un salto de página cada 40 filas.

Saludos.

Share this post


Link to post
Share on other sites

@jik, prueba así.

Sub insertar_filas()

For i = 40 To 1000 Step 40

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Range("A" & i + 1)

Next

End Sub

El archivo es por normas del foro, puedes armar un pequeño ejemplo con solo datos ficticios, tómalo en cuenta para futuras consultas.

Saludos.

Share this post


Link to post
Share on other sites

Hola de nuevo. La macro me daba un error en la segunda línea pero la corregí cambiando por número de fila.

Sub insertar_filas()

Application.ActiveSheet.ResetAllPageBreaks

For i = 40 To 1000 Step 40

ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(i + 1)

NextDemo.xlsx

End Sub

 

Ahora tengo una complicación adicional que es que tengo que insertar el salto de página cada 40 filas VISIBLES. Con esto quiero decir que si por ejemplo, hay fila ocultas, éstas no se consideren para la  cuenta de líneas del salto de página.

Adjunto el archivo donde he ocultado las filas de 10 a 20 y 70 a 80.

Para que funcione como yo quiero, el salto de página debería ir en la línea 51 (1 + 40 filas + 10 filas ocultas)

El siguiente salto sería de la 52 a la 102 porque también hay 10 ocultas y así sucesivamente.

Aclaro que el número de fila ocultas no es fijo (en mi ejemplo fueron 10 las 2 veces pero podría 5 una vez, 20 otra vez, etc).

 

Share this post


Link to post
Share on other sites

@jik, basado en tu ejemplo, con esta modificación debería funcionar sin importar donde o cuantas celdas ocultas tengas.

Sub insertar_filas()
Dim x#, celda As Range

Application.ActiveSheet.ResetAllPageBreaks

For Each celda In Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible)
    x = x + 1
    If x = 40 Then
        x = 0
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(celda.Row + 1)
    End If
Next

End Sub

Comentas, saludos.

Share this post


Link to post
Share on other sites

Pues a mi no me funciona. Ya lo probé y sólo borra los saltos de página.

No faltará un "Else" o algo así?

Donde termina esta fórmula? Necesitaría darle un fin en, por ejemplo, la fila 10.000

Gracias

Share this post


Link to post
Share on other sites

Imagino que en el archivo donde lo probaste tienes filas en blanco antes del primer salto de linea, creo que ese es el error.

Hace 8 minutos , jik dijo:

No faltará un "Else" o algo así?

No es necesario solo estoy contando 40 lineas de lo contrario simplemente no hace nada.

 

Hace 9 minutos , jik dijo:

Donde termina esta fórmula? Necesitaría darle un fin en, por ejemplo, la fila 10.000

Le indico en esta linea Range("A1", Range("A1").End(xlDown)).SpecialCells(xlCellTypeVisible) que apartir de la celda A1 se vaya a la ultima celda con datos, por eso si tienes alguna celda vacía por ejemplo en la fila 12 hasta ahí llega ciclo for. 

Prueba ahora con esta modificación, no es necesario indicar la cantidad de filas ya que encontrara la ultima fila de la columna A con datos, esto es conveniente si tus datos van a crecer aun mas.

Sub insertar_filas()
Dim x#, celda As Range

Application.ActiveSheet.ResetAllPageBreaks

For Each celda In Range("A1", Range("A" & Cells.Rows.Count).End(xlUp)).SpecialCells(xlCellTypeVisible)
    x = x + 1
    If x = 40 Then
        x = 0
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Rows(celda.Row + 1)
    End If
Next

End Sub

De igual manera y por aquello puedes usar esta linea también 

For Each celda In Range("A1:A10000").SpecialCells(xlCellTypeVisible)

Saludos.

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.

INFORMACIÓN BÁSICA SOBRE PROTECCIÓN DE DATOS

Responsable: Sergio Andrés Celemín

Finalidad: Moderar y responder comentarios de usuarios. Recuerda que la información que facilites es pública, y los datos que incluyas los leerá cualquier visitante de esta web, así como el avatar que poseas.

Legitimación: Consentimiento del interesado.

Destinatarios: Hetzner Online GmbH.

Derechos: Puedes ejercitar en cualquier momento tus derechos de acceso,
rectificación, supresión, oposición y demás derechos legalmente establecidos a
través del email sergio@ayudaexcel.com.

Información adicional: Encontrarás más información en la política de privacidad.




  • Posts

    • Estimado bigpetroman, antes que nada muchas gracias por responder. Explico un poco de que va el sunto de los seriales tanto en la Salida como en la Entrada, la condicion de estos equipos es algo peculiar, ya que pueden salir varias veces y entrar la misma cantidad de veces, salvo algunas excepciones que no importan para la aplicacion de este archivo. Por tal motivo, no he restringido el ingreso de los seriales a una sola vez. Para decirlo mas claro, salen en calidad de prestamo y deben regresar en un perodo X, el cual esta definido por variables de tiempo no fijas en la mayoria de los casos. Por otro lado, los equipos tienen dos seriales, uno del fabricante, y otro de Inventario, y, este ultimo, necesito capturarlo tanto en la salida como en la entrada. He de acotar, que en la salida no hay problemas con la captura o funcionamiento de la aplicacion, en cambio, en la entrada de estos equipos es donde viene mi dilema. Siendo asi, lo que necesito lograr, con vuestra ayuda claro esta: 1- Hacer que la aplicacion al ingresar el serial en la hoja " Reg. Entrada" me busque en la tabla de salida (que esta en la hoja "Salidas"), el serial que ingresé, si lo encuentra, me traiga la informacion que contiene esa linea. Y, dicha informacion, la coloque o pegue, en la tabla Entradas, que obviamente esta en la hoja "Entradas". 2- Si, no llegara a encontrar dicho serial (porque salio antes de que estubiera operativa esta aplicacion), me pida ingresar el serial de inventario, el cual esta bajo la denominacion de Bienes Nacionales. Y, al ingresar este segundo serial, me coloque la informacion (los dos seriales) en la tabla Entradas, ubicada en la hoja "Entradas". Dicho esto, lo que necesito es basicamente lo que describo arriba, ya que el mensaje que me arrojaria la aplicacion es informativo (solamente para cuando haya encontrado el serial),  para saber su ubicacion y numero de Baul, y asi poder colocar el equipo en su lugar. Con respecto a la pregunta de que si quiero agregar o no una nota, creo, deberia ser pan comido despues de lograr los puntos 1 y 2. No se si he logrado explicarme, o he enrredado mas las cosas. Por favor indicame y tratare de ser mas explicito. O si lo prefieres hacer un paso a paso. De verdad muchas gracias de antemano por vuestra atencion, esfuerzo y paciencia. Atento a vuestros comentarios... Saludos.
    • amigo @MauriciodeAbreu, yo intente ayudar, pero de verdad que no logré entender de todo, por favor sube un detalla un ejemplo concreto que tengas en tu archivo. 1. coloco el serial X en la celda E5 de la hoja Reg. Entradas 2. se debe mostrar el valor Y en la celda Z (no se, no logro entender, pues en la hoja de salida por lo que veo el serial se puede repetir) y así vas explicando hasta el paso final, para poder entender suerte
    • Lamento decirte que no utilizo esa herramienta, por lo que no puedo valorar dicha compatibilidad   Saludos 
    • Te adjunto una alternativa mas con funciones genéricas de Excel, es automático para ambas columnas    Saludos Libro1.xlsm
    • Saludos expertos, por favor necesito de sus ayudas a alguien que disponga de tiempo, necesito guarda en PDF en un carpeta que se encuentra en descarga Que se busca agregar -Que cuando se corra la macro para generar el PDF se guarde estos datos en la base de datos. -Si un usuario(Nombre) le vuelvan a generar un PDF en un rango de = 7 días atrás mande un mensaje: usuario ya fue generado copia y fecha cuando fué creado y todo. Ajunto el archivo por favor muchísimas gracias a cada uno de ustedes. Feedback Formal-MACRO-PDF-1.xlsm
  • Recently Browsing

    No registered users viewing this page.

×
×
  • Create New...

Important Information

Privacy Policy