Página en que se va a imprimir una celda

Hola Héctor

Perdona tanta puntualización, a veces nos explicacmos mal y damos
bastante la lata.

Lo que quiero es que dos celdas A20 y A21 se impriman en la misma
página, no quiero quitar saltos anteriores, me basta con que siempre que
se separen esas dos celdas se inserte un salto de página manual antes de
A20 de manera que se imprima en la siguiente página junto con A21.

Por eso mi idea inicial era saber el número de página en que se
imprimiría cada una de ellas, de manera que si el número era diferente
en las dos (se imprimirían en páginas diferentes), se insertaría un
salto de página y si no lo fuera (se imprimirían juntas) se dejarían
como están.

Muchas Gracias

Javi

Héctor Miguel wrote:

hola, Javi !

... me gustaria automatizarlo un poco seria muy complicado?

probablemente no... solo que el procedimiento del que te hable 'ocupa' +/- 100 lineas de codigo 'compactadas' :-(
si el caso 'sencillo' que necesitas es solamente para...
que un par de celdas no queden 'divididas' [por algun salto de pagina automatico] a la hora de imprimir...
[creo que] seria suficiente con eliminar saltos 'manuales' anteriores y 'sembrar' uno nuevo ->si fuera necesario<- ;)

comentas cual es el 'par de celdas' que necesitas que se impriman siempre en la misma pagina ?
[o si tuvieras otros casos 'similares']
y si no hay problema con eliminar otros saltos manuales ???
saludos,
hector.

Hola de nuevo

Perdona pero se me olvidaba decir que esas celdas son las últimas del
documento, no se van a insertar datos detras, ni filas, por eso no
me importa que vayan a una página nueva.

espero que ayude a simplificar las cosas

Un saludo y gracias de nuevo

javi


Héctor Miguel wrote:

hola, Javi !

... me gustaria automatizarlo un poco seria muy complicado?

probablemente no... solo que el procedimiento del que te hable 'ocupa' +/- 100 lineas de codigo 'compactadas' :-(
si el caso 'sencillo' que necesitas es solamente para...
que un par de celdas no queden 'divididas' [por algun salto de pagina automatico] a la hora de imprimir...
[creo que] seria suficiente con eliminar saltos 'manuales' anteriores y 'sembrar' uno nuevo ->si fuera necesario<- ;)

comentas cual es el 'par de celdas' que necesitas que se impriman siempre en la misma pagina ?
[o si tuvieras otros casos 'similares']
y si no hay problema con eliminar otros saltos manuales ???
saludos,
hector.

hola, Javi !

... quiero... que... A20 y A21 se impriman en la misma pagina, no quiero quitar saltos anteriores
... basta con que siempre que se separen esas dos celdas se inserte un salto de pagina manual antes de A20
... que se imprima en la siguiente pagina junto con A21... esas celdas son las ultimas del documento
... no se van a insertar datos detras, ni filas, espero que ayude a simplificar las cosas

-> el siguiente codigo SOLO 'verifica' si existiera algun salto de pagina en la fila 21
de ser asi... inserta un salto manual en la fila 20 [esta bastante simple... como el caso que planteas] :))
-> lo que seria necesario 'adaptar'... es si este proceso va a ser 'repetitivo'... eliminar saltos manuales anteriores en la fila 20
[por si fuera el caso de que no es necesario dicho salto manual anterior] -?-
para lo cual... seria conveniente conocer el codigo que ya usas para 'preparar' el documento y 'adaptarlo' :D
-> puedes cambiar la referencia a -> Worksheets("Hoja1") [p.e.] a ActiveSheet o como fuera necesario ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==Sub Juntar_A20_A21()
With Worksheets("Hoja1").HPageBreaks
If .Count = 0 Then Exit Sub
If .Parent.HPageBreaks(.Count).Location.Row = 21 _
Then .Add .Parent.Range("a20")
End With
End Sub

Hola Héctor

Voy a probar con el código que me has envíado. Muchas gracias por todo y
si no hay problemas no te volveré a dar la lata de nuevo (por este tema
claro)

Gracias de nuevo

Javi

Héctor Miguel wrote:

hola, Javi !

... quiero... que... A20 y A21 se impriman en la misma pagina, no quiero quitar saltos anteriores
... basta con que siempre que se separen esas dos celdas se inserte un salto de pagina manual antes de A20
... que se imprima en la siguiente pagina junto con A21... esas celdas son las ultimas del documento
... no se van a insertar datos detras, ni filas, espero que ayude a simplificar las cosas

-> el siguiente codigo SOLO 'verifica' si existiera algun salto de pagina en la fila 21
de ser asi... inserta un salto manual en la fila 20 [esta bastante simple... como el caso que planteas] :))
-> lo que seria necesario 'adaptar'... es si este proceso va a ser 'repetitivo'... eliminar saltos manuales anteriores en la fila 20
[por si fuera el caso de que no es necesario dicho salto manual anterior] -?-
para lo cual... seria conveniente conocer el codigo que ya usas para 'preparar' el documento y 'adaptarlo' :D
-> puedes cambiar la referencia a -> Worksheets("Hoja1") [p.e.] a ActiveSheet o como fuera necesario ;)

si cualquier duda [o informacion adicional]... comentas ?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub Juntar_A20_A21()
With Worksheets("Hoja1").HPageBreaks
If .Count = 0 Then Exit Sub
If .Parent.HPageBreaks(.Count).Location.Row = 21 _
Then .Add .Parent.Range("a20")
End With
End Sub