„С“ (зашто људи не могу да се потпишу на свој е-маил бар именом?) Написао је данашње питање.
Покушавам аутоматски да ставим преломе страница у табелу у програму Екцел. Покушао сам са подацима - Међузброји, али то ме приморава да додам збир или бројање. Не желим никакве међузбројеве, само прелом странице кад год се вредност у колони А промени.
Овај макро ће решити проблем. Из неког разлога, макроима који мењају преломе страница или поставке страница треба дуго да се покрену, али ово ће сигурно бити брже него ручно извођење процеса. Макро претпоставља да су ваши подаци у колони А и да почињу у 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
