"S" (waarom kunnen mensen hun e-mail niet ondertekenen met ten minste een voornaam?) Schreef de vraag van vandaag.
Ik probeer pagina-einden automatisch in een tabel in Excel te plaatsen. Ik heb Data - Subtotalen geprobeerd, maar dat dwingt me om een som of een telling toe te voegen. Ik wil geen subtotalen, alleen een pagina-einde wanneer de waarde in kolom A verandert.
Deze macro lost het probleem op. Om de een of andere reden duurt het lang voordat macro's die pagina-einden of pagina-instellingen wijzigen, worden uitgevoerd, maar dit zal zeker sneller zijn dan wanneer u het proces handmatig uitvoert. De macro gaat ervan uit dat uw gegevens in kolom A staan en beginnen in rij 2.
Sub AddBreaks() StartRow = 2 FinalRow = Range("A65536").End(xlUp).Row LastVal = Cells(StartRow, 1).Value For i = StartRow To FinalRow ThisVal = Cells(i, 1).Value If Not ThisVal = LastVal Then ActiveSheet.HPageBreaks.Add _ before:=Cells(i, 1) End If LastVal = ThisVal Next i End Sub
