Salto de pagina

Gracias otra vez, entiendo el razonamiento, y tengo que revisar algunos
códigos en la ayuda.
No quiero abusarme, pero si te sobrara por ahi cualquier librito,
información, explicaciones de códigos, algo que consideres sea útil y lo
puedas compartir, de cualquier tamaño, pudiras enviarmelo. Gracias.
faby1ARROBAubbi.com


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

hola, Fabian !

> Funciona. Gracias.
=> gracias a ti... [por el 'feed-back'] ;)

> pero... como!!! [...]
=> el proceso es un 'tanto por cuanto' logico ;) [trato de

explicarlo]...

puesto que los saltos de pagina ->deben<- ser 'referenciados' por su

numero [y ubicacion]...

1° crear una matriz con los numeros [fila/columna] donde 'caen' los saltos

[manuales/automaticos]

[esto se puede hacer]...
a) 'barriendo' cada salto [y meterlos a una matriz] 'localizando' su

[ubicacion en] fila/columna [p.e.]

For ... Next + If .[H/V]PageBeak(n).Location.[Row/Column] = ...

Then

b) o... [mas 'directamente'] usando 'macrofunciones' de excel4 [p.e.]
=Get.Document(64) [horizontales_filas] o...

=Get.Document(65) [verticales_columnas]

ambas 'generan' una matriz ->YA con el numero de fila/columna<-

donde 'estan' los saltos

2° usando la alternativa 'b' [por rapidez], queda un 'requisito' [al usar

este tipo de 'trucos'] que es...

- 'bajar' a la hoja 'el resultado' [en este caso... 'creando' un

nombre ->temporal<-]

3° 'localizar' [si existe] la 'posicion' [o indice en la matriz] del salto

que 'coincida' con la fila/columna 'deseada'

4° si no 'existen' saltos o se 'intenta' eliminar un salto 'automatico'

[por codigo] se generan 'errores' :((

'obviando' [un poquitin] el 'entendimiento' del ['resto' del] proceso...

el codigo [ya] se puede 'adelgazar'

[omitiendo variables y 'pasos' ->ya comprendidos<-] y queda

['simplificado'] como sigue...

si cualquier duda... ¿comentas?
saludos,
hector.
en un modulo de codigo 'normal' ==> Sub Elminar_Salto_Manual_En_Celda_Fila_X()
Dim Col As String, Fila As Long
Col = "a"
Fila = 240
If Not IsEmpty(Range(Col & Fila)) Then Exit Sub
Names.Add Name:="SH", RefersToR1C1:="=Get.Document(64)"
On Error GoTo Salir
ActiveSheet.HPageBreaks(Evaluate("Match(" & Fila & ",SH,0)")).Delete
Salir:
Names("SH").Delete
End Sub

hola, Fabian !

... entiendo el razonamiento ... tengo que revisar algunos codigos en la ayuda.

si tienes cualquier duda [ya sabes]... aqui... nos gusta 'ampliarlas' :))

... si te sobrara por ahi cualquier librito, informacion, explicaciones de codigos
... algo que consideres sea util y lo puedas compartir [...]

aparte de foros [como este], sitios web recomendados [inclusive en este medio], la ayuda en linea
libros [iguales/identicos a los] que todos hemos comprado/obtenido alguna vez... y 'demas' ???
[pues...] tendrias que esperarte a algun 'otro' libro que... 'saliera por ahi' :))

saludos,
hector.