eliminar saltos de paginas

hola, !

... hoja de excel donde tengo identicado por linea el siguiente texto identificacion trabajador
por cada linea que tenga esta leyenda tiene un salto de pagina
ahora como le hago para eliminar esos saltos de paginas.
ya que en excel le doy buscar el texto y elimino el salto, pero es muy trabajoso ya que son 367 paginas...

op1: identifica en que fila esta cada salto, seleccionas dichas filas y eliminas los saltos "en grupo"

op2: elimina salto por salto (en reversa)

como de todas formas necesitas "barrer" filas para identificar en cual hay salto
es probable que te sea mas comodo usar algo +/- como lo siguiente:

Sub Elimina_SaltosDePagina()
Dim Salto As Integer
Application.ScreenUpdating = False
On Error Resume Next ' los saltos automaticos no se eliminan '
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
End With
End Sub

saludos,
hector.

muchisimas gracias Hector Miguel
que tengas un buen dia..

saludos
lhpacheco
valladolid, yucatan


"Héctor Miguel" escribió:

hola, !

> ... hoja de excel donde tengo identicado por linea el siguiente texto identificacion trabajador
> por cada linea que tenga esta leyenda tiene un salto de pagina
> ahora como le hago para eliminar esos saltos de paginas.
> ya que en excel le doy buscar el texto y elimino el salto, pero es muy trabajoso ya que son 367 paginas...

op1: identifica en que fila esta cada salto, seleccionas dichas filas y eliminas los saltos "en grupo"

op2: elimina salto por salto (en reversa)

como de todas formas necesitas "barrer" filas para identificar en cual hay salto
es probable que te sea mas comodo usar algo +/- como lo siguiente:

Sub Elimina_SaltosDePagina()
Dim Salto As Integer
Application.ScreenUpdating = False
On Error Resume Next ' los saltos automaticos no se eliminan '
With ActiveSheet
For Salto = .HPageBreaks.Count To 1 Step -1
.HPageBreaks(Salto).Delete
Next
End With
End Sub

saludos,
hector.