автоматическое суммирование

[Артур Иваныч]

Здравствуйте ВСЕМ!
ниже имеется файл...
если вы набьёте цифры в фиолетовые строки в столбцах "Полугодие" и "Итог", то увидите что Общий Итог и ИТОГ вычисляется автоматически!
имеется вба-код в этом файле...
у меня не получается одна вещица((
как сделать так, что в этих самых фиолетовых строках, например, в этих же столбца(Полугодие и Итог) выводилось сумма нижестоящих жёлтых строк?
причём:
1) опираться надо НЕ на жёлтый цвет и НЕ на выравнивание по левому краю
2) учитывать нужно тот факт, что количество столбцов может быть море и постоянно меняться, НО они находятся будут между столбцами Валюта и Примечание ну и стабильно последний столбец будет стоят ВЕЧНО))
3) эти самые жёлтые строки тоже постоянно меняются, до удаляться, то добавляются, так что =СУММ() НИКАК не подходит
Как это реализовать? заранее спасибо!!!

[VictorM]

=СУММ() НИКАК не подходит

тогда может ПРОМЕЖУТОЧНЫЕ.ИТОГИ.?

[The_Prist]

Здравствуйте, Артур Иваныч.
Очень знакомый фалик. Только нет формочек. Вы сайт www.excel-vba.ru не посещали? Если да, то может там в форму суммирования добавить еще и общее суммирование?
По теме: решение хотите получить формулой или любой вариант подойдет?

[Артур Иваныч]

ЭЭЭЭ
не помню, посещал иль нет
вроде ток щас с этой проблемой сталкнулся
мне НЕ нужны =СУММ() и прочие подобные функции
мне просто нужен результат
чтоб сам вба считал
чтоб аналогино было тому, что у меня есть в файле для строк ИТОГО
просто эти самые жёлтые строки могут постоянно меняться
то увеличиваться то удаляться, а результат в оранжевых строках чтоб всегда был правильным

[Артур Иваныч]

посещать-то посещал
просто там не было такого файла
я вот щас ток выгрузил
посмотрите как там суммирование происходит
вот мне именно такое суммирование бы и для оранжевых строк

[The_Prist]

Вариант формулой. При необходимости можно формулу вставлять через VBA.

[Артур Иваныч]

Спасибо конечно
но это не подходит
говорюж не нужны мне такие формулы
мне нужно чтоб в вба было написано и считало там
так как:
1) количество оранжевых постоянно будет меняться
2) и сами фиолетовые строки вместе с оранжевыми будут то увиличиваться то уменьшаться

[The_Prist]

Я вот не понимаю, что мешает сделать в макросе подсчет этой формулой, а затем преобразовать формулу в значение?

1) количество оранжевых постоянно будет меняться

Какое это имеет отношение к формуле? Ей побоку оранжевые. Она желтые подсчитывает.

2) и сами фиолетовые строки вместе с оранжевыми будут то увиличиваться то уменьшаться

Вообще не понял. Как фиолетовые будут увеличиваться и уменьшаться? И опять же. Как это может сказаться на формуле?

[Артур Иваныч]

фиолетовые сами по себе не бывают
то есть в них группируются эти самые жёлтые приславутые строки
Вот и в таблице фиолетовые строки вместе с группирующимися в него жёлтыми могут расти в количестве или уменьшаться и сами жёлтые "в группе жёлтых" могу увеличиваться или уменьшаться!
мне =СУММ() и подобные не нужны
мне нужно чтоб в эксель был сразу результат, сразу цифра!
это можно сказать условие

вот есть наработка, которую я пытаюсь сам доделать:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
Dim i%, j%
  Dim lLastCol As Long
    lLastCol = cells(9, Columns.Count).End(xlToLeft).Column
    
    Dim rFndRng As Range, lCol As Long
    Dim rFndRn As Range, rFnd As Range, rFndR As Range
    Set rFndRng = ActiveSheet.UsedRange.Find("ИТОГО", , xlValues, xlWhole)
    If rFndRng Is Nothing Then MsgBox "ИТОГО", vbInformation, "Отсутствует строка": Exit Sub
    
    Set rFndRn = ActiveSheet.UsedRange.Find("№ ИП", , xlValues, xlWhole)

    For i = 10 To 11
        If cells(i, 2) Like "*ИП*" Then
        cells(rFndRng.Row, lLastCol) = cells(i, lLastCol)
            For j = i + 1 To rFndRng.Row - 1
                If cells(j, 2) Like "*ИП*" Then
                    cells(rFndRng.Row, lLastCol) _
                    = cells(rFndRng.Row, lLastCol) + cells(j, lLastCol)
                End If
            Next j
        End If
    Next i
    
'считаем фиолетовые:
    For i = 10 To rFndRng.Row
    If cells(i, 2) = "" Then
    lCol = cells(i, lLastCol)
    For j = rFndRn.Row To lCol
    cells(rFndRn.Row, lLastCol) = Application.Sum(Range(cells(rFndRn.Row + 1, lLastCol), cells(j, lLastCol)))
    
    Next j
    End If
    Next i
End Sub

[Артур Иваныч]

    For i = 10 To rFndRng.Row
    If cells(i, 2) = "" Then
    lCol = cells(i, lLastCol)
    For j = rFndRn.Row To lCol
    cells(rFndRn.Row, lLastCol) = Application.Sum(Range(cells(rFndRn.Row + 1, lLastCol), cells(j, lLastCol)))
    
    Next j
    End If
    Next i

врдь всё считает
но перецикливается((
и потом только для 1ой фиолетовой строки считает