Dynamisch pagina-einde op basis van een waarde

[Mieketie]

Dag iedereen,

Ik zoek een dynamisch pagina einde in te voeren op basis van de waarde in kolom E (Inventory Seq).
De waarden van deze kolom zullen altijd vast en consecutief zijn (dezelfde waarden zullen dus altijd bij mekaar staan en de volgorde is altijd oplopend).

Ter illustratie heb ik de ranges aangeduid met een verschillend kleurtje. Dus alle waarden 37 moeten 1 pagina zijn, dan alle waarden 38 enz...

Kan iemand me hier op weg helpen ?

Alvast bedankt.

 

[lam201]

Dat kan met een macro.

Sub paginaeinde()

Dim r As Long
Dim lastrow As Long



With Sheets("Blad1")
lastrow = WorksheetFunction.CountA(.Range("E:E"))

For r = 3 To lastrow
    If .Range("E:E").Rows(r) <> .Range("E:E").Rows(r - 1) Then
        .HPageBreaks.Add Before:=Worksheets("Blad1").Rows(r)
    End If

Next r

End With

End Sub

 

[Mieketie]

Dat kan met een macro.

Sub paginaeinde()

Dim r As Long
Dim lastrow As Long



With Sheets("Blad1")
lastrow = WorksheetFunction.CountA(.Range("E:E"))

For r = 3 To lastrow
    If .Range("E:E").Rows(r) <> .Range("E:E").Rows(r - 1) Then
        .HPageBreaks.Add Before:=Worksheets("Blad1").Rows(r)
    End If

Next r

End With

End Sub

Weet je Iam201, geluk zit soms in hele kleine dingen en je hebt iemand heel gelukkig gemaakt vandaag.
Zo simpel was het dus.
Dank u, held.