Op deze website gebruiken we cookies om content en advertenties te personaliseren, om functies voor social media te bieden en om ons websiteverkeer te analyseren. Ook delen we informatie over uw gebruik van onze site met onze partners voor social media, adverteren en analyse. Deze partners kunnen deze gegevens combineren met andere informatie die u aan ze heeft verstrekt of die ze hebben verzameld op basis van uw gebruik van hun services. Meer informatie.

Akkoord

Vraag & Antwoord

Programmeren

pagina einde in excel bepalen met een macro

romeo
4 antwoorden
  • 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
  • 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="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
  • 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.

Beantwoord deze vraag

Dit is een gearchiveerde pagina. Antwoorden is niet meer mogelijk.