automatisch pagina einde

[jelled]

Wie weet of het mogelijk is in een kolom een pagina-einde in te voegen, zodra er in de kolom sprake is van een andere waarde? B.v.
a1 2
a2 2
a3 2
a4 3
a5 3
in deze situatie zou in cel a4 automatisch een pagina-einde geplaatst worden, omdat de waarde van 2 in 3 veranderd is.
Alvast hartelijk dank.
M.vr.gr.
Jelle

 

[dominiekO]

Ik zit te proberen, maar geraak er niet.

(Toch best een keer avondschool VB volgen zeker)

Ik zit te denken in de richting dat als je in kolom B rij 2 de formule zet

=als(B1=B2;"";1) en die doortrekt.

Dus bij een verandering van waarde komt er in kolom B een 1 te staan.

Er moet toch wel een commando zijn dat als er in B een 1 staat dat ie daar een pagina einde zet?

 

[jelled]

Ha Dominique,
inderdaad, daar zit 't em.
Hoe kun je Invoegen - Pagina einde
daaraan koppelen
M.v.g.
Jelle

 

[Ginger]

jelled, Plaats dit codeblokje in de ThisWorkbook module van je workbook....

Private Sub Workbook_BeforePrint(Cancel As Boolean)
Dim c As Range

    ActiveSheet.ResetAllPageBreaks
    For Each c In ActiveSheet.Range("A2:A65536").SpecialCells(xlCellTypeConstants)
        If c.Value <> c.Offset(-1).Value Then ActiveSheet.HPageBreaks.Add Before:=c
    Next c
    
End Sub

Groet, Leo

 

[jelled]

is natuurlijk heel dom, Ginger, maar dit zegt me eerlijk gezegd niks!
Waar vind ik dat en geldt dat dan voor alle excel werkbladen of hoe gaat dat?
M.vr.gr.
Jelle

 

[danny147]

Beste jelled

Ginger bedoelt het volgende, zie bestandje.

Wat je enkel moet doen is dit afprinten en zie wat er gebeurd.

Groetjes Danny. :thumb:

 

[Ginger]

Danny, bijna goed... De code moet juist niet in een standaard module worden weggeschreven maar in de module ThisWorkbook. Toch mijn dank voor het plaatsen van je voorbeeld. Hierbij de code in de juiste module.

Groet, Leo