anoniem Geplaatst: 15 juni 2006 Delen Geplaatst: 15 juni 2006 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 Quote Link naar reactie
anoniem Geplaatst: 19 juni 2006 Auteur Delen Geplaatst: 19 juni 2006 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 Link naar reactie
anoniem Geplaatst: 20 juni 2006 Auteur Delen Geplaatst: 20 juni 2006 [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 Quote Link naar reactie
anoniem Geplaatst: 26 juni 2006 Auteur Delen Geplaatst: 26 juni 2006 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. Quote Link naar reactie
anoniem Geplaatst: 1 juli 2006 Auteur Delen Geplaatst: 1 juli 2006 dit werkt, hartelijk dank Quote Link naar reactie
Aanbevolen berichten
Om een reactie te plaatsen, moet je eerst inloggen