Macro para insertar salto de pagina en excel

[pedrolu]

Buenas tardes a todos:

Querría solicitar vuestra ayuda. Tengo un fichero en excel con bastantes páginas y desearía poder insertar un salto de página cada vez que en una celda determinada aparezca un valor. Entiendo que la forma más rápida es a través de una macro pero desconozco como poder hacer esa macro.

Gracias anticipadas y un saludo.

Pedrolu

[David]

Puedes hacer un bucle For que recorra las filas, luego cuando encuentre el valor inserte el salto de página con:

Código:

Worksheets("Hoja1").HPageBreaks.Add Cells(Fila_Anterior_al_Salto, 1)

[pedrolu]

Iniciado por David el Grande

Puedes hacer un bucle For que recorra las filas, luego cuando encuentre el valor inserte el salto de página con:

Código:

Worksheets("Hoja1").HPageBreaks.Add Cells(Fila_Anterior_al_Salto, 1)

¿y cómo le indico el valor para el cual tiene que insertar el salto de página? Lo del bucle me suena más a chino que lo de las macros.

[David]

Bueno, explico, sería algo más o menos así:

Código:

Dim Count As Integer
Do While Cells(Count,1) <> "" 'Ejecutamos este código mientras no encontremos una fila vacía
     Count = Count + 1
     If Cells(Count, 1) = "Valor buscado" Then
          Worksheets(1).HPageBreaks.Add Cells(Count, 1) 'Aquí insertamos el salto de página
     End If
Loop

P.S.: En este caso la columna de trabajo es A (1), puedes cambiar por la que desees...

[pedrolu]

Iniciado por David el Grande

Bueno, explico, sería algo más o menos así:

Código:

Dim Count As Integer
Do While Cells(Count,1) <> "" 'Ejecutamos este código mientras no encontremos una fila vacía
     Count = Count + 1
     If Cells(Count, 1) = "Valor buscado" Then
          Worksheets(1).HPageBreaks.Add Cells(Count, 1) 'Aquí insertamos el salto de página
     End If
Loop

P.S.: En este caso la columna de trabajo es A (1), puedes cambiar por la que desees...

Muchas gracias David por tu respuesta. Espero no ser muy pesado pero hay un problema y es que hay filas vacías. Además me da un error 1004 al ejecutar la macro. Al darle a depurar me marca en amarillo Do While Cells(Count, 1) <> "" 'Ejecutamos este código mientras no encontremos una fila vacía

[David]

Bueno, modifiqué un poco el código para que recorra hasta el último dato de la columna:

Código:

Dim Looping As Integer
For Looping = 1 To Cells(1, 1).End(xlDown).Row
     If Cells(Looping, 1) = "Salto" Then
          Worksheets(1).HPageBreaks.Add Cells(Looping, 1) 'Aquí insertamos el salto de página
     End If
Next Looping

Aquí lo que hacemos es recorrer todos los datos de la columna y buscamos un valor (en este caso el valor que buscamos es Salto), si encontramos ese valor agregamos un salto de página justo allí.

Espero que te sirva. Saludos

[pedrolu]

Iniciado por David el Grande

Bueno, modifiqué un poco el código para que recorra hasta el último dato de la columna:

Código:

Dim Looping As Integer
For Looping = 1 To Cells(1, 1).End(xlDown).Row
     If Cells(Looping, 1) = "Salto" Then
          Worksheets(1).HPageBreaks.Add Cells(Looping, 1) 'Aquí insertamos el salto de página
     End If
Next Looping

Aquí lo que hacemos es recorrer todos los datos de la columna y buscamos un valor (en este caso el valor que buscamos es Salto), si encontramos ese valor agregamos un salto de página justo allí.

Espero que te sirva. Saludos

Muchas gracias por todo David

[David]

De nada, me alegro que haya funcionado.

P.S.: No necesitas citar el última mensaje para responder.