"S" (zašto ljudi ne mogu potpisati svoj e-mail barem imenom?) Napisao je današnje pitanje.
Pokušavam automatski staviti prelome stranica u tablicu u programu Excel. Pokušao sam s podacima - Međuzbrojevi, ali to me prisiljava da dodam zbroj ili brojanje. Ne želim nikakve međuzbrojeve, samo prelom stranice kad god se vrijednost u stupcu A promijeni.
Ova će makronaredba riješiti problem. Iz nekog razloga makronaredbama koje mijenjaju prijelome stranica ili postavke stranica treba puno vremena da se pokrenu, ali ovo će sigurno biti brže od ručnog izvođenja postupka. Makronaredba pretpostavlja da su vaši podaci u stupcu A i da počinju u retku 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
