Я зацикливаю все разрывы страниц в моей рабочей таблице. У меня есть цикл внутри другого цикла. Когда мое условие выполнено, я хочу выйти только из внутреннего цикла, но почему мой код выходит из обоих циклов, когда есть еще больше страниц разрыва для цикла? Вот что у меня есть:
FoundRange = Cells.Find(What:="*", After:=Range("A1"), LookAt:=xlPart, LookIn:=xlFormulas, SearchOrder:=xlByRows, SearchDirection:=xlPrevious, MatchCase:=False).Row
getLastRow = FoundRange
ActiveSheet.PageSetup.PrintArea = ("$A$1:$Q$" & getLastRow + 500) '*** Need to increase my printarea to accomodate all the pagebreak i was setting along the way, changed to 1000 and it works.
For Each pb In ws.HPageBreaks
For i = pb.Location.Row To 17 Step -1
if i - getLastRow < 14 then
ActiveSheet.HPageBreaks.Add Before:=Cells(getLastRow + 1, 1)
ActiveSheet.PageSetup.PaperSize = xlPaperA4
ActiveSheet.PageSetup.PaperSize = xlPaperLetter
exit for 'also tried goto Here
end if
next
'Here:
next '<< gets here on exit for, but it doesn't loop my next page break. Acts like it is the last page break when I know there is more.