Pagina einde op basis van tekst in kolom

[raymondh1974]

Goedemiddag,

Dagelijks moet ik een lijst maken en printen voor diverse afdelingen. nu ben ik opzoek naar een mogelijkheid om het pagina einde automatische in te stellen op basis van kolom J in mijn voorbeeld.

dus als de inkoper een iemand anders is moet er een pagina einde ingevoegd worden.

kan iemand mij hier mee helpen?Bekijk bijlage Kopie van Voorraad - verkopen - inbestelling.xlsx

groeten Raymond

 

[Cobbe]

Deze eens testen?

Private Sub Workbook_BeforePrint(Cancel As Boolean)
 Dim cl As Range
  ActiveSheet.ResetAllPageBreaks
  For Each cl In Sheets(1).Range("J3:J" & Sheets(1).Range("J" & Sheets(1).Rows.Count).End(xlUp).Row)
    If cl.Offset(-1, 0) <> cl Then
     ActiveSheet.HPageBreaks.Add Before:=cl
    End If
   Next
End Sub

 

[raymondh1974]

Waar plakkken

Bedankt voor de snelle reactie, echter waar moet ik deze code plakken? Ik ben bang dat mijn kennis hierin iets tekort schiet.

 

[Cobbe]

Via Alt-F11 kom je in de VBE
ThisWorkbook selecteren en rechts in het lege schermpje plakken.
Sluiten en eventueel aan een button linken.

 

[raymondh1974]

Werkt helaas niet

deze optie had ik al geprobeerd, maar bij mij werkt het helaas niet. :-(

kunt u de code in mijn voorbeeld zetten en deze reposten?

 

[Cobbe]

Alstublieft:.

 

[raymondh1974]

Werkt niet meer

Ik was heel blij met de oplossing, echter nu ik het bestand wat uitgebreid heb werkt het niet meer.

de bedoeling is dat, nadat ik met de filters heb gewerkt er een paginaeinde ingevoegd wordt na elke wijziging in kolom L.

zou ik nogmaals om hulp mogen vragen.

groet

Raymond

Bekijk bijlage test.xlsx

 

[Cobbe]

Zo beter?