Как сделать разрыв страницы печати по условию и узнать номер страницы

[Leanna]

Форумчане, помогите с задачкой.

Есть сводная таблица со столбцами 1.место/2.товар/3.сумма + столбцы 4.место2/5.номер_страницы
Как программно сделать так что бы при каждом изменении значения столбца печать страницы переходила на новый лист (разрыв печати).
А затем В столбец 5 номер_страницы в каждую строчку проставить номер страницы (число) при печати.
Файл со сводной прилагается.

[Leanna]

Люди после ковыряний у меня получилось сделать разрыв страницы,

Sub Page_Form()
'
    iEndTable = Range("A1").SpecialCells(xlLastCell).Row
    
    For iRow = 3 To iEndTable
    If Cells(iRow, 4) <> Cells(iRow - 1, 4) Then
        ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=Cells(iRow, 5)
    End If
    Next
End Sub

Но, подскажите, как проставить в ячейки 5 столбца номера текущих страниц?


.

[SAS888]

Следующий макрос выведет в окно сообщений текущую страницу печати для активной ячейки:

Sub DetectCurrentPage()

    Dim i As Integer   
    For i = 1 To Worksheets(1).HPageBreaks.Count
        If ActiveCell.Row < Worksheets(1).HPageBreaks(i).Location.Row Then Exit For
    Next
    MsgBox i

End Sub

Т.е. определяем, до какого по счету горизонтального разрыва страницы находится контролируемая ячейка.