Añadir salto de página si valor celda es x
Lo que busco es una macro que recorra una columna con valores y si este es x me añada un salto de página horizontal, es decir, el valor x si esta en una celda será la señal que indique a la macro que hay un salto.
1 Respuesta
Respuesta de Elsa Matilde
2
La siguiente macro recorre la col A hasta el fin de datos. Cuando encuentra una 'x' inserta un salto de página... esto hace que la celda con la x quede en la nueva página.
Sub SaltoPagina()
'x Elsamatilde
'se recorre la col A hasta el fin de datos ---- AJUSTAR
[b2].Select
Application.ScreenUpdating = False
While ActiveCell.Row <= Range("A" & Rows.Count).End(xlUp).Row
If ActiveCell = "x" Then ActiveWindow.SelectedSheets.HPageBreaks.Add before:=ActiveCell
'pasa a fila siguiente y repite el bucle
ActiveCell.Offset(1, 0).Select
Wend
MsgBox "Fin del proceso"
End SubSdos. No olvides valorar la respuesta si el tema queda resuelto.
Elsa
h
¡Gracias! Respuesta excelente y rápida
No olvides valorar la respuesta para dar por finalizado el tema.
Sdos!
