Macros & VBA: ActiveSheet.HPageBreaks

[baskjzz]

Como hacer un Set ActiveSheet.HPageBreaks(1).Location =

y que me localize luego de una fila vacia, se puede eso :S ?


osea en realidad el problema que tengo es, que en una hoja de excel, tengo varios clientes, y cada cliente tiene sus datos. cuando voy a imprimir me imprime tantos clientes como de la hoja, y lo que kiero es que me imprima de cliente en cliente, osea una hoja para cada cliente.


entre cliente y cliente hay una fila vacia. como puedo hacer :S?


Gracias ! muy amables

[mrocf]

Prueba con el siguiente código, siguiendo las instrucciones que allí se indican.

Código:

Sub InsertaSaltoDePagina()
'---------------------------------
' a) Se supone que la fila 1 contiene los encabezados del informe
' b) Seleccionar una columna en la que las únicas celdas vacías sean las
'    de separación entre Clientes
'---------------------------------
Dim Celda As Range
  Set Celda = Cells(1, ActiveCell.Column).End(xlDown).End(xlDown)
Do
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Celda.EntireRow
  Set Celda = Celda.End(xlDown).End(xlDown)
Loop While Celda.Row < 65536
  Set Celda = Nothing
End Sub

Saludos, Cacho.

[baskjzz]

Gracias! se nota que tienes bastantee conocimiento sobre el tema.

el codigo que me pasastes anda de maravilla lo unico k me deja el ultimo valor afuera de cada cliente, osea termina la hoja una fila antes y pierdo un dato :S

y

Como puedo dejar las filas 1 y 2 fijas y no solo la 1? tns idea =/


Muy amable Profesor :)

[David]

Puedes cambiar donde dice Cells(1...) por Cells(2...).

Para lo segundo puedes sumar + 1 donde dice Celda.EntireRow.

Espero que te funcione.

Saludos

[mrocf]

Mmmmmm….
Ojala te funcione la propuesta de David el Grande.

Pero la única razón por la que el código no funcione perfecto es que tu “frase principal” no sea cierta: “- entre cliente y cliente hay una fila vacia.”

De modo que vas a tener que hacerme llegar por correo un pequeño extracto (me refiero a la info de los primeros 3 Clientes) de tu planilla para que la vea.

Saludos, Cacho.

[baskjzz]

no hace lo que pido con la sugerencia del amigo David :)

igualmente muy amable por molestarte a responderme.

Saludos

[David]

¿Podrías poner una captura de pantalla de cómo está exactamente tu libro y qué es lo que quieres que haga la macro?. Porque no estoy entendiendo muy bien.

[David]

Bueno, me tomo el atrevimiento de modificar el código de mrocf:

Código PHP:

  Sub InsertaSaltoDePagina()
Dim Celda As Range
Set Celda = Cells(ActiveCell.Row, ActiveCell.Column).End(xlDown)
Do
  ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(Celda.Row + 2, 1)
  Set Celda = Celda.End(xlDown).End(xlDown)
Loop While Celda.Row < 65536
  Set Celda = Nothing
End Sub  
   

En este caso debes seleccionar el primer dato del primer cliente de cualquiera de las columnas. (Por ejemplo, la columna de fecha).

Espero que te ayude. Saludos

[mrocf]

Hola! David.

Ja ja ja

Parece que el amigo Sebastián te envió también a tí la info para que le ajustásemos el código: coincido con tu ajuste.

Saludos, Cacho.

[David]

Jaja, parece que así es

Bueno, esperamos que le sea de utilidad...

Saludos

[baskjzz]

exelente xD


Gracias por su amable ayuda :)


solo que en un determinado lugar me pone lo siguiente


http://www.subirimagenes.com/imagen-screenshot-884171.html][IMG]http://s2.subirimagenes.com/imagen/previo/thump_884171screenshot.png

[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.

[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.

[mrocf]

En realidad, esta pérdida de tiempo y recursos deviene de no haber contado nunca con tu planilla real.
Ello es lo que ha impedido que "se vea" lo que tú no estás viendo, es decir: no es cierto que entre Cliente y Cliente tengas una celda vacía sino que -probablemente- esas celdas deben tener caracteres "espacio".

En fin, probemos un nuevo método: buscar el texto "Total" en la columna que seleccionarás:

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.EntireColumn.Find(What:="Total", LookIn:=xlValues)
  FirstCell = Celda.Address
Do
  ActiveSheet.HPageBreaks.Add Before:=Cells(Celda.Row + 1, 1)
  Set Celda = Celda.EntireColumn.FindNext(Celda)
Loop Until Celda.Address = FirstCell
  Set Celda = Nothing
End Sub

Suerte (ja ja ja )

[baskjzz]

exelentee ! hacee lo que quieroo :):)


cuando termina la planilla me da el siguiente error :

http://www.subirimagenes.com/imagen-sef-884942.html


ja ja ja , no quiero molestarlos mass xD

Gracias x todo, y todo el tiempo qe se tomaron con mi trabajo.

NOTA_: disculpen si no eh enviado la planilla de excel, al principio, es que no podia publicarla =/

Saludos Sebastián.

[David]

Si hace lo que quieres solo coloca:

Código PHP:

  On Error Resume Next  
   

O simplemente quita esa línea.

[baskjzz]

impecable, ahora la macro funciona de maravilla :)


lo unico, que la primer fila no kda fija =/, pro igual.

Gracias gente =) , han sido muy amables.

Saludos.