Ayuda a mejorar/cambiar esta macro
Publicado por santi (24 intervenciones) el 12/11/2018 12:04:05
Buenos días Amigos,
Tengo esta macro que funciona bien:
Con esta macro cuando encuentra la palabra "Salto" introduce un salto de página. Hasta aquí todo va bien. Lo que necesito es que si desaparece la palabra salto, elimine el salto de página que ha introducido.
Muchas gracias
Tengo esta macro que funciona bien:
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub SALTO()
Dato = Range("A1").Value
ultima = Range("A2000").End(xlUp).Row
Range("A2").Select
While ActiveCell.Row <= ultima
If ActiveCell.Value = "Salto" Then
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
End If
ActiveCell.Offset(1, 0).Select
Wend
End Sub
Con esta macro cuando encuentra la palabra "Salto" introduce un salto de página. Hasta aquí todo va bien. Lo que necesito es que si desaparece la palabra salto, elimine el salto de página que ha introducido.
Muchas gracias
Valora esta pregunta
0
