Промежуточные итоги

[riner19]

Добрый день!

Помогите пожалуйста. Нужно во вложенном файле написать макрос который будет считать промежуточные итоги и записывать их в зеленных ячейка. И самое главное в процессе работы количество строк будет меняться (где то добавятся, где то уменьшится)

За ранее спасибо!

[Казанский]

Почему не хотите использовать Данные - (структура) - Промежуточные итоги?
И какой тип пром. итогов нужен - сумма, количество, среднее...?

[riner19]

Потому, что в оригинальном файле уже есть мощный макрос и почти весь процесс автоматизирован при нажатии одной кнопки, ну кроме итогов) И нужен именно макрос. И нужно чтобы считал сумму.

[IgorGO]

выполните CalcSum при активном листе с данными

Sub CalcSum()
  Dim rgs As Range, rg1 As Range
  Set rg1 = Cells(Rows.Count, 3).End(xlUp): Set rgs = rg1.Offset(1, 0)
  Do While rg1.Row < rgs.Row
    Set rgs = rg1
    Set rg1 = Columns(3).Find("Промежуточные итоги", rgs, xlValues, xlWhole, SearchDirection:=xlPrevious)
    If rg1.Row < rgs.Row Then SetSumm rg1, rgs Else SetSumm rgs.End(xlUp).Offset(-1, 0), rgs:  Exit Do
  Loop
End Sub


Sub SetSumm(rg1 As Range, rg2 As Range)
  Dim c As Long
  For c = 4 To 15
    rg2.Offset(0, c - rg1.Column) = WorksheetFunction.Sum(rg1.Offset(1, c - rg1.Column).Resize(rg2.Row - rg1.Row - 1, 1))
  Next
End Sub

[riner19]

Все работает на отлично. Огромное спасибо.