Hola valedor
Me puedes ayudar con una macro para insertar salto de página para un listado que cambie el dato de la columna sea diferente
Ejemplo: alejandro
alejandro
_______
Ramiro
________
Luis
________-
Ejemplo: alejandro
alejandro
_______
Ramiro
________
Luis
________-
1 Respuesta
Respuesta de valedor
Claro que si, por favor, gracias, de nada
Option Explicit
Public Sub SaltosPagina()
Dim co1 As Integer
'Estoy suponiendo que los datos estan en la columna A
For co1 = 2 To Range("A1").End(xlDown).Row
If Trim(Cells(co1, 1).Value) <> Trim(Cells(co1 + 1, 1).Value) Then
ActiveWindow.ActiveSheet.HPageBreaks.Add before:=Cells(co1 + 1, 1)
End If
Next co1
End Sub
Option Explicit
Public Sub SaltosPagina()
Dim co1 As Integer
'Estoy suponiendo que los datos estan en la columna A
For co1 = 2 To Range("A1").End(xlDown).Row
If Trim(Cells(co1, 1).Value) <> Trim(Cells(co1 + 1, 1).Value) Then
ActiveWindow.ActiveSheet.HPageBreaks.Add before:=Cells(co1 + 1, 1)
End If
Next co1
End Sub
