Forums Últimos mensajes - Powered by IBM
 

formula para saltos de pagina en excel

24/05/2006 - 16:02 por Golaya | Informe spam
Estimados:

Necesito introducir saltos de pagina en Excel de manera automatica pero que
se generen a travez de una formlua definida por el usuario y que me eviten
hacer los saltos de pagina manualmente ajustandolos a los anchos diferentes
de lo que quiero imprimir..

Es decir que los saltos de pagina se definan a travez de un resultado
especifico en una celda de una unica columna de manera q si esa formula dá un
resultad "X" alli se produzca un salto de pagina sin que yo deba hacerlo
manualmente despues.

Esto puesto que trabajo con hojas que debo imprimir separadamente pero que
entre ellas tienen tamaños distintos.

gracias
 

Leer las respuestas

#1 Valentín Playá
24/05/2006 - 20:28 | Informe spam
Golaya,

la única forma que se me ocurre es usando una función como la que te
copio. Poniendo este código en un módulo del libro puedes llamar a la
funcion en las celdas usando:

=InsertarHFF(Fila();Columna();A1) , donde A1 es la celda con el
valor para saltar o no

Para quitar los saltos de página antes de insertar otros puedes usar
la macro EliminarHFFs que también te copio más abajo.

Me parece una solución complicada para un problema simple pero no se
me ocurre otra.

Espero que te sirva.

Saludos,

Valentín
*************************************************************************************************
Function InsertarHFF(Fila, Columna, Valor)
If Valor = 1 Then 'aqui 1 es el valor que quieras cuando tiene que
saltar
ActiveSheet.HPageBreaks.Add Before:=Cells(Fila, Columna)
End If
InsertarHFF = ""
End Function
'*********************************************************************
Sub EliminarHFFs()
Dim SaltoPag As Object
For Each SaltoPag In ActiveSheet.HPageBreaks
SaltoPag.Delete
Next
End Sub

Preguntas similares