Суммирование НЕ диапазона, а конкретный ячеейк через VBA

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

Здравствуйте всем!
имеется такой код:

Private Sub Workbook_Open()
    Dim rFndRng As Range
    Set rFndRng = ActiveSheet.UsedRange.Find("ИТОГО: НИОКР (бюджет затрат)", , xlValues, xlWhole)
    If rFndRng Is Nothing Then MsgBox "Отсутствует", vbInformation, "Нет данных": Exit Sub
    Cells(rFndRng.Row, 5) = "=SUM(R[-???]C:R[-???]C)"
End Sub

как Вы видите, прога находит нужную строку и в пятом столбце этой строки вводит формулу =СУММ(), но я не знаю что мне поставить вместо знаков ???
Мне нужно что-то типо такого условия:
If cells(???,2) Like "*№ ИП*" Then
то есть нам нужно находить выше этой строки(rFndRng) строки, в которых во втором столбце есть "№ ИП" и прибавлять их значения в пятых столбцах и результат выводить сюда:Cells(rFndRng.Row, 5) = "=SUM(R[-???]C:R[-???]C)"
КАК мне организовать цикл?
P.S. обратите внимание на то, что тут идёт суммирование не диапазона, а конкретных ячеек.

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

я тут подумал может переделать так:

    Dim rFndRng As Range
    Set rFndRng = ActiveSheet.UsedRange.Find("ИТОГО: НИОКР (бюджет затрат)", , xlValues, xlWhole)
    If rFndRng Is Nothing Then MsgBox "Отсутствует", vbInformation, "Нет данных": Exit Sub
    
    Dim i%
    For i = 1 To rFndRng.Row
    If Cells(i, 2) Like "*№ ИП*" Then
    Cells(rFndRng.Row, 5) = CStr(Cells(i, 5))
    End If
    i = i + 1
    Next i

ток не пашет((

[SAS888]

А у Вас искомое значение ("ИТОГО: НИОКР (бюджет затрат)") может встречаться несколько раз? Объясните подробнее, что нужно сделать.
В итоговой ячейке обязательно наличие формулы? или достаточно просто результата?

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

1) встречается 1 раз
2) неважна формула - важен результат, поэтому я выше заменил sum на цикл, но цикл неправильно работает((точнее допереть не могу!
вобщем так:
Мы находим на листе строку ("ИТОГО: НИОКР (бюджет затрат)")
потом ищем выше(!) этой строки строки, у которых во втором столбце имеется №ИП
эти самые строки с № ИП мы в пятом столбце берём их значения и суммируем друг с другом, а результат будет тут ("ИТОГО: НИОКР (бюджет затрат)") тоже в пятом столбце!
вродь подробно объяснил...вот так вот))

[SAS888]

Тогда, наверное, так:

Private Sub Workbook_Open()
    Dim rFndRng As Range, i As Long, s As Double
    Set rFndRng = ActiveSheet.UsedRange.Find("ИТОГО: НИОКР (бюджет затрат)", , xlValues, xlWhole)
    If rFndRng Is Nothing Then
        MsgBox "Отсутствует", vbInformation, "Нет данных": Exit Sub
    End If
    For i = 1 To rFndRng.Row - 1
        If Cells(i, 2) Like "*№ ИП*" Then s = s + Cells(i, 5)
    Next
    Cells(rFndRng.Row, 5) = s
End Sub

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

чёт ошибку выдаёт((

я вот сам сделал так:

Dim rFndRng As Range
Set rFndRng = ActiveSheet.UsedRange.Find("ИТОГО: НИОКР (бюджет затрат)", , xlValues, xlWhole)
If rFndRng Is Nothing Then MsgBox "Отсутствует", vbInformation, "Нет данных": Exit Sub

Dim i%, j%
For i = 10 To rFndRng.Row
If Cells(i, 2) Like "*№ ИП*" Then
'For j = i + 1 To rFndRng.Row
Cells(rFndRng.Row, 5) = CStr(Cells(i, 5))
For j = i + 1 To rFndRng.Row
If Cells(j, 2) Like "*№ ИП*" Then
Cells(rFndRng.Row, 5) = Cells(rFndRng.Row, 5) + CStr(Cells(j, 5))
'"=SUM(R[1]C:R[" & ListBox1.ListCount & "]C)"
End If
Next j
End If
'Cells(rFndRng.Row, 5) = Cells(rFndRng.Row, 5) + 1
Next i

вроде б всё норм, прослеживал через F8 Но в какой-то момент цикл не заканчивается, а продолжается и всё портит...
хотя считает норм, просто в последний момент ступливает....

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

ВСЁ!!! ПОЛУЧИЛОСЬ))
вот:

    Dim rFndRng As Range
    Set rFndRng = ActiveSheet.UsedRange.Find("ИТОГО: НИОКР (бюджет затрат)", , xlValues, xlWhole)
    If rFndRng Is Nothing Then MsgBox "Отсутствует", vbInformation, "Нет данных": Exit Sub
    Dim i%, j%
        For i = 10 To 11
            If Cells(i, 2) Like "*№ ИП*" Then
            Cells(rFndRng.Row, 5) = CStr(Cells(i, 5))
                For j = i + 1 To rFndRng.Row - 1
                    If Cells(j, 2) Like "*№ ИП*" Then
                        Cells(rFndRng.Row, 5) = Cells(rFndRng.Row, 5) + CStr(Cells(j, 5))
                    End If
                Next j
            End If
        Next i

[SAS888]

ВСЁ!!! ПОЛУЧИЛОСЬ))

Рад за Вас. Но как не понимал, так и не понимаю, что же Вы все-таки делаете этим кодом. Зачем 2 цикла? Зачем CStr(...) и т.д.

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

эээ
я просто чайник в вба
но нужно в кратчайшие сроки кое-какую работу сделать
вот и в попыхах с горем попалам, половину НЕ понимая еле-еле делаю!
мне тут на форуме ОХ как помогли, за что низкий поклон!
а свою конечную(!) работу я сюда через недели 3-4 выложу(с липовыми данными естесственно))), полюбуетесь!