Суммирование в зависимости от поиска по названию

[Andrey3055]

Есть таблица с данными, нас интересует столбец "Рыночная стоимость".
В столбце "Имущество и обязательство" перечислены наименования ценных бумаг. НЕОБХОДИМО только ПО ОБЛИГАЦИЯМ ПЕРЕСЧИТАТЬ РЫНОЧНУЮ СТОИМОСТЬ. А именно, в соответствии с названием той или иной Облигации
найти в строках ниже % по облигации соответствующее название с добавлением "НКД" и в колонке напротив данного названия поставить сумму (рыночная стоимость + НКД).
Пример:

Строка 37: "Облигация Общество с ограниченной ответственностью "Росинтер Ресторанс"; RESTO-3; № гос.рег. 4-03-36016-R;"
Нужно в ячейке AC37 поставить сумму AC37 + AC48

В приложении это лист ИСХОДНЫЕ ДАННЫЕ.


Примечание:
НКД может быть не для всех видов облигаций, поэтому просто подряд суммировать ячейки нельзя, нужно организовать поиск по названию.

Помогите реализовать МАКРОС

Заранее большое спасибо!

[Andrey3055]

Может я не так объяснил или задача трудная?
Подскажите кто-нибудь, пожалуйста!
Хотя бы совет как решать дайте

[EugeneS]

поскольку мой Интернет просто умирает, скопируйте этот код в модуль VB

Sub bonds_sum()
Dim i As Double, n As Double
For i = ActiveWorkbook.Sheets(1).Cells.Find ("Облигации").Row + 1 To ActiveWorkbook.Sheets(1).Cells.Find ("Итого Облигации предприятий:").Row - 1
For n = ActiveWorkbook.Sheets(1).Cells.Find ("% по облигациям").Row + 1 To ActiveWorkbook.Sheets(1).Cells.Find ("Итого % по облигациям:").Row - 1
If Mid(Cells(n, 1), InStr(Cells(n, 1), "№")) & "; " = Mid(Cells(i, 1), InStr(Cells(i, 1), "№")) Then
Cells(i, 29) = Cells(i, 29) + Cells(n, 29)
Exit For
End If: Next: Next: End Sub

[EugeneS]

если удастся выложу файл с макросом

[DV68]

Для AC37

=ИНДЕКС('исходные данные'!A37:AE43;ПОИСКПОЗ(A37;'исходные данные'!A37:A43;0);29)+ИНДЕКС(A48:AD53;ПОИСКПОЗ("НКД "&ПСТР(A37;1;ДЛСТР(A37)-2);A48:A53;0);29)

[Andrey3055]

Спасибо Вам всем большое!
Особенно за макрос!

EugeneS, а можно ли сделать так, чтобы при суммировании оставались еще формулы сложения ячеек? Или это нереально?

[EugeneS]

Сообщение от Andrey3055

EugeneS, а можно ли сделать так, чтобы при суммировании оставались еще формулы сложения ячеек? Или это нереально?

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

Если примечание не нужно, удалите в теле кода строку:
Cells(i, 29).NoteText "= A" & i & "+ A" & n & ""