pagina einde in excel bepalen met een macro

[anoniem]

ik wil via een macro een gefilterd werkblad afdrukken. Door de filter kan er verschil zitten tussen het aantal rijen. Hoe kan ik de pagina eindes laten varieren

[anoniem]

Wat wil je dan precies? Je kan een cel selecteren en er een pagebreak voor zetten met: ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell Gaat er dan nog om welke cel je precies wilt selecteren...

[anoniem]

[quote:601b920205="Paulus"]Wat wil je dan precies? Je kan een cel selecteren en er een pagebreak voor zetten met: ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell Gaat er dan nog om welke cel je precies wilt selecteren...[/quote:601b920205] Kolom 8 begint met waarde 1 ,vb 5 rijen(aantal is variabel) met allemaal 1 dan vb 10 rijen met een 2, ... tussen die overgang moet een paginaeinde komen

[anoniem]

Door de post van MAB schoot deze me weer te binnen. Je kan met een macro door een bepaalde kolom lussen en steeds de waarde van de cel in een variabele stoppen. Als een afwijkende waarde wordt gevonden, wordt een pagina-einde ingevoegd: [code:1:f3e6cd9f61] Sub insertPageBreaks() rij = 1 kolom = 8 celval = Cells(rij, kolom) Do While Cells(rij, kolom) <> "" If Cells(rij, kolom) <> celval Then Cells(rij, kolom).Select ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell End If celval = Cells(rij, kolom) rij = rij + 1 Loop End Sub [/code:1:f3e6cd9f61] De lus loopt tot in kolom 8 een lege cel wordt aangetroffen.

[anoniem]

dit werkt, hartelijk dank