Salto de página

09/06/2004 - 18:14 por oravla | Informe spam

Hola a todos:

Tengo una hoja que contiene unas 9000 lineas.
En la columna A, está, por así decir las claves de cada
registro (hay unas 450 claves).
El número de claves es variable, esto es una clave puede
aparecer 3 veces, otra 4, otra 6, y así sucesivamente
hasta un máximo de 15.
La hoja está clasificada por clave en la columna A.

Quiero insertar (de modo automático) un salto de página
cada vez que cambia la clave, con el fín de listar en
cada hoja lo correspondiente a una sola clave.
Como comprendereis insertar el salto manualmente es un
coñazo.
Muchas gracias por anticipado y un saludo
oravla

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

09/06/2004 - 20:12 | Informe spam

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

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida