Macros & VBA: ActiveSheet.HPageBreaks

[baskjzz]

en cuanto a esa posible solucion me da esto :

http://www.subirimagenes.com/imagen-asd-884733.html


sii, ya see los estoy volviendo locoos

jaja,

Si tienen idea como hacer , buenisimo :) sinoo, investigare yo jaja


Gracias gente.

Saludos

Iniciado por mrocf

Intenta con:

Código:

Sub InsertaSaltoDePagina()
'''''''''''''''''''
' Seleccionar la columna en la que se encuentra el texto "Total"
' Luego de ello, ejecutar la presente macro
'''''''''''''''''''
Dim Celda As Range
Set Celda = ActiveCell.End(xlDown).End(xlDown)
Do
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(Celda.Row + 1, 1)
  Set Celda = Celda.End(xlDown)
Loop While Celda.Row < 65536
  Set Celda = Nothing
End Sub

Pero advierte que -previamente- debes seleccionar la columna en la que se encuentran los textos: "Total".
Suerte, Cacho.