Salto de página

hola, oravla !

Tengo ... unas 9000 lineas ... claves de cada registro (hay unas 450 claves).
... la hoja esta clasificada por clave en la columna A.
... insertar ... un salto de pagina cada vez que cambia la clave
... insertar el salto manualmente es un coñazo.

prueba con una macro +/- como la siguiente:
[solo asegurate de 'iniciar' =>en la segunda celda<= de las claves[
saludos,
hector.
en un modulo de codigo 'normal' ==Sub InsertarSaltos()
Dim Fila As Integer, Salto As Integer
Application.ScreenUpdating = False
With ActiveSheet
' primero borramos los saltos manuales que existan [por si hubo cambios] '
For Salto = .HPageBreaks.Count To 1 Step -1
With .HPageBreaks(Salto)
If .Type = xlPageBreakManual Then .Delete
End With
Next
´ahora insertamos los saltos 'nuevos' '
For Fila = 3 To 9000
If Cells(Fila, 1) <> Cells(Fila - 1, 1) Then .HPageBreaks.Add Before:=Cells(Fila, 1)
Next
End With
End Sub