Macro para insertar salto de pagina en excel

[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