Excel - eliminar saltos de paginas

Asked By lhpachec on 20-Jan-09 12:33 PM
buenos dias amigos del foro
estoy de nuevo consultanto un proceso de macros

tengo una 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

gracias ...
espero haberme dado a entender


--
lhpacheco
valladolid, yucatan




Héctor Miguel replied on 20-Jan-09 06:52 PM
hola, !


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.
lhpachec replied on 21-Jan-09 09:21 AM
muchisimas gracias Hector Miguel
que tengas un buen dia..

saludos
--
lhpacheco
valladolid, yucatan