Salto de página

hola, Aprendiz !

... lista ... de clientes ... cuyo numero de filas es variable.
... sacar una hoja por cada cliente (para imprimir o para crear una hoja ... nueva ... mismo libro).
... macro que ponga un salto de pagina (en el caso de imprimir).
... en la columna A, siempre termina la lista de un cliente con ... Total cliente
... en la siguiente fila comienza otra lista [...]

el siguiente codigo... [primero] 'limpia' los saltos de pagina 'existentes' y 'pone los nuevos' ;)
[si de todas maneras quieres 'mandar' cada lista por cliente a una hoja 'nueva'... ¿avisas?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Salto_Pagina_Por_Cliente()
Application.ScreenUpdating = False
Dim Salto As Integer, Fila As Long
On Error Resume Next
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
For Fila = 1 To .UsedRange.Rows.Count
If LCase(.Range("a" & Fila)) = "total cliente" _
Then .HPageBreaks.Add .Range("a" & Fila + 1)
Next
End With
End Sub

Un millon de gracias, Héctor. Es estupendo la gran ayuda que ofreceis en el
foro a los principiantes como yo.
Gracias tambien por tu ofrecimiento de preparar el código ó macro para pasar
esta información a una hoja nueva. Lo necesito. Lo malo es que pueden ser
alrededor de 500 hojas.
Gracias una vez mas y saludos.
José Rafael (Aprendiz)

"Héctor Miguel" escribió en el mensaje
news:

hola, Aprendiz !

> ... lista ... de clientes ... cuyo numero de filas es variable.
> ... sacar una hoja por cada cliente (para imprimir o para crear una hoja

... nueva ... mismo libro).

> ... macro que ponga un salto de pagina (en el caso de imprimir).
> ... en la columna A, siempre termina la lista de un cliente con ...

Total cliente

> ... en la siguiente fila comienza otra lista [...]

el siguiente codigo... [primero] 'limpia' los saltos de pagina

'existentes' y 'pone los nuevos' ;)

[si de todas maneras quieres 'mandar' cada lista por cliente a una hoja

'nueva'... ¿avisas?

saludos,
hector.
en un modulo de codigo 'normal' ==> Sub Salto_Pagina_Por_Cliente()
Application.ScreenUpdating = False
Dim Salto As Integer, Fila As Long
On Error Resume Next
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
For Fila = 1 To .UsedRange.Rows.Count
If LCase(.Range("a" & Fila)) = "total cliente" _
Then .HPageBreaks.Add .Range("a" & Fila + 1)
Next
End With
End Sub

hola, José Rafael !

... pasar esta informacion a una hoja nueva ... pueden ser alrededor de 500 hojas [...]

[aunque no te aseguro que +/- 500 hojas no 'presenten detalles'] :))
- ¿cuantas son las columnas [y sus 'formatos'] que se requieren 'transportar'?
- ¿existe ' una fila/titulos' para cada cliente? o...'solo' en el encabezado 'principal' [???]
- [tu sabes mejor los datos que pudieran tener 'relevancia'] ;)

¿comentas?
saludos,
hector.

Saludos Héctor, intento una descripción del listado que recibo, desde el
cual me
gustaría, aparte de tirar las Dina A4 de cada cliente por impresora (ya me
lo has resuelto), esa posibilidad que comentabamos de hacer fichas por
cliente en hojas excel.

TOTAL CLIENTE ... 1543,42
39116536 TELEFONO: 96/6 48 01 32
POINT INTERNACIONAL, S.A. FACT/AÑO: 1836,1
CONTACTO: FAX.: 966480358
PARTIDA PLANET S/N A03129236
JALON (ALICANTE) 03727
DESCRIPCION.. FACTURA FECHA... REFERENCIA..
CANTIDAD.. IMPORTE... EUR/UNIDAD...
= == == == Cierre Magnetico Marron 3-4kg 69234 27/01/2003 24633109
100 94,5 0,945
TOTAL 24633109 69234 27/01/2003 24633109 100
94,5 39116536
Deslizador Plast. Blanco 22mm 87040 03/12/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 84901 04/11/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 82698 07/10/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 81048 10/09/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 77877 01/07/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 76448 06/06/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 72557 26/03/2003 65002226
6000 237 0,0395
TOTAL 65002226 87040 03/12/2003 65002226 42000
1716,6 39116536
CARGO DE TRANSPORTE 69234 27/01/2003 99999999 1
25 25
TOTAL 99999999 69234 27/01/2003 99999999 1
25 39116536
TOTAL CLIENTE ... 1836,1
39118264 TELEFONO: 96/5 66 17 35
SEYFOR S.L. FACT/AÑO: 4480,42
CONTACTO: FAX.: 965665861
PARTIDA INMEDIACIONES, 32 B03017522
SAN VICENTE RASPEIG-ALICANTE 03690
DESCRIPCION.. FACTURA FECHA... REFERENCIA..
CANTIDAD.. IMPORTE... EUR/UNIDAD...
= == == ==
La divisoria entre los clientes del listado es la línea TOTAL CLIENTE
...
que ya te comentaba en el mensaje anterior. Seguidamente existen 7 líneas
que se repiten cada vez por cliente diferente (agrupados en tres columnas,
A, B y C) y despues los artículos consumidos por línea (que pueden ser
variables en su cantidad de líneas), a saber, (columna A= Descripción
artículo, B y C (nada), D=Factura, E=fecha; F=Referencia, G=Cantidad,
H=Importe y I=Precio unitario.
Para mas complicación, puedes observar que existen unas lineas, p.ejem.,
TOTAL 24633109 y TOTAL 65002226 que se refieren a la suma de los articulos
de esos mismos códigos.
En un principio me imaginaba hojas de excel independientes con cada "trozo
del listado" correspondiente a cada cliente como si lo tiraramos por
impresora pero grabandolo en la hoja. Ahora se me antoja que es algo mas
dificil de lo que me podía imaginar en un principio. En fin, Héctor haz lo
que puedas y superagradecido por la ayuda y si no se puede me conformaré con
tenerlo en papel. ¿vale?
Saludos
José Rafael



"Héctor Miguel" escribió en el mensaje
news:uFY$

hola, José Rafael !

> ... pasar esta informacion a una hoja nueva ... pueden ser alrededor de

500 hojas [...]

[aunque no te aseguro que +/- 500 hojas no 'presenten detalles'] :))
- ¿cuantas son las columnas [y sus 'formatos'] que se requieren

'transportar'?

- ¿existe ' una fila/titulos' para cada cliente? o...'solo' en el

encabezado 'principal' [???]

- [tu sabes mejor los datos que pudieran tener 'relevancia'] ;)

¿comentas?
saludos,
hector.

"Aprendiz" escribió en el mensaje
news:

Saludos Héctor, intento una descripción del listado que recibo, desde el
cual me
gustaría, aparte de tirar las Dina A4 de cada cliente por impresora (ya me
lo has resuelto), esa posibilidad que comentabamos de hacer fichas por
cliente en hojas excel.

TOTAL CLIENTE ... 1543,42
39116536 TELEFONO: 96/6 48 01 32
POINT INTERNACIONAL, S.A. FACT/AÑO: 1836,1
CONTACTO: FAX.: 966480358
PARTIDA PLANET S/N A03129236
JALON (ALICANTE) 03727
DESCRIPCION.. FACTURA FECHA... REFERENCIA..
CANTIDAD.. IMPORTE... EUR/UNIDAD...
= == > == == > Cierre Magnetico Marron 3-4kg 69234 27/01/2003 24633109
100 94,5 0,945
TOTAL 24633109 69234 27/01/2003 24633109 100
94,5 39116536
Deslizador Plast. Blanco 22mm 87040 03/12/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 84901 04/11/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 82698 07/10/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 81048 10/09/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 77877 01/07/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 76448 06/06/2003 65002226
6000 246,6 0,0411
Deslizador Plast. Blanco 22mm 72557 26/03/2003 65002226
6000 237 0,0395
TOTAL 65002226 87040 03/12/2003 65002226 42000
1716,6 39116536
CARGO DE TRANSPORTE 69234 27/01/2003 99999999 1
25 25
TOTAL 99999999 69234 27/01/2003 99999999 1
25 39116536
TOTAL CLIENTE ... 1836,1
39118264 TELEFONO: 96/5 66 17 35
SEYFOR S.L. FACT/AÑO: 4480,42
CONTACTO: FAX.: 965665861
PARTIDA INMEDIACIONES, 32 B03017522
SAN VICENTE RASPEIG-ALICANTE 03690
DESCRIPCION.. FACTURA FECHA... REFERENCIA..
CANTIDAD.. IMPORTE... EUR/UNIDAD...
= == > == == >
La divisoria entre los clientes del listado es la línea TOTAL CLIENTE
...
que ya te comentaba en el mensaje anterior. Seguidamente existen 7 líneas
que se repiten cada vez por cliente diferente (agrupados en tres columnas,
A, B y C) y despues los artículos consumidos por línea (que pueden ser
variables en su cantidad de líneas), a saber, (columna A= Descripción
artículo, B y C (nada), D=Factura, E=fecha; F=Referencia, G=Cantidad,
H=Importe y I=Precio unitario.
Para mas complicación, puedes observar que existen unas lineas, p.ejem.,
TOTAL 24633109 y TOTAL 65002226 que se refieren a la suma de los articulos
de esos mismos códigos.
En un principio me imaginaba hojas de excel independientes con cada "trozo
del listado" correspondiente a cada cliente como si lo tiraramos por
impresora pero grabandolo en la hoja. Ahora se me antoja que es algo mas
dificil de lo que me podía imaginar en un principio. En fin, Héctor haz lo
que puedas y superagradecido por la ayuda y si no se puede me conformaré

con

tenerlo en papel. ¿vale?
Saludos
José Rafael



"Héctor Miguel" escribió en el mensaje
news:uFY$
> hola, José Rafael !
>
> > ... pasar esta informacion a una hoja nueva ... pueden ser alrededor

de

500 hojas [...]
>
> [aunque no te aseguro que +/- 500 hojas no 'presenten detalles'] :))
> - ¿cuantas son las columnas [y sus 'formatos'] que se requieren
'transportar'?
> - ¿existe ' una fila/titulos' para cada cliente? o...'solo' en el
encabezado 'principal' [???]
> - [tu sabes mejor los datos que pudieran tener 'relevancia'] ;)
>
> ¿comentas?
> saludos,
> hector.
>