Pagina einde

[broek76]

Hallo,

Ik heb een werkblad dat zichzelf opbouwt maar de pagina einde's staan niet goed.
Heb al van alles geprobeerd maar kom er niet uit.

Kan ik met VBA zoeken naar een bepaalde celwaarde(tekst) en daar dan een pagina einde boven zetten?

Mvg Ron.

 

[Cobbe]

Zo misschien:

Sub cobbe()
Set rij = Cells.Find("te zoeken woord")
 If Not rij Is Nothing Then
  Rows(rij.Row).PageBreak = xlPageBreakManual
 End If
End Sub

 

[broek76]

Het was eigenlijk nog simpeler.
de hoogte van de pagina stond op 3 pagina's ingesteld.
dat heb ik op automatisch gezet en toen werkte het wel gewoon.
sorry maar toch bedankt.